[原创]教你生成七彩字

andysky · 发表于 2007-9-4 10:27

效果

Ke34Gv68.rar (9.14 KB, 下载次数: 301)

代码：

QUOTE:

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

[此贴子已经被作者于2008-2-11 9:05:55编辑过]

yoka · 发表于 2007-9-4 10:32

谢谢，版主分享！

LangQueS · 发表于 2007-9-4 10:41

谢谢andysky版主！

even8267 · 发表于 2007-9-4 10:47

这个不是基础应用啦，谢谢分享啊

yangjia1980 · 发表于 2007-9-4 11:13

我们公司老卡肯定喜欢这种花里胡哨的东西

xxhacker · 发表于 2007-9-4 11:58

谢谢分享

zly19880808 · 发表于 2007-9-4 13:52

好看啊

zz5151353 · 发表于 2007-9-4 14:17

謝謝版主提供分享 !!!
[em23][em23][em23]
[em24][em24][em24]
[em27][em27][em27]

lfspecter · 发表于 2007-9-4 15:05

但是执行完所有的数字就变成文本格式了

luo159 · 发表于 2007-9-4 15:16

QUOTE:

以下是引用lfspecter在2007-9-4 15:05:43的发言：
但是执行完所有的数字就变成文本格式了

1.数字是不可以多色显示的。

2.文本型数据仍然可以参与运算

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