VBA
iteye_5121
这个作者很懒,什么都没留下…
展开
-
【Excel2013教程】如何破解vba工程密码
人经常从网上下载别人的一些Excel学习vba编码,不过有些人为了避免别人盗用所以给代码加了密码,其实这个密码破解起来很假单,下面我就跟大家分享一下如何破解vba工程代码:[img]http://hiphotos.baidu.com/exp/pic/item/647912d7912397dd3a331c0b5882b2b7d0a2873c.jpg[/img]将你要破解的Excel文件关...原创 2013-12-05 13:28:33 · 1376 阅读 · 0 评论 -
自己写的用VBA进行两个sheet页中的数据对比
[color=red]两个sheet页分别命名“Sheet700”,“Sheet800”。判断"Sheet700”sheet中的数据是否在“Sheet800”中存在,不存在标蓝色。存在的场合,“Sheet800”sheet中的数据和“Sheet700”的2~41行比较,不一样标注青色,并在最前面标注黄色。[/color][code="VBA"]Sub Macro3()D...2014-05-22 14:30:20 · 5596 阅读 · 0 评论 -
VBA 如何计算一段代码运行需要的时间?
VBA 如何计算一段代码运行需要的时间?[code="java"]Private Sub Form_Load() Dim sngStart As Single sngStart = Timer '循环代码 Debug.Print "耗费时间: " & Timer - sngStart[/code]更精准[code="java"]P...原创 2014-05-22 14:37:26 · 6422 阅读 · 0 评论 -
VBA做的简易猜拳
[code="vba"]Private Sub CommandButton1_Click()Label4.Caption = "石"Call run(1)End SubPrivate Sub CommandButton2_Click()Label4.Caption = "剪み"Call run(2)End SubPrivate Sub Comma...2014-06-04 19:18:26 · 485 阅读 · 0 评论 -
VBA做的简易猜拳(增加胜率统计)
[code="VBA"] Dim V1, V2, V3 As Integer '石头按钮触发Private Sub CommandButton1_Click()Label4.Caption = "石"Call run(1)End Sub'剪刀按钮触发Private Sub CommandButton2_Click()Label4.Caption = "剪...原创 2014-06-05 10:30:20 · 253 阅读 · 0 评论