一些小工具--学习数组、字典与窗体

gufengaoyue · 发表于 2012-6-4 18:26

本帖最后由 gufengaoyue 于 2012-6-6 17:59 编辑

去年在学习VBA过程中，传了一些学习的东西上去了
http://club.excelhome.net/thread-674718-1-4.html
我也是新手，如果对你有帮助，那最好了
高手别喷就好了，呵呵{:soso_e100:}

以后如果有新的常用小工具，我会再更新的。
或者EH的朋友有需要，我也可以找时间做做（前提是我会做{:soso_e113:}）

多重数组混合应用

补充内容 (2013-11-5 10:52):
输入时下拉列表逐步提示

补充内容 (2013-11-5 10:54):
输入时下拉列表逐步提示见3楼
http://club.excelhome.net/forum. ... xMzExMHw4NzY3Nzc%3D

补充内容 (2013-11-5 10:56):
呃，是4楼的。怎么不能编辑，只能补充了。。。

补充内容 (2013-11-20 18:16):
二维转一维.rar
http://club.excelhome.net/forum. ... DUxMzExMHwxMDczNTk2

jiminyanyan · 发表于 2012-6-5 07:33

谢谢分享。。。。

ctp_119 · 发表于 2012-6-5 07:57

楼主，好心人！！！谢谢分享！！{:soso_e181:}

gufengaoyue · 发表于 2013-11-5 10:53

输入时下拉列表逐步提示

物资领用明细表.rar (42.36 KB, 下载次数: 360)

gufengaoyue · 发表于 2013-11-20 18:19

本帖最后由 gufengaoyue 于 2013-12-3 13:18 编辑

二维转一维.rar
帖子链接
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1073596&pid=7312503

模糊查找
点击A列，输入关键字，右边出现包含该关键字的列表，双击选择完成输入

有效性模糊查询.rar

汉语数字排序（以自定义函数将中文数字转成阿拉伯数字后排序）

汉语数字排序.rar

gufengaoyue · 发表于 2013-12-6 10:56

本帖最后由 gufengaoyue 于 2013-12-6 11:10 编辑

一个Format比较有趣的用法

Sub Test()
Dim ARR, Tmp$
ARR = Range([b1], [a65536].End(3))
For a = 1 To UBound(ARR)
Tmp = Replace(Left(ARR(a, 1), 14), "-", "")
For i = Len(Tmp) - 2 To 1 Step -2
Tmp = Format(Tmp, String(i, "&") & ":")
Next
ARR(a, 2) = Tmp
Next
[b1].Resize(UBound(ARR), 1) = Application.Index(ARR, , 2)
End Sub

复制代码

Sub Test()
Dim ARR, Tmp$
ARR = Range([b1], [a65536].End(3))
For a = 1 To UBound(ARR)
ARR(a, 2) = Replace(Left(ARR(a, 1), 14), "-", "")
Tmp = WorksheetFunction.Rept("&&:", Len(ARR(a, 2)) / 2)
ARR(a, 2) = Format(ARR(a, 2), Left(Tmp, Len(Tmp) - 1))
Next
[b1].Resize(UBound(ARR), 1) = Application.Index(ARR, , 2)
End Sub

复制代码

表在这里.rar

YANWEI82123300 · 发表于 2019-11-4 19:21

谢谢分享。。。。

wowo000 · 发表于 2019-11-5 06:39

感谢楼主gufengaoyue的无私奉献！！

newlove · 发表于 2020-12-30 16:08

谢谢分享。。。。虽然不明白！

xvjiex · 发表于 2021-4-6 15:46

感谢楼主分享学习数组、字典与窗体

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

[分享] 一些小工具--学习数组、字典与窗体

评分