VBA遍历函数、超链接与控件运用
这段时间看了点python方面的东西，据说是种比vba更容易上手的语言，于是下载了python然后鼓捣鼓捣，然而最大的困扰是不知道它能干什么？网抓什么？认知限制了想象力。
整理是种态度，当电脑桌面堆满文件的时候，当来回寻找文件，不时地在我的电脑中按下ctrl+f寻找的时候，也许你需要这段代码。
遍历文件名函数dir在excelvba中是个十分实用的功能，它与hyperlinks超链接的结合运用十分接地气。
dir的参数很直接，给我个路径，我帮你找到路径里的所有文件，确实能找到所有文件类型的文件名，但打不打的开是你的事。于是结合超链接能打开一部分文件，这些文件都是微软的文件，word ppt excel…但基本够用了吧。
程序的最大好处是将人从重复性的劳作中解放出来，不管是体力上还是脑力上的，作为底层统计人员，最大的痛苦莫过于核对数据，一遍一遍地对相差不多的数据核对，几百个数据足够让人崩溃，学点vba能让电脑出力，毕竟电脑的基础功能就是计算。
(12月小诗摘自网上)
Option Explicit
Sub 遍历()
Dim sr$, n%, srr$
On Error Resume Next
sr = Dir('E:\工作记录\2018注塑车间数据\' & [a2] & '月\' & [b2] & '\' & [c2])
Range('a3:b999').ClearContents
Do
n = n + 1
Cells(n + 2, 1) = n
Cells(n + 2, 2) = sr
Sheet1.Hyperlinks.Add Cells(n + 2, 2), 'E:\工作记录\2018注塑车间数据\' & [a2] & '月\' & [b2] & '\' & sr
sr = Dir
Loop Until sr = ''
If [a2] = 1 Then
[a16] = '去追赶时间的急流，' & Chr(10) & _
'尽管是那样地用力，' & Chr(10) & _
'还是被远远地抛在了后头?' & Chr(10) & _
'我那日记的小船，' & Chr(10) & _
'为什么比白云还要缓慢？' & Chr(10) & _
'因为它喜欢在遗忘的沙洲上停搁，' & Chr(10) & _
'或是在冥想的旋涡中打转?' & Chr(10) & _
'——顾城《一月四日日记》'
'
ElseIf [a2] = 2 Then
[a16] = '我把天空和大地打扫干干净净' & Chr(10) & _
'归还给一个陌不相识的人' & Chr(10) & _
'我寂寞地等，我阴沉地等' & Chr(10) & _
'二月的雪，二月的雨' & Chr(10) & _
'——海子《黎明》'
ElseIf [a2] = 3 Then
[a16] = '人生恰如三月花，倾我一生一世念。' & Chr(10) & _
'来如飞花散似烟，醉里不知年华限。' & Chr(10) & _
'——纳兰性德《纳兰词》'
ElseIf [a2] = 4 Then
[a16] = '我说你是人间的四月天；' & Chr(10) & _
'笑响点亮了四面风；' & Chr(10) & _
'轻灵在春的光艳中交舞着变?' & Chr(10) & _
'你是四月早天里的云烟，' & Chr(10) & _
'黄昏吹着风的软，' & Chr(10) & _
'星子在无意中闪，' & Chr(10) & _
'细雨点洒在花前?' & Chr(10) & _
'——林徽因《你是人间的四月天》'
ElseIf [a2] = 5 Then
[a16] = '你在我旁边' & Chr(10) & _
'只打了个照面' & Chr(10) & _
'五月的晴天' & Chr(10) & _
'闪了电' & Chr(10) & _
'——林夕《流年》'
ElseIf [a2] = 6 Then
[a16] = '一川风露荷花晓，' & Chr(10) & _
'六月蓬瀛燕望凉?' & Chr(10) & _
'何须辛苦求人外，' & Chr(10) & _
'自有仙乡在水乡' & Chr(10) & _
'——曾巩《西湖》'
ElseIf [a2] = 7 Then
[a16] = '我的一生 本来可以有' & Chr(10) & _
'不同的遭逢 如果' & Chr(10) & _
'在新雨的荷前' & Chr(10) & _
'你只是静静地走过' & Chr(10) & _
'在那个七月的午后 如果' & Chr(10) & _
'如果你没有 回头' & Chr(10) & _
'——席慕蓉《无怨的青春》'
ElseIf [a2] = 8 Then
[a16] = '八月就是八月' & Chr(10) & _
'八月我守口如瓶' & Chr(10) & _
'八月里我是瓶中的水' & Chr(10) & _
'你是青天的云' & Chr(10) & _
'——林白《过程》'
ElseIf [a2] = 9 Then
[a16] = '九月西风兴，月冷霜华凝。' & Chr(10) & _
'思君秋夜长，一夜魂九升。' & Chr(10) & _
'——白居易《长相思》'
ElseIf [a2] = 10 Then
[a16] = '羡慕我们吗 二月还是十月' & Chr(10) & _
'嫉妒我们吗 大地还是天空' & Chr(10) & _
'我们为这个季节的烂漫深深感动' & Chr(10) & _
'年轻真好 真好年轻' & Chr(10) & _
'——汪国真《年轻真好》'
ElseIf [a2] = 11 Then
[a16] = '十一月中旬，' & Chr(10) & _
'晴暖如春，' & Chr(10) & _
'明明指的是爱情?' & Chr(10) & _
'——木心'
ElseIf [a2] = 12 Then
[a16] = '雪睡了' & Chr(10) & _
'夜有一个白色的枕头' & Chr(10) & _
'寒风吹亮了月光' & Chr(10) & _
'十二月默默地站在街上' & Chr(10) & _
'有些甜蜜 有些辛酸 有些茫然' & Chr(10) & _
'——于坚《作品第16号》'
End If
Range('a3:b999').Font.Size = 20
Range('a3:b999').Font.ThemeColor = 1
End Sub