-excel vba 字号,excel vba实例教程

ALT+F11打开VBA编辑窗口,插   入一个模块,粘贴下面的代码,然后关闭VBA编辑窗口,返回工作表窗口,按ALT+F8打开宏窗口,选中aa这个宏(如果需要可以点击快捷键按钮设e5a48de588b6e799bee5baa6e997aee7ad94338置一个快捷键),点击执行,附件是一个例子,

Sub aa()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange
    If Rng.Value Like "(*,*)*" Then
        n = InStr(Rng.Value, ")")
        For i = n + 1 To Len(Rng.Value)
            istr = Mid(Rng.Value, i, 1)
            If istr Like "#" Then
                m = i
            Else
                Exit For
            End If
        Next
        Rng.Characters(n + 1, m - n).Font.Size = Rng.Font.Size - 2
    End If
Next
End Sub

本文标签：excel vba实例教程(86)excel vba 字号(1)