以下Test,執行一次,activesheet英文全部改為"大楷,再執行一次英文全部改為"小楷"
Sub LUcase(A As Boolean)
Dim R As Range
Dim R1 As Range
Dim R2 As Range
Dim cell As Range
Dim cell1 As Range
For Each cell In ActiveSheet.UsedRange.Areas
Set R1 = cell.Resize(, 1)
Set R2 = cell.Resize(1)
If A = True Then
cell = Evaluate("IF(ROW(" & R1.Address & "),iF(COLUMN(" & _
R2.Address & "),upper(" & cell.Address & ")))")
Else
cell = Evaluate("IF(ROW(" & R1.Address & "),iF(COLUMN(" & _
R2.Address & "),lower(" & cell.Address & ")))")
End If
Next cell
End Sub
Sub test()
Static A As Boolean
LUcase A
A = Not A
End Sub作者: GBKEE 時間: 2013-7-16 08:39