祝大家狗年大吉
最新
02-18
春節快樂
公眾號自運營以來,得到了大家的廣泛認可。收到了好多小夥伴在後台的留言支持。在此特別感謝!
春節到了,翰博在這裡祝249位關注的小夥伴春節快樂!
對於一個技術宅,除夕夜也想用VBA給大家一個特別的推送。
煙花鞭炮的氛圍中,給大家用VBA做了一個新年禮物。
GIF
新的一年也希望大家繼續支持關注本公眾號。
祝大家新的一年事業更上一層樓!
新的一年VBA水平更上一層樓!
源碼奉上:
Sub er()
num = Worksheets(2).Range("a1").End(xlDown).Row
num1 = Int((num * Rnd) + 1)
Worksheets(1).Cells(6, "k") = Worksheets(2).Cells(num, 1)
Worksheets(1).Cells(10, "i") = Worksheets(2).Cells(num, 2)
Worksheets(1).Cells(10, "o") = Worksheets(2).Cells(num, 3)
End Sub
附件鏈接:https://pan.baidu.com/s/1c4cwO9a密碼:cms5
TAG:全球大搜羅 |