首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

祝大家狗年大吉

春节快乐

公众号自运营以来,得到了大家的广泛认可。收到了好多小伙伴在后台的留言支持。在此特别感谢!

春节到了,翰博在这里祝249位关注的小伙伴春节快乐!

对于一个技术宅,除夕夜也想用VBA给大家一个特别的推送。

烟花鞭炮的氛围中,给大家用VBA做了一个新年礼物。

新的一年也希望大家继续支持关注本公众号。

祝大家新的一年事业更上一层楼!

新的一年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

  • 发表于:
  • 原文链接http://kuaibao.qq.com/s/20180215G0R6RJ00?refer=cp_1026
  • 腾讯「腾讯云开发者社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 cloudcommunity@tencent.com 删除。

扫码

添加站长 进交流群

领取专属 10元无门槛券

私享最新 技术干货

扫码加入开发者社群
领券