|
bsxysh 你好， 首先，在A1单元格中，输入“大家好！”，然后，开始录制一个宏 第一步，点击“工具”-“宏”--“录制新宏”，弹出“录制新宏”对话框，“把宏名”改成“字体”确定，从现在开始，你做的一切都会记录在宏“字体”中 第二步，我们设置字体大小为14，颜色为红色，点击“停止录制宏”按钮。 第三步，按Alt+F11,切换到Visual Baisc编辑窗口，可以看到窗口左侧有一个“工程资源管理器”窗口，里面有你用的文件名，这就是，你使用文件的结构，其中有一个文件夹，叫“模块”，打开它，下面有一个“模块1”“模块2”等，如果，你是第一次录制宏的话，那么，只有“模块1”一个，双击它，在右侧的窗口中就可以看到刚刚录制的内容了。现在，看看我录制的内容： “ Sub 字体()
'
' 字体 Macro
' 记录的宏 2005-1-18
' '
Range("A1").Select
With Selection.Font
.Name = "宋体"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 6
End With
Selection.Font.ColorIndex = 3
End Sub” 现在将它修改一下，去掉多余的部分： “sub 字体（） Sheets(1).Range("A1").Font.Size = 14 '把第一张表的“A1”单元格的字体大小设置成14号
Sheets(1).Range("A1").Font.ColorIndex = 3 '把第一张表的“A1”单元格字体颜色设置成3 即红色
End Sub” 这只是我们需要的两条语句，它现在不能动起来，这时就需要VBA的知识了，我把修改完成的代码公布如下，慢慢研究吧： For i = 12 To 72 '设置字体为12到72
For j = 1 To 200000: Next j '设置时间间隔
Sheets(1).Range("A1").Font.Size = i '设置字体大小
Sheets(1).Range("A1").Font.ColorIndex = i / 2 '设置颜色
Columns("A:A").AutoFit '自动调节A列宽度
Rows("1:1").AutoFit '自动调节第一行高度
Next i 以上是放大的过程
For i = 72 To 12 Step -1 '设置字体从72到12
For j = 1 To 200000: Next j
Sheets(1).Range("A1").Font.Size = i
Sheets(1).Range("A1").Font.ColorIndex = i / 2
Columns("A:A").AutoFit
Rows("1:1").AutoFit
Next i 以上是缩小的过程 | 
楼主: york888
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2005-1-9 12:34
楼主
