常见字典用法集锦及代码详解

atday · 发表于 2013-1-26 22:45

老师您好，在学习您写的教程后，我写了一个实用的工具，但还有一小点不那么完美，我穷尽办法，不能解决，你能帮我看一下吗？
http://club.excelhome.net/forum. ... p;extra=#pid6685532

龙蒙山 · 发表于 2013-1-30 22:28

蓝桥玄霜发表于 2010-10-18 12:53
实例7 字典法排序
一、问题的提出：
A列B列是按顺序排列的全部股票代码和股票名称，C列D列和E列F列是另外 ...

蓝版主：您好！
学习您“2级数据有效性”的范例，感到非常实用，在套用过程中，有两个问题请教：
1、数据源第一列有内容，同一行第二列没内容的时候，运行出错，代码怎么改？
2、您的代码是确定在C、D列填写的，如从C3和D3列开始填，代码又怎么改？
谢谢！

2级数据有效性.rar (21.62 KB, 下载次数: 15)

sxun · 发表于 2013-2-21 11:35

对我好有用，谢谢！

四点船 · 发表于 2013-2-25 12:54

本帖最后由四点船于 2013-2-25 13:24 编辑

Sub 余()
Dim i As Long, arr
with CreateObject("Scripting.Dictionary")
For i = 1 To 1000
If Abs(i Mod 5 - 2) = 1 Then
.Add i, ""
arr = .keys
End If
Next i
[c4].Resize(UBound(arr) + 1, 1) = WorksheetFunction.Transpose(arr)
end with
End Sub

lifenjoy · 发表于 2013-2-26 15:12

有详解，好好学习下

qdzhxg · 发表于 2013-2-28 17:29

这里也是我字典入门的地方，发帖感谢下，谢谢版主

wuwei-wuwei · 发表于 2013-2-28 21:38

慢慢学习，感谢老师无私奉献！

uustudy · 发表于 2013-3-1 12:00

谢谢蓝桥老师

vhanhong · 发表于 2013-3-1 19:50

收起来慢慢研究

ee2000 · 发表于 2013-3-1 20:57

学习学习，真棒

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

[原创] 常见字典用法集锦及代码详解