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

(0)

相关推荐