凝霜寒 发表于 2009-1-5 10:18:50

生成七彩文字

功能:将Excel单元格中的字变七彩
使用方法:快捷键:Ctrl+Y
安装方法:将文件解压后置于以下文件夹:
OFFICE 2007:
C:\Program Files\Microsoft Office\Office12\STARTUP
OFFICE 2003:
C:\Program Files\Microsoft Office\Office11\STARTUP

代码如下:
Sub Q()
    Dim cell As Range, lens, temp As Byte
    For Each cell In Selection
      If VBA.IsNumeric(cell) Then cell = "'" & cell.Text
      For lens = 1 To Len(cell)
            temp = IIf((lens Mod 7) > 3, 3, 2) + ((lens - 1) Mod 7) + 1 - (lens Mod 7 = 0)
               cell.Characters(Start:=lens, Length:=1).Font.ColorIndex = temp
      Next lens
    Next cell
End Sub


工具下载

**** Hidden Message *****

[ 本帖最后由 godfrey0207 于 2009-1-5 10:27 编辑 ]

lili900 发表于 2009-1-5 10:46:16

我来看看

lili900 发表于 2009-1-5 10:52:46

wps可以用吗?

凝霜寒 发表于 2009-1-5 10:59:29

原帖由 lili900 于 2009-1-5 10:52 发表 http://www.luoan.cn/bbs/images/common/back.gif
wps可以用吗?


没有试过

Louisa 发表于 2009-1-5 11:21:57

不用一个一个字的设置了,漂亮,学习啦~

whlzd255 发表于 2009-1-5 11:26:30

的确不错的好插件。

思威特 发表于 2009-3-6 00:02:43

近来学习下

不能为空 发表于 2009-3-8 21:53:37

挺有意思

快乐开道 发表于 2009-3-11 09:46:46

高人啊,多谢
页: [1]
查看完整版本: 生成七彩文字