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

zhyzhsh · 发表于 2010-3-21 21:47

原帖由 anniewehom 于 2010-3-21 10:00 发表
谢谢楼主哦，我也是最近开始学习VBA，
越是学习，越是发现，原来就单单EXCEL我就有这么多不懂得的，
我还是全公司，全班级里，EXCEL最厉害的，
惭愧呀，这里才是高手云集，而且，大家都有共享精神

请问这位兄弟究竟是工作了还是在上学？我怎么有点晕

apollokk · 发表于 2010-3-21 23:02

这个想法不错，给初学习者看别人的代码方便

uranus1997 · 发表于 2010-3-21 23:26

原帖由 kevinchengcw 于 2010-3-21 08:22 发表

我本来就不专业啊，如果你知道了我是干什么的你就不会这样说了，我的工作跟这个东西可以说一点关系都没有，只是个人兴趣尔矣，我觉得凡事不要想得太复杂了，不然什么都不敢做了，如果因为有windows了，那为什么还有人写unix,linux这些东西，因为大家的需求范围不同，你觉得不需要的可是很多新手很需要，我在初学的时候也想要一个这样的东西，毕竟可以让我大体消化一下，然后再对不甚理解的地方去看微软的帮助，不然每一个词都去翻帮助精力上会受不了，什么东西存在都有他存在的理由，请大家不要把咬文嚼字的功夫拿到这里来，谢谢

哦，没有说你的东西不好，既然是ldy版版推荐的，一定有它的好！我仅仅是对“编译器”的说法提出个人意见，如有冒犯，说声对不起。
PS：unix和linux系统并不是在Windows之后才有的。

[ 本帖最后由 uranus1997 于 2010-3-21 23:29 编辑 ]

renjunping · 发表于 2010-3-21 23:35

对楼主表示深深的感谢，同时支持楼主能够拓展功能

~

zxhmfk · 发表于 2010-3-22 13:06

又一手很好的学习资料啊~

caijiuhua · 发表于 2010-3-22 16:50

多谢楼主分享

mmqq · 发表于 2010-3-22 21:30

正合偶这种菜鸟使用，谢谢!

cyano · 发表于 2010-3-23 01:38

原帖由 kevinchengcw 于 2010-3-19 08:05 发表

请细说一下您所讲的高亮是指什么,对文本框中字符如何高亮显示还在研究中

不好意思，可能我说得有点笼统，我说的是语法高亮，像下面这样的效果。
（记得本论坛就有人做过类似这样的显示）

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With Worksheets("sheet1")
n = .Range("a65536").End(xlUp).Row '注释颜色
If TextBox1.Text <> "" Then
      If WorksheetFunction.CountIf(.Range("a1:a" & n), TextBox1.Text) > 0 Then
         TextBox2.Text = Cells(WorksheetFunction.Match(TextBox1.Text, .Range("a1:a" & n), 0), 2).Value
      Else
         TextBox2.Text = ""
      End If
End If
End With
End Sub

[ 本帖最后由 cyano 于 2010-3-23 01:50 编辑 ]

kevinchengcw · 发表于 2010-3-23 08:55

原帖由 cyano 于 2010-3-23 01:38 发表

不好意思，可能我说得有点笼统，我说的是语法高亮，像下面这样的效果。
（记得本论坛就有人做过类似这样的显示）

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Inte ...

这个对于我现在的技术能力来说还是有点难，我研究一下，尽力而为吧，谢谢支持

水涨船高 · 发表于 2010-3-23 09:19

真厉害，有时间能单独请教吗，我的qq:269908928

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

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

太谢谢了，你真好