Excel For i = 2 To UBound(Arr)这个类型不匹配-

kensu_2009

Private Sub CommandButton1_Click()
  With Me.ListBox2
  If Me.TextBox1 = "" Then Exit Sub
  te = Me.TextBox1.Text
  Dim n%
  n = 1
  Me.Height = 320
  Dim arrnew
  ReDim arrnew(1 To 7, 1 To 1)
  arrnew(1, 1) = "NO"
  arrnew(2, 1) = "姓名"
  arrnew(3, 1) = "身份证号码"
  arrnew(4, 1) = "手机号"
  arrnew(5, 1) = "有效工时"
  arrnew(6, 1) = "餐费"
  arrnew(7, 1) = "工资"
  For i = 2 To UBound(arr)
      If arr(i, 1) Like te Then
          n = n + 1
          ReDim Preserve arrnew(1 To 7, 1 To n)
          arrnew(1, n) = arr(i, 1)
          arrnew(2, n) = arr(i, 2)
          arrnew(3, n) = arr(i, 3)
          arrnew(4, n) = arr(i, 4)
          arrnew(5, n) = arr(i, 5)
          arrnew(6, n) = arr(i, 6)
          arrnew(7, n) = arr(i, 7)
      End If
  Next i
  arrnew = WorksheetFunction.Transpose(arrnew)
  With Me.ListBox2
      .ColumnCount = 7
      .ColumnWidths = "20,30,70,50,40,40,40"
      .List = arrnew
    End With
    End With
    End Sub

kensu_2009

求大神帮忙解决一下

kensu_2009

Private Sub CommandButton1_Click()
  With Me.ListBox2
  If Me.TextBox1 = "" Then Exit Sub
  te = Me.TextBox1.Text
  Dim n%
  n = 1
  Me.Height = 320
  Dim arrnew
  ReDim arrnew(1 To 7, 1 To 1)
  arrnew(1, 1) = "NO"
  arrnew(2, 1) = "姓名"
  arrnew(3, 1) = "身份证号码"
  arrnew(4, 1) = "手机号"
  arrnew(5, 1) = "有效工时"
  arrnew(6, 1) = "餐费"
  arrnew(7, 1) = "工资"
  For i = 2 To UBound(arr)
      If arr(i, 1) Like te Then
          n = n + 1
          ReDim Preserve arrnew(1 To 7, 1 To n)
          arrnew(1, n) = arr(i, 1)
          arrnew(2, n) = arr(i, 2)
          arrnew(3, n) = arr(i, 3)
          arrnew(4, n) = arr(i, 4)
          arrnew(5, n) = arr(i, 5)
          arrnew(6, n) = arr(i, 6)
          arrnew(7, n) = arr(i, 7)
      End If
  Next i
  arrnew = WorksheetFunction.Transpose(arrnew)
  With Me.ListBox2
      .ColumnCount = 7
      .ColumnWidths = "20,30,70,50,40,40,40"
      .List = arrnew
    End With
    End With
    End Sub

请大神帮忙看看红色的部分出错是什么原因

answer6141

arr没定义

abc123281

数组arr没有赋值   必然报错

kensu_2009

answer6141 发表于 2020-1-27 00:20
arr没定义

还请大神帮忙修改一下，万分感谢

kensu_2009

abc123281 发表于 2020-1-27 00:28
数组arr没有赋值   必然报错

还请大神帮忙修改一下，谢谢

网海遨游

最好是有个附件，有附件才有真相。


数组arr是不是先要获取数据源的值？即：先要对arr赋值。

网海遨游

未见附件，猜一下。仅供参考：

dim arr
arr=sheets("表名").[a1].currentregion'这里"表名"要换成你自已的表名。

kensu_2009

网海遨游 发表于 2020-1-27 08:29
未见附件，猜一下。仅供参考：

dim arr

已解决，非常感谢