请大神帮忙看一下

sdafasdsa

开始excle开发做的，后面用VB运行出现报错，需要怎么修改

Yalishanda30

截个图就能看出问题来？那就是神人了

sdafasdsa

Yalishanda30 发表于 2019-11-24 13:36
截个图就能看出问题来？那就是神人了

Dim C, arr

Private Sub ComboBox3_Change()
C = ComboBox3.ListIndex + 2
CommandButton1_Click
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox3.List = Array("10", "20", "30",)
arr = Sheet1.Range("A3:CT19999").Value
Me.ComboBox2.List = Array("厚度", "尺寸", "外经")
End Sub

Private Sub CommandButton1_Click()
Label8.Caption = ComboBox1.Text
On Error Resume Next
TextBox5.Text = ""
For i = 1 To 19999
  If arr(i, 1) = Val(TextBox1.Value) Then Exit For
Next i
TextBox5.Text = arr(i, C) / 1000
End Sub

sdafasdsa

Dim C, arr

Private Sub ComboBox3_Change()
C = ComboBox3.ListIndex + 2
CommandButton1_Click
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox3.List = Array("T1001", "T1002", "T1003",)
arr = Sheet1.Range("A3:CT19999").Value
Me.ComboBox2.List = Array("厚度", "尺寸", "外经")
End Sub

Private Sub CommandButton1_Click()
Label8.Caption = ComboBox1.Text
On Error Resume Next
TextBox5.Text = ""
For i = 1 To 19999
  If arr(i, 1) = Val(TextBox1.Value) Then Exit For
Next i
TextBox5.Text = arr(i, C) / 1000
End Sub

lh123lh1234

VBA提问这样问不行，明确：
运行条件以及报错类型
当然最好是有模拟数据附件

风筝那根线

还是上附件吧