抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

gunkinger · 发表于 2011-1-3 14:13

感谢LZ分享
对我等新手而言很重要

chenai0812 · 发表于 2011-1-3 21:43

好东西~好好学习~感谢LZ

12个英文字母 · 发表于 2011-1-4 10:36

不懂，但是顶了！

vsjr · 发表于 2011-1-4 14:00

很好!我正好需要

dwhzy · 发表于 2011-1-4 16:31

我竟然不知道有这么好的东西……对楼主表示感谢。

zl511462 · 发表于 2011-1-4 18:25

好想学VAB，但，感觉好难···嗯，努力努力

qhllqhll · 发表于 2011-1-4 20:46

老师：提示 找不到工程库 是怎么回事啊
Public Sub 获取窗名()
Dim m%
'在窗体或控件中调用(返回可用代码窗信息)
If Application.VBE.ActiveVBProject.Protection = 1 Then Exit Sub
MainWindow.ComboBox1.Clear
With ActiveWorkbook.VBProject.VBComponents
      For i = 1 To .count
         m = ActiveWorkbook.VBProject.VBComponents(i).CodeModule.CountOfLines
         If MainWindow.CheckBox1.Value = True Then
            MainWindow.ComboBox1.AddItem .Item(i).Name '返回代码窗名称
         Else
            If m > 0 Then '判断不是空模块，则添加
                  MainWindow.ComboBox1.AddItem .Item(i).Name '返回代码窗名称
            End If
         End If
      Next i
      MainWindow.ComboBox1 = .Item(.count).Name
End With
End Sub

[ 本帖最后由 qhllqhll 于 2011-1-4 20:56 编辑 ]

wj690000 · 发表于 2011-1-5 00:26

支持一下楼主的共享精神

zzaayy2010 · 发表于 2011-1-5 09:14

分享了，谢谢楼主的无私奉献。

zzaayy2010 · 发表于 2011-1-5 09:19

分享了，就是看不懂耶，有能最初的开始的吗？

		自动登录	找回密码
密码			免费注册

[分享] 抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

回复 1412楼 hhzjxss 的帖子