请老师帮我看看，我这个代码执行时，没有结果的问题

7016427

Private Sub CommandButton1_Click()
With Sheets("票库")
.Visible = -1
Dim i%
For i = 2 To 94
If .Range("a" & i) = ComboBox2 And .Range("b" & i) = ComboBox1 Then
.Range("x" & i).Value = TextBox1.Value ' 这句没有起作用
End If
Next
.Visible = 2
End With
Unload Me
End Sub
-------------------------------------Private Sub UserForm_Initialize()
ComboBox1.AddItem "电子软纸票"
ComboBox1.AddItem "人工磁卡票"
ComboBox1.AddItem "自动磁卡票"
ComboBox2.AddItem "30001"
ComboBox2.AddItem "00001"
ComboBox2.AddItem "00003"
ComboBox2.AddItem "00004"
End Sub

phsu

.Range("x" & i).Value = TextBox1
或
.Range("x" & i).Value = TextBox1.Text

kimmyyang

可以试试楼上的，因为窗体的取值不能用Value属性

7016427

phsu 发表于 2019-5-24 14:24
.Range("x" & i).Value = TextBox1
或
.Range("x" & i).Value = TextBox1.Text

您好！我按此方法测试仍然不行！

7016427

谁能帮我解决这个难题！

phsu

If .Range("a" & i) = ComboBox2.Value And .Range("b" & i) = ComboBox1.Value Then
.Range("x" & i).Value = TextBox1.Text
End If

大灰狼1976

combobox里面的数字是字符串，不能直接用，可以简单修改代码如下：

1. Private Sub CommandButton1_Click()
   
2. With Sheets(1)
   
3. Dim i%
   
4. For i = 2 To 94
   
5. If .Range("a" & i) = Val(ComboBox2) And .Range("b" & i) = ComboBox1 Then
   
6.   .Range("x" & i) = TextBox1
   
7. End If
   
8. Next
   
9. End With
   
10. Unload Me
    
11. End Sub

复制代码

或者把A列的数字全部改成字符型格式，不修改代码也可以。
另外，不要太纠结于.value和.text，除了必要的地方，我一般都省略。

7016427

谢谢老师指导！