Lấy giá trị của textbox (1 người xem)

[hnluanutc]

em chào mọi người e đang tạo 1 userform tính với yêu cầu của em là khi nhập vào giá trị textbox đầu tiên giá trị combobox sẽ tương ứng và khi thay đổi combobox thì các giá trị textbox bên dưới sẽ nhận các giá trị tương ứng ,vậy cần viết đoạn code như nào ạ mọi người giúp em với ạ em cảm ơn

 

[mhung12005]

em chào mọi người e đang tạo 1 userform tính với yêu cầu của em là khi nhập vào giá trị textbox đầu tiên giá trị combobox sẽ tương ứng và khi thay đổi combobox thì các giá trị textbox bên dưới sẽ nhận các giá trị tương ứng ,vậy cần viết đoạn code như nào ạ mọi người giúp em với ạ em cảm ơn

Bạn thử sub này xem:

Private Sub txtBo_Change()
Dim a As Long, i As Long, Arr()
UserForm1.cmbbo.Clear
a = CLng(UserForm1.txtBo.Text)
For i = 1 To a Step 1
ReDim Preserve Arr(1 To i)
Arr(i) = i
Next
UserForm1.cmbbo.List() = Arr
End Sub

 

[ec ec]

em chào mọi người e đang tạo 1 userform tính với yêu cầu của em là khi nhập vào giá trị textbox đầu tiên giá trị combobox sẽ tương ứng và khi thay đổi combobox thì các giá trị textbox bên dưới sẽ nhận các giá trị tương ứng ,vậy cần viết đoạn code như nào ạ mọi người giúp em với ạ em cảm ơn

Private Sub cmbbo_Change()
Dim j As Integer
Do
If Controls("TextBox" & (j + 1)) = "" Then
    Controls("TextBox" & (j + 1)) = cmbbo.Value
    Exit Sub
Else: j = j + 1
End If
Loop Until j = 4
End Sub

 

[hnluanutc]

cảm ơn 2 bạn đã trả lời nhưng vẫn chưa đúng ý mình lắm ,ví dụ mình nhập vào ô txtbo là 5 thi trong ô cmbbo hiện ra 1,2,3,4,5 khi mình kích vào 1 thì nhập vào 4 ô textbox ở dưới và khi kích vào 2 thì tự động xóa các giá trị vừa xong và nhập cho bó tiếp theo mong 2 bạn giúp ,thank

 

[mhung12005]

cảm ơn 2 bạn đã trả lời nhưng vẫn chưa đúng ý mình lắm ,ví dụ mình nhập vào ô txtbo là 5 thi trong ô cmbbo hiện ra 1,2,3,4,5 khi mình kích vào 1 thì nhập vào 4 ô textbox ở dưới và khi kích vào 2 thì tự động xóa các giá trị vừa xong và nhập cho bó tiếp theo mong 2 bạn giúp ,thank

Bạn thử cái này xem.

 

[ndu96081631]

Chỉ có 4 cái TextBox thôi mà mọi người cũng For... Next? Siêng thiệt đó

 

[mhung12005]

Chỉ có 4 cái TextBox thôi mà mọi người cũng For... Next? Siêng thiệt đó

Em đang cố luyện FOR NEXT mà sư phụ . Sư phụ có cao kiến gì không biểu diễn cho bọn em học hỏi ?

 

[ndu96081631]

Em đang cố luyện FOR NEXT mà sư phụ . Sư phụ có cao kiến gì không biểu diễn cho bọn em học hỏi ?

Có cao kiến gì đâu! Ý tôi là chỉ vài ba cái textbox, ta cứ liệt kê từng cái là được chứ đâu cần phải For.. Next (mất công suy nghĩ vụ bẫy lỗi)

TextBox1.Text = c
TextBox2.Text = c
TextBox3.Text = c
TextBox4.Text = c