Ẩn hiện textbox theo điều kiện (1 người xem)

[khonggianviet]

Bác cho em hỏi code vấn đề này như thế nào
em có một form nhập liệu trong đó có combobox lựa chọn dạng yes và no; một textbox dạng chữ. Yêu câu đặt ra là khi lựa chọn combox là yes thì textbox sẽ hiện để cho nhập dữ liệu, còn khi combobox lựa chọn là no thì ẩn textbox và không cần phải nhập dữ liệu vào texbox này nữa.
em cảm ơn diễn đàn nhiều

 

[♫ђöล♥ßล†♥†µ♫]

Bác cho em hỏi code vấn đề này như thế nào
em có một form nhập liệu trong đó có combobox lựa chọn dạng yes và no; một textbox dạng chữ. Yêu câu đặt ra là khi lựa chọn combox là yes thì textbox sẽ hiện để cho nhập dữ liệu, còn khi combobox lựa chọn là no thì ẩn textbox và không cần phải nhập dữ liệu vào texbox này nữa.
em cảm ơn diễn đàn nhiều

Chắc là như thế này

If ComboBox gì gì đó = "Yes" Then
        TextBox gì gì đó.Visible = True
    Else
        TextBox gì gì đó.Visible = False
 End If

 

[khonggianviet]

Chắc là như thế này

If ComboBox gì gì đó = "Yes" Then
        TextBox gì gì đó.Visible = True
    Else
        TextBox gì gì đó.Visible = False
End If

thank bác
đây là code của combox, combobox này kiểm trả dữ liệu tại cột bb sheet THData và lấy dữ liệu vào combobox này

Private Sub ComboBox7_Change()
If Me.ComboBox7.Value = Range("THDataDen!BB" & irow).Value Then
  Me.ComboBox7.BackColor = &H80000005
  Else
  Me.ComboBox7.BackColor = vbYellow
  End If
End Sub

Còn đây là code của textbox, code này mới kiểm tra dữ liệu trùng lặp tại cột AF của sheet THData và thông báo dữ liệu nhập bị trùng.

Private Sub TextBox30_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim STT As String
Dim c As Range
Dim d As Range
Dim e As Range

'Kiem tra trung lap nhap lieu
If Me.TextBox30.Value <> "" Then
With Sheet6.Range("THDataDen!AF:AF")
Set c = .Find(Me.TextBox30.Text, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        If Me.TextBox30.Value = c.Value Then
        STT = c.Offset(0, 0)
        Me.TextBox30.BackColor = &HFF&
        Msg "  So61 pha6n a1n d9a4 to62n ta5i  " & Chr(13) & "Kie63m tra so61 pha6n a1n d9a4 nha65p la2 : " & STT
        Me.TextBox30.SetFocus
        End If
'Kiem tra dieu kien cua textbox VKS tham gia phien toa
        
    End If

End With
End If
    Me.TextBox30.SetFocus
End Sub

Bây giờ em muốn xử lý như nội dung ở trên thì làm như thế nào ạh