Question

怎么在EXCEL中用宏设置字体变成大小不一错落有致

这个宏在WORD 中有效，复制到EXCEL 中就没用了！怎么解决、。
''四号与三号间之间可以取的值：14 14.5 15 15.5 16
Dim R_Character As Range
Dim myFontSize As Single
Application.ScreenUpdating = False
For Each R_Character In ActiveDocument.Characters
VBA.Randomize
myFontSize = Choose(Int(VBA.Rnd * 5) + 1, "14", "14.5", "15", "15.5", "16")
R_Character.Font.Size = myFontSize
'位置，同理自己改
'R_Character.Font.Position = Int(VBA.Rnd * 5) + 1
'字间距， 同理自己改
'R_Character.Font.Spacing = Int(VBA.Rnd * 5) + 1
Next
Application.ScreenUpdating = True
' RandVBA 宏
'

Answer 1

录制宏其实很简单，视图>宏>录制宏>在名称框给宏定义个名字>确定，然后开始设置你所需要的字体大小，一步一步的完成后点击停止录制，然后你查看宏，点到你定义的名字上双击或运行宏，也就得到你在录制时所要得到的效果，如果需要设置的单元格或是字体是有规律的，那么也可以试着用for，这样也许比你一个一个的写要快的多，如果是经常需要这样去设置字体，不妨给录制的宏使用快捷键。

追问

然后开始设置我所要的字体大小， 一步一步完成，，我根本不知道怎么设置

Answer 2