知天下,分类信息

excel vba数组如何引用变量? excel vba 数组

excel vba数组如何引用变量?excel vba 数组

Excel vba 数组名称中如何使用变量

把你需要使用变量名称的数组放到另一个数组里,使用数组中的数组就行了。

在VBA中怎样引用变量

例如:

Private Sub Command1_Click()

Dim i As Long, j As Long

i = 1

j = i

End Sub

vba 函数怎么引用名称为变量工作表

使用Sheets可以按名称和序号引用,例如:

MsgBox Sheets(2).Name

MsgBox Sheets("汇总").Name两个语句都可以正确执行,但是当没有【汇总】工作表的时候会报错。

vba函数引用变量

亲测以下方式可行 Sub test() Dim ColName1 As String, ColName2 As String, ColNum As Long, a() As Long Dim i As Integer, j As Integer ReDim a(1 To 5, 1 To 2) For i = 1 To 5 '给aa数组赋值 For j = 1 To 2 a(i, j) = i * j Next Next For i = 4 To 10 Step 3 '从4列即“d”列开始 ColNum = i * 1 '起始列的变量表示 ColName1 = GetExcelColumn(i * 1) '起始列变量名称 ColName2 = GetExcelColumn(i * 1 + 1) '终止列变量名称 Sheets("Sheet1").Range(ColName1 & "1:" & ColName2 & "5") = a '将数组a赋值到 Range:D1:E5, G1:H5,J1:K5 Next End Sub Function GetExcelColumn(columnNumber As Long) Dim div As Long, ColName As String, modulo As Long div = columnNumber: ColName = vbNullString Do While div > 0 modulo = (div - 1) Mod 26 ColName = Chr(65 + modulo) & ColName div = ((div - modulo) / 26) Loop GetExcelColumn = ColName End Function

标签: #数组 #变量