自学资料（Excel VBA）[收集整理11]

展开全文

默认分类 2009-08-01 12:07 阅读48 评论0

字号：大中小小

68、在VBA开发环境中，点击工具――附加控件，出现如下窗口：

在可选控件中选择microsoft orogressbar control,再点击确定，这时，你会发现在你的工具箱中增加了进度条工具，如图：

下面说说进度条的用法：
属性：Max：　设置进度条控件的最大值
Min：设置进度条控件的最小值
　　Value：设置进度条控件对象的当前值
Scrolling: 进度条的式样，即一格一格的进度条或是没有间隔的进度条。
例子：Private Sub UserForm_Activate()
For i = 1 to 5000
ProgressBar1.Max = 5000 ‘设置进度条控件的最大值
ProgressBar1.Value = I ‘进度条控件对象的当前值
next
End Sub
在程序中加入进度条的办法是将ProgressBar1.Max=最大值，ProgressBar1.Value = 当前值放入循环中去。
69、 Excel是一个优秀的电子表格软件，如果你编的程序需要以报表的形式显示最终结果，它会是个不错的选择。你可以通过VB控制Excel显示数据表格。如果你不愿意深入了解Excel这些琐碎的细节，也不是没有权宜之计：你可以打开Excel中的工具→宏→录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你的VB程序就行。这样得到的程序一般都能正常运行，但其中的宏代码往往不够简洁，效率和可读性都不高。
　　 Excel编程碰到的第一个问题是表头。有时表头的形式比较复杂，需要横向或纵向合并单元格。请放心，只要没有斜杠，Excel都能应付得了。
　　例如合并A2~A5这4个单元格，你录制的宏代码会是这样：
Range("A2:A5").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
　　而自己编程只要一句 Range.(“A2:A5”).mergecells=True 就可以解决问题。
　　表头形式定了，再就是表头的内容。如果单元格中的文本长度超过了列宽，往往只能显示部分内容，行尾那一格的内容则会“越境”进入右边那个空白单元格，很不美观。这个问题可以通过在程序中设置列宽加以解决。
　　 Columns(14).columnwidth=12 ‘设置第14列列宽为12（缺省列宽为8.38）
　　如果你不愿意劳神去逐列估计实际所需的列宽，干脆来一行
　　 Columns(“a:i”).autofit ‘a到i列自动调整列宽
　　让Excel随机应变吧。
　　但也许你不喜欢这种方法，认为表头撑大了列宽，弄得浏览一张小表格还得向右滚动，太不方便了。要是能保持默认列宽，让文本自动换行就好了。没问题，Excel包你满意。
　　 Rows(3).WrapText=True ‘让第三行各单元格中的文本自动换行
　　不过你最好再加一句 Rows(3) .VerticalAlignment = xlTop 让表头自动向上对齐，这样比较符合习惯。
　　你还可以给表头打上底色，让你的读者不至于看了打哈欠。
　　 Rows(2). Interior .ColorIndex = 5 设置第2行底色为蓝色
　　再给表格的标题上色，这样更醒目一点。
　　 Rows(1).Font.ColorIndex=4
　　表头完成后该填数据了，一个一个地填实在是太? ，如果你的数据是存放在一个二维数组中，那问题就简单多了。
Dim Data(3,4)
………… ‘数据处理
Range(“a2:d4”).Value=Data
　　这样可以一次填入一个表的所有数据，够快了吧！不过提醒一句，Range对象大小最好与数组匹配，小了无法显示所有数据，大了则会在空白单元格只填入“N/A”表示没有取得数据。
　　如果需要在结果中显示多个同样规格的数据表，想在Range对象中加入循环变量，这也好办。
Dim cell11,cell2
Dim Data(3,4)
…………
For I =1 to 40
………… ‘数据处理
Set cell1=Worksheets("Sheet1").Cells(5*I-4,1)
Set cell2=Worksheets("Sheet1").Cells(5*I-2,4)
Worksheets("Sheet1").Range(cell1,cell2).value=Data
Next I
　　表格填完了，现在该打表格线了，以下几条语句可以满足你的要求：
With Worksheets("Sheet1").Range(cell1,cell2).borders
.LineStyle=xlContinuous
.weight=xlThin
End With

转载自 http://bbs./showtopic-169943.aspx