文章分类 -  VBA

VBA
摘要:1 数组 1.1 静态数组 Sub static_arr() '静态数组 Dim a(10) As Integer ' Dim a(0 To 10) As Integer'与上一种定义方法相同 For i = 0 To 10 a(i) = i * 15 Next MsgBox a(3) End Su 阅读全文
posted @ 2023-09-15 11:51 sewen 阅读(776) 评论(0) 推荐(0)
摘要:方法一:使用WorkSheet对象的UsedRange属性直接获取: 最大行号 = ActiveSheet.UsedRange.Rows.Count 方法二:使用Range对象的End属性间接获取: 选择一个远离使用范围的单元格,如:Range("A10000"),按下“End+方向上”,选区就会自 阅读全文
posted @ 2023-09-04 11:11 sewen 阅读(35) 评论(0) 推荐(0)
摘要:1.VBA减少缩进量:shift+tab Sub Mycode() Dim i As Integer Dim isbool As Boolean Dim a As String For i = 2 To 10 a = Cells(i, 1).Value MsgBox a isbool = Cells 阅读全文
posted @ 2023-09-01 10:08 sewen 阅读(112) 评论(0) 推荐(0)