[源码全公开]让你在论坛发布彩色VBA代码

bj079 · 发表于 2009-9-17 23:12

真是太谢谢好老朽，下来学习。

第Ⅸ夜 · 发表于 2009-9-19 10:43

不知道是不是我操作系统的原因，工具栏米有啊

不知道该怎么搞了

第Ⅸ夜 · 发表于 2009-9-19 10:44

我用的是win7

第Ⅸ夜 · 发表于 2009-9-19 11:19

问题解决了，不用麻烦了

可是有个问题啊，我不太喜欢这个颜色风格，不知道该改什么地方

zldccmx · 发表于 2009-9-19 11:34

原帖由 第Ⅸ夜 于 2009-9-19 11:19 发表
问题解决了，不用麻烦了

可是有个问题啊，我不太喜欢这个颜色风格，不知道该改什么地方

你完全可以修改代码中颜色
代码中：
#FF0000　对应红色
#0000FF　对应蓝色
#007F00　对应绿色

'使用标签HTML来转换VBE程式码的颜色
Private Function HTMLColor(ByVal Color As Long, ByVal Text As String) As String
Dim Msg As String
Msg = Chr(60) & "SPAN style=""color:"
Msg = Msg & Choose(Color, "#FF0000", "#0000FF", "#007F00") & """>"
Msg = Msg & Text
Msg = Msg & "</SPAN> <SPAN style=""color:" & Choose(BLUE, "#FF0000", "0000FF", "#007F00") & """>"
HTMLColor = Msg
End Function

复制代码

第Ⅸ夜 · 发表于 2009-9-19 13:58

'使用标签HTML来转换VBE源码的颜色
Private Function HTMLColor(ByVal Color As Long , ByVal Text As String ) As String
Dim Msg As String
Msg = Chr(60) & "SPAN style=""color:"
Msg = Msg & Choose(Color, "#0000FF", "#000000", "#007F00") & """>"
Msg = Msg & Text
Msg = Msg & " "
HTMLColor = Msg
End Function

找到了，不过好像这个和代码不一样

Msg = Chr(60) & "SPAN style=""color:"
Msg = Msg & Choose(Color, "#0000FF", "#000000", "#007F00") & """>"
Msg = Msg & Text
Msg = Msg & " "
HTMLColor = Msg

Msg = Chr(60) & "SPAN style=""color:"
Msg = Msg & Choose(Color, "#0000FF", "#000000", "#007F00") & """>"
Msg = Msg & Text
Msg = Msg & "</SPAN> <SPAN style=""color:" & Choose(BLUE, "#0000FF", "#000000", "#007F00") & """>"
HTMLColor = Msg

[ 本帖最后由第Ⅸ夜于 2009-9-19 14:00 编辑 ]

第Ⅸ夜 · 发表于 2009-9-19 14:03

老朽同志真勤劳，都回复过了……，我还在那里找了半天

偶超级菜菜鸟…………

第Ⅸ夜 · 发表于 2009-9-19 14:31

我用的是win7，基于ie8.0的遨游浏览器。然后出现一个问题，程序必须要我在打开一个ie窗口（非遨游）之后才能执行，不知道是不是楼主的程序哪个地方可以改动一下，减少这个步骤。

alex1437 · 发表于 2009-9-19 15:37

'撰写:ALEX
'网址:http://Club.ExcelHome.net
'日期:2009-9-19 15:36:35
001:Sub Thanks()
002:x = "谢谢老朽"
003:End Sub

我也测试一下。

alex1437 · 发表于 2009-9-19 15:39

'撰写:ALEX
'网址:http://Club.ExcelHome.net
'日期:2009-9-19 15:38:20
001:Sub Thanks()
002:x = "谢谢老朽"
003:End Sub

行了吗？

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

[分享] [源码全公开]让你在论坛发布彩色VBA代码