生成七彩文字

凝霜寒

功能：将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


工具下载

：

游客，如果您要查看本帖隐藏内容请回复

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

lili900

我来看看

lili900

wps可以用吗？

凝霜寒

原帖由 lili900 于 2009-1-5 10:52 发表
wps可以用吗？

没有试过

Louisa

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

whlzd255

的确不错的好插件。

思威特

近来学习下

不能为空

挺有意思

快乐开道

高人啊，多谢