汉字转拼音首字的函数及其灵活运用

zldccmx · 发表于 2009-8-5 12:32

下面是附件，请参照[local]1[/local]
   '撰写:老朽
   '网址:http://Club.ExcelHome.net
   '日期:2009-8-5 下午 12:32:16
Sub 随机生成5个汉字()
Arr = [a2:a7244]
Dim brr(1 To 65535, 1 To 1)
For I = 1 To 65535
      brr(I, 1) = Arr(Int(Rnd * 7243 + 1), 1) & Arr(Int(Rnd * 7243 + 1), 1) & Arr(Int(Rnd * 7243 + 1), 1) & Arr(Int(Rnd * 7243 + 1), 1) & Arr(Int(Rnd * 7243 + 1), 1)
Next
[E1:E65535] = brr
End Sub
   '撰写:老朽
   '网址:http://Club.ExcelHome.net
   '日期:2009-8-5 下午 12:32:16
Sub TestPy()
[F1:F65535] = "": [i2] = ""
If [e1] = "" Then 随机生成5个汉字
T = Timer
[F1:F65535] = "=Py(Rc[-1])"
T = Timer - T
[i2] = "穷举法用时" & T
End Sub
   '撰写:老朽
   '网址:http://Club.ExcelHome.net
   '日期:2009-8-5 下午 12:32:16
Sub TestZpy()
[F1:F65535] = "": [i1] = ""
If [e1] = "" Then 随机生成5个汉字
T = Timer
[F1:F65535] = "=Zpy(Rc[-1])"
T = Timer - T
[i1] = "字典法用时" & T
End Sub

zldccmx · 发表于 2009-8-5 12:33

穷举与字典.rar (123.22 KB, 下载次数: 431)

附件在此

zldccmx · 发表于 2009-8-5 12:34

忘记了一段代码
   '撰写:老朽
   '网址:http://Club.ExcelHome.net
   '日期:2009-8-5 下午 12:34:25
Private Sub Workbook_Open()
Call init
End Sub
让工作簿一打开就自动生成字典

zldccmx · 发表于 2009-8-5 12:39

附件中涉及了7243个汉字

zldccmx · 发表于 2009-8-5 12:42

应该这么说，代码长效率不一定低，代码短效率不一定高。
代码长度与效率应该是不成比例的。

hqj137 · 发表于 2009-8-5 12:43

可以拓展，值得研究研究，学习了。

alzeng · 发表于 2009-8-5 13:49

原帖由 zldccmx 于 2009-8-5 12:42 发表
应该这么说，代码长效率不一定低，代码短效率不一定高。
代码长度与效率应该是不成比例的。

嗯，这句话我同意！不过工作量显然不是一个数量级的，^_^

xiongpingqin · 发表于 2009-8-5 14:10

楼主，请问你的代码写在哪里啊？这是什么啊，我不懂，请教一下

xiongpingqin · 发表于 2009-8-5 14:16

EXCEL中在哪个地方写代码？请教了，觉得你的这个很实用。

zjdh · 发表于 2009-8-5 14:27

不错的东西，谢谢分享

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

[原创] 汉字转拼音首字的函数及其灵活运用

学习

看不懂，没用过

回复 1楼 alzeng 的帖子