我想改变我的组合框选择的值为相同的值,在文本框中的按钮单击。例如,如果我将"IT公司“写到文本框中,我希望将组合框选择的值更改为与文本框相同的值,也就是"IT公司”。
我试过这样的方法:
private sub button_click()
Dim i As Long
Dim s As Long
with myCombo
For i = 0 To .ListCount
If .ItemData(i) = Me.txtBox.value Then
s = i
End If
Next i
Me.myCombo.Value = s
end with
但是我的组合框最后没有选择
我有两个文本框,两个日期分别在两个框中键入。我希望宏遍历一列日期,并在文本框中键入的两个日期之间隐藏所有而不是的日期。第一个文本框日期应该在过去比第二个文本框日期更远。
我有以下代码:
Set ws2 = Sheets("Test")
Dim StartDate As String
Dim EndDate As String
ws2.Range("G2").Value = TXTDate1.Text
ws2.Range("G3").Value = TXTDate2.Text
StartDate = ws2.Range("G2"
对于文本框,什么是.RowSource?
例如,我使用以下方法分配了一个ComboBox值:
With Forms("fmOne").SearchLname
.RowSource = "SELECT DISTINCT(LName) From tbCase;"
Call .Requery
End With
有等效的文本框吗?
谢谢。