██“录制宏”应用场合，欢迎大家参与。██

york888

感谢 Long_III

bsxysh

dl.lzc :谢谢你! Z97szhQz.rar (7.08 KB, 下载次数: 109)

2005-1-19 09:54 上传

点击文件名下载附件
“录制宏”应用场合，欢迎大家参与。

Long_III

学会入门的之后，买本基础书平时看

到程序版专心看（从早先的帖子看起）

再把VBA帮助大致看一遍

york888

做得已很好，有很大的进步！

bsxysh

谢谢鼓励.还没有入门哪!

ZPX

以下是引用dl.lzc在2005-1-18 21:15:00的发言：

大家好！应大家要求，我把我的动画制作过程写成一篇Wed文档，图文并茂，可能对大家有所帮助

真详细啊，一定是费了不少工夫。

晚羽纱罗

上面的都会，但是这个下面的开始就不懂了，不知道这是怎么改的？？？？？

现在将它修改一下，去掉多余的部分：

“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

以上是缩小的过程

yyz-no1

请上传个动画上来吧？让我们菜鸟见识一下

york888

从第一帖看起，里面有动画．

dl.lzc

欢迎晚羽纱罗

Sheets(1).Range("A1").Font.Size = 14

sheet(1)表示sheet1工作表，Range表示单元区域，Range("A1")表示“A1”单元格；Font就是字体，是单元格的一个属性，合在一起就代表第一张工作表中“A1”单元格的字体属性，Font有很多属性,Size是其中一个，代表大小。