亲,保存的时候只要保存为97-03格式的就好了,宏和excel会自动保存再一起的。现在新版本都是使用 xlsm(启用宏的excel).
附:
换色宏
Sub 代码着色()
For i = 1 To 30
Cells(i, 2).Select
For x = 1 To Len(Cells(i, 2))
If Mid(Cells(i, 2), x, 3) = "int" Then
ActiveCell.Characters(Start:=x, Length:=3).Font.ColorIndex = 5
End If
Next
Next
End Sub
多分享,多受益。
我为人人,人人为我。
赠人玫瑰,手留余香。