我的VBA成长随记...刚起步中

水无形 · 发表于 2008-6-27 19:07

从山版的帖子跳到了狼版的帖子，Dictionary，开始没有发觉Dictionary有什么好处，感觉就像个数组而已么，慢慢发觉Dictionary当数组使用时是个省心的数组，比如我用不着老是给他重定义尺寸，删除元素时他会主动压缩（就是不需要考虑位置移位问题）

==========================

用两种方式实现了帅选相同元素的问题。多次用到了TEMP=filter(array,array1(i)).感觉非常有用。谢谢论坛

PT4vxgmD.rar (9.79 KB, 下载次数: 3)

[此贴子已经被作者于2008-6-27 19:14:19编辑过]

水无形 · 发表于 2008-6-27 19:33

应用实例2（显示1-100中含3的整数）：

Sub usage2()
Dim dic As Object, i As Long
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To 100
dic.Add i, ""
Next
MsgBox Join(Filter(dic.keys, "3"), vbCrLf)

Set dic=Nothing
End Sub

===================================================================

上面是狼版的，感觉Join(Filter(dic.keys, "3"), vbCrLf) 感觉非常的奇妙，这里通过把 i 变成Dictionary 主键的方式变成了字符串，然后通过Filter函数进行操作。我尝试用自己的方式，借用函数公式中常用的 LEN(),SUBSTITUTE,来判断某数字是否包含某字符，发觉在代码中似乎 SUBSTITUTE 变成了 REPLACE，并且数字必须先经过 CSTR 转化。CSTR=CHANGE (TO) STRING.尝试了一下居然是对的，开心...

Sub usage22()
Dim dic As Object, i As Long
Set dic = CreateObject("scripting.dictionary")
For i = 1 To 100
If Len(CStr(i)) - Len(Replace(i, 3, "")) <> 0 Then
dic.Add i, Nothing
End If

Next
MsgBox Join(dic.Keys, vbCrLf)
End Sub

水无形 · 发表于 2008-6-27 19:44

[d:d].Replace "@", ""

replace的RANGE()方式，第一次看到，开心。感觉这样确实简洁些

IIf(Abs(i Mod 6 - 3) = 2, "@", "")

恩，感觉这里把函数公式的IF搬到了VBA中，喜欢。

[此贴子已经被作者于2008-6-27 19:46:25编辑过]

水无形 · 发表于 2008-6-27 20:40

Set r = Sheets("sheet1").[a:n].SpecialCells(xlCellTypeConstants, 23)

这句不是十分理解，不过作用是指代“A：N列的所有文本，数字”，先这样就够了，按F1也看不到个什么好东西。

for each c in r 这种循环很有用，简洁。学习了

水无形 · 发表于 2008-6-27 23:43

3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196442881097566593344612847564823378678316527120190914564856692346034861045432664821339360726024914127372458700660631558817488152092096282925409171536436789259036001133053054882046652138414695194151160943305727036575959195309218611738193261179310511854807446237996274956735188575272489122793818301194912"

也是一绝呀

水无形 · 发表于 2008-6-27 23:53

dictionary中

dic(key),应该等同于 item(key)。这个是猜测出来的。不知道实际写代码时哪种方式算是好习惯。

水无形 · 发表于 2008-7-4 15:28

一个解题记录，用来以后备查

eF8s6vBP.rar (15.45 KB, 下载次数: 5)

-------------------------FILTER函数，数据有效性

[此贴子已经被作者于2008-7-4 15:29:19编辑过]

水无形 · 发表于 2008-7-9 11:32

利用模糊匹配上的数据作为对应匹配数据的数据有效性-序列,结合人工来应对数据字段模糊匹配问题,如果结合公式那么效果会更好,公式可以先处理完成完全匹配的.

QQrGG8uo.rar (121.14 KB, 下载次数: 3)

[此贴子已经被作者于2008-8-1 23:38:36编辑过]

水无形 · 发表于 2008-7-11 16:15

做了个模板，为了帖子的上升再次发帖，呵呵

x6e7OUXV.rar (37.91 KB, 下载次数: 3)

[此贴子已经被作者于2008-7-11 16:16:32编辑过]

yufei_8317 · 发表于 2008-7-18 12:01

楼主学得不错啊，我也在学可是觉得找不到方法！能指教一下不咯？

[此贴子已经被作者于2008-7-18 12:06:04编辑过]

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