TextBox và ListBox chỉ chạy trong 1 Cell duy nhất (1 người xem)

[quykh]

Chào các AC trong DD, em có file mong các AC giúp chỉ tạo TextBox và ListBox chạy chỉ trong 1 Cell duy nhất.

 

[leonguyenz]

Bạn sửa lại trong SelectionChange:
[gpecode=vb]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [C2]) Is Nothing Then
If Target = "" Then
thaydoi
Else
Hide
End If
Else
Hide
End If
Application.ScreenUpdating = True
End Sub
[/gpecode]
Thêm code Click để chọn nhanh hơn với ListBox1:
[gpecode=vb]
Private Sub ListBox1_Click()
ActiveCell.Value = ActiveSheet.ListBox1.Value
ListBox1.Visible = False
TextBox1.Visible = False
End Sub
[/gpecode]

 

[quykh]

Xin lỗi, mình không nói rỏ ý của mình là TextBox và ListBox chỉ chạy trong cell C2, nhưng chạy nhiều lần cũng chỉ trong cell C2. Vì mình muốn giá trị trong cell C2 thay đổi sẽ liên kết với một shett khác. Tức là sẽ tùy chọn keo ở Cell C2 thôi.(Enter chọn xong nhấn Case 38 Xóa và chọn keo khác) Mong bạn giúp đỡ!!!

 

[quykh]

Cái này mình dùng Data Validation cũng được, nhưng mình không thích dùng chuột chọn, mình thấy dùng bàn phím nhanh hơn. Mong các bạn giúp đỡ.

 

[dhn46]

Xin lỗi, mình không nói rỏ ý của mình là TextBox và ListBox chỉ chạy trong cell C2, nhưng chạy nhiều lần cũng chỉ trong cell C2. Vì mình muốn giá trị trong cell C2 thay đổi sẽ liên kết với một shett khác. Tức là sẽ tùy chọn keo ở Cell C2 thôi.(Enter chọn xong nhấn Case 38 Xóa và chọn keo khác) Mong bạn giúp đỡ!!!

Bạn thay đổi Sub Worksheet_SelectionChange như sau

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$C$2" Then
    thaydoi
Else
    Hide
End If
Application.ScreenUpdating = True
End Sub

 

[quykh]

Cám Ơn Bạn dhn46, đúng ý mình rồi.