hiê list trong combobox căn cứ vào textbox (1 người xem)

[jthanhtung]

anh chị giúp tôi đoạn code tôi cảm ơn, tôi có 1 textbox & 1 combobox, nếu đánh số 1 vào textbox thì trong combobox sẽ hiện 1, nếu đánh vào textbox số 2 thì sẽ hiện trong list combobox là 1 & 2, nếu 3 thì trong list của combobox là 1&2&3... cứ thế.

 

[doveandrose]

anh chị giúp tôi đoạn code tôi cảm ơn, tôi có 1 textbox & 1 combobox, nếu đánh số 1 vào textbox thì trong combobox sẽ hiện 1, nếu đánh vào textbox số 2 thì sẽ hiện trong list combobox là 1 & 2, nếu 3 thì trong list của combobox là 1&2&3... cứ thế.

hồi nhỏ mình có học đếm thấy trong hình là 11 textbox và 7 combobox

 

[jthanhtung]

sorry, tải nhầm file anh ơi, tôi resend file rồi, hihi

 

[ndu96081631]

anh chị giúp tôi đoạn code tôi cảm ơn, tôi có 1 textbox & 1 combobox, nếu đánh số 1 vào textbox thì trong combobox sẽ hiện 1, nếu đánh vào textbox số 2 thì sẽ hiện trong list combobox là 1 & 2, nếu 3 thì trong list của combobox là 1&2&3... cứ thế.

ComboBox mà hiện 1&2&3 nghĩa là thế nào nhỉ?
- Hiện chuỗi 123
- Hiện 1 List 3 phần tử
Tóm lại là sao?

 

[doveandrose]

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim num As Long, arr() As Long, n As Long
ComboBox1.List = Array()
If IsNumeric(TextBox1.Text) Then
    num = WorksheetFunction.RoundDown(TextBox1.Text, 0)
    If num > 0 Then
        ReDim arr(1 To num)
        For n = 1 To num Step 1
            arr(n) = n
        Next
        ComboBox1.List = arr
    End If
End If
End Sub

 

[ndu96081631]

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim num As Long, arr() As Long, n As Long
ComboBox1.List = Array()
If IsNumeric(TextBox1.Text) Then
    num = WorksheetFunction.RoundDown(TextBox1.Text, 0)
    If num > 0 Then
        ReDim arr(1 To num)
        For n = 1 To num Step 1
            arr(n) = n
        Next
        ComboBox1.List = arr
    End If
End If
End Sub

Nếu suy đoán của bạn là đúng ý tác giả thì tôi dùng cái này:

Private Sub ComboBox1_DropButtonClick()
  Dim n As Long, arr
  ComboBox1.Clear
  n = Val(TextBox1.Value)
  If n > 0 Then
    arr = Evaluate("ROW(1:" & n & ")")
    ComboBox1.List = arr
  End If
End Sub

 

[jthanhtung]

tôi cám ơn anh Doveadrose và sư phụ NDU rất nhiều,