汉字转拼音的VBA代码加入模块后不能执行

function在excel的vba里边是个函数，是不能作为宏进行运行的。

我试过另建一个宏来调用你的函数hztopy(),运行可以通过的，只是出来的结果不理想，只有汉字的第一个拼音字母，无法给出全拼，还有部分偏僻汉字的读音无法译出？

也可以在excel表格中作为公式函数来运行。

第一步：首先新建一个窗体，双击窗体，复制如下代码进去。Dim Cbtn As New BtnClick '定义Cbtn 一个类名Private Sub UserForm_Initialize()Dim ClickBtn As Object '定义一个对象名Set ClickBtn = Me.CommandButton1 '给对象名关联按钮对象Cbtn.init ClickBtn '关联BtnClick类End Sub每一行都有解释，就不一一介绍了，很明显的说明。

第二步：新建一个类模块，复制如下代码到类模块。'声明一个MSForms.CommandButton对象变量Private WithEvents btnObj As

---