生成七彩文字
功能:将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 编辑 ] 我来看看 wps可以用吗? 原帖由 lili900 于 2009-1-5 10:52 发表 http://www.luoan.cn/bbs/images/common/back.gif
wps可以用吗?
没有试过 不用一个一个字的设置了,漂亮,学习啦~ 的确不错的好插件。 近来学习下 挺有意思 高人啊,多谢
页:
[1]