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

bj079

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

第Ⅸ夜

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

不知道该怎么搞了

第Ⅸ夜

我用的是win7

第Ⅸ夜

问题解决了，不用麻烦了

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

zldccmx

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

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

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

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

复制代码

第Ⅸ夜

'使用标签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 编辑 ]

第Ⅸ夜

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

偶超级菜菜鸟…………

第Ⅸ夜

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

alex1437

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

我也测试一下。

alex1437

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

行了吗？