将选中的普通数字转化成带圈字符（四种方式）

徒然客

奥秘全部在附件的那张图片里面
不过这种方法现在只能做到1-2风格的1-20，3-4风格的1-10.


Public Sub 改成带圈字体()
Dim rng, cell As Range
Dim num, i As Double
num = 0    ' 设置变量初值。

i = InputBox("请输入转化的方式", "特殊数字", 1)
Select Case i
    Case 1
        i = 41600
    Case 2
        i = 41620
    Case 3
        i = 41652
    Case 4
        i = 41640
    Case Else
        i = 0

End Select

Set rng = Selection
For Each cell In Selection '.SpecialCells(xlCellTypeConstants)
On Error Resume Next
num = cell
If num > 0 And num <= 10 Then
num = num + 48 + i
cell = Chr(num)

ElseIf num >= 10 And num <= 20 And i <= 41620 Then
num = num + 48 + i
cell = Chr(num)
Else
End If



Next
On Error Resume Next

End Sub

[ 本帖最后由 徒然客 于 2009-6-19 21:05 编辑 ]

LAOMALIN

楼主辛苦了

alkane

受益匪浅啊！