[已解决]谢谢mxg825老师。汉字变拼音出错，（原HYY514老师写的）

lhj323323 · 发表于 2011-10-15 12:21

本帖最后由 lhj323323 于 2011-10-16 19:37 编辑

老师：
最近在看您写的汉字转拼音的函数，当我把函数输入后，电脑提示：“编译错误：方法和数据成员未找到”，我错在哪儿呢？
用法：在模板的任一工作表的A列输入一组汉字，然后在B列的同一行输入函数公式=GetPy2（A1），即可获得汉字的拼音
下面是您写的程序：
程序中sDic = Sheet4.dic'报错

Function GetPy2(ByVal Chs As String, Optional bList As Boolean = True) As String
Dim stmp As String
Dim sDic As String
Dim arr() As String
Dim i As Integer
sDic = Sheet4.dic'这一句是什么意思？
For i = 1 To IIf(bList, Len(Chs), 1)
stmp = Mid(Chs, i, 1)
arr = Split(sDic, "," + stmp)
If UBound(arr) > 0 Then
GetPy2 = GetPy2 & " " & Split(arr(1), ",")(0)
Else
GetPy2 = GetPy2 & " " & stmp
End If
Next
GetPy2 = Trim(GetPy2)
End Function

复制代码

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-16 18:15

Sub 移动显示DIC()
With Sheet1.dic
.Top = [A9].Top
.Left = [A9].Left
.Width = 600
.Height = 50
.MultiLine = True
End With
End Sub

复制代码

运行一次看看

跳转到最佳答案楼层

lhj323323 · 发表于 2011-10-15 19:51

回复 lhj323323 的帖子

向朋友们求助

lhj323323 · 发表于 2011-10-15 21:14

回复 lhj323323 的帖子

向朋友们求助

mxg825 · 发表于 2011-10-16 10:48

出错原因就是这个 DIC 程序不存在，或放在别的模块中（非 Sheet4 模块中）
你试一下下面的代码：把他们放在SHEET1 模块中

Sub 执行我()
Sheet1.mxg825
End Sub

Sub mxg825()
MsgBox "我在这里"
End Sub

mxg825 · 发表于 2011-10-16 10:44

是在Sheet4工作表存在一个宏过程名：dic

也就是引用 Sheet4工作表中的一个过程 dic

lhj323323 · 发表于 2011-10-16 09:36

回复 lhj323323 的帖子

向朋友们求助

lhj323323 · 发表于 2011-10-16 12:39

回复 mxg825 的帖子

HYY514老师的原版，没有看到您说的那种结构呢？

mxg825 · 发表于 2011-10-16 14:32

在SHEET1模块中有 DIC 对象但代码不知道藏在哪里了？
还是引用什么？

Private Sub dic_Change()

End Sub

Private Sub dic_GotFocus()

End Sub

mxg825 · 发表于 2011-10-16 14:40

我找到了！在SHEET1 工作表中有一个 TextBox.1 被命名为 DIC
并隐藏了！控件中有值：拼音码！（因为太长了，不能放在一个单元格中，借用了一个 TextBox.1 控件存放

mxg825 · 发表于 2011-10-16 14:42

有105969个字符！

		自动登录	找回密码
密码			注册