在VBA中，数组可分为固定数组和动态数组，也称为静态数组和动态数组。我们之前所定义的数组，都是静态数组。静态数组的特点是具有大小的数组。当我们事先知道数组的大小，我们可以直接声明为静态数组。固定数组定义方法：DIM 数组名（<下届>TO<上届>）。
Private Sub CommandButton3_Click() Dim dStr As String If Not VBA.IsObject(dic) Then Exit Sub If dic Is Nothing Then Exit Sub If Me.ListBox1.ListIndex < 0 Then Exit Sub If Me.ListBox1.Value = Null Then Exit Sub If dic.exists(VBA.CInt(Me.ListBox1.Value)) Then '如果存在键 dStr...
Add Key, Item '通过值取得,修改item Range("A1") = dic(key) dic(key) = 200 '通过作为key存入字典,去掉重复值,keys取出 For i = LBound(arr) To UBound(arr) If arr(i, 2) = Me.ListBox1.Value Then dic(arr(i, 3)) = 1 End If Next Me.ListBox2.List = dic.keys 语句 简写语句 ...
'声明并创建ArrayList Dim alArrList As Object Set alArrList = CreateObject("System.Collections.ArrayList") '添加字典元素到ArrayList Dim k As Variant For Each k In dict alArrList.Add k Next k '按键排序 alArrList.Sort '如果指定为降序,则按降序排序 If order = xlDescending Then alArrList.Reve...
通过list属性来对组合控件进行赋值。这里调用了一个自定义函数。函数代码：Public Function GetComList(xStr As String) '返回列表 Dim xLrr, xi As Integer ReDim xLrr(0)xStr = VBA.UCase(VBA.Trim(xStr))If VBA.Len(xStr) = 0 Then '如果是查找空值 xLrr(0) = ""GetComList = xLrr Erase xLr...
Function Pxy(arr(), Field As String) Pxy = Application.WorksheetFunction.Match(Field, arr, 0)End Function 三、数组在用户窗体控件中的应用，昨天没有讲完，今天就再补充一些吧。1、把数组赋值给复合框的List Dim arr()arr = Array(1, 2, 3, 4, 5, 6)Me.ComboBox1.List = arr 或者循环数组...
通过list属性来对组合控件进行赋值。 这里调用了一个自定义函数。 函数代码: Public Function GetComList(xStr As String) '返回列表 Dim xLrr, xi As Integer ReDim xLrr(0) xStr = VBA.UCase(VBA.Trim(xStr)) If VBA.Len(xStr) = 0 Then '如果是查找空值 ...
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)If Me.ListBox1.ListCount <= 0 Then Exit SubDim xFileName As StringxFileName = Me.ListBox1.TextWith Me.WindowsMediaPlayer1.URL = xFileName.Controls.PlayEnd WithEnd Sub 上述代码是列表双击事件，可以根据双击的视频文件实现播放...
Dim strList As String Dim i As Integer strList = "iInput1=" & iInput1 & vbCrLf For i = 0 To UBound(argArr) On Error Resume Next strList = strList & "argArr(" & i & ")=" & argArr(i) & vbCrLf ' 如果参数为空,将生成错误 ...
Set li = list.ListSubItems.Add(Text:=Cells(i, 3))'对对象集合list再增加新的一列 Next i 注意:SubItems和ListSubItems的区别,SubItems是一个string类型的数组,ListSubItems是一个集合。 6.删除行 这里就用到之前设置的key,行标识来标识行。