我的测试人生........
【转】VB脚本的代码小知识汇总
上一篇 /
下一篇 2013-01-12 14:28:18
/ 个人分类:软件开发
'**********功能实现Excel中有多少sheet总数**********
Sub summary()
'定义变量
Dim count '统计Excel中Sheet总数变量
For Each sh In ThisWorkbook.Worksheets
count = count + 1
Next sh
MsgBox count
End Sub
'**********功能实现Excel中有所有Sheet页中位于单元格1行1列的数值**********
Sub summary()
'定义变量
Dim cell As String '输出的单元格数值变量
Dim Row As Integer '定义行变量
Row = 1
For Each sh In ThisWorkbook.Worksheets '当前Excel脚本中默认的方法和对象。
cell = sh.Cells(Row, 1).Value
MsgBox cell
Next sh
End Sub
'**********功能实现Excel中有对应Sheet1页的处理**********
Sub summary()
'定义变量
Dim cell As String '输出的单元格数值变量
Dim Row As Integer '定义行变量
Row = 5 '给初始行赋值
While Sheet1.Cells(Row, 3) <> "" '直接显示当前Excel也,就可以应用对应的名称,例如:Sheet1
MsgBox Cells(Row, 3)
Row = Row + 1
Wend
End Sub
收藏
举报
TAG: