Điều khiển thuộc tính Visible làm ảnh hưởng đến CutCopy Mode (3 người xem)

[ndu96081631]

Những ai hay ComboBox để nhập liệu vào bảng tính thường gặp 1 trục trặc nhỏ nhưng rất khó chịu:
Nếu dùng code để điểu khiển thuộc tính Visible (tức cho phép ẩn hiện ComboBox dựa vào điều kiện nào đó) thì khi ấy việc Cut, copy, paste sẽ mất tác dụng
Xem file tôi thí nghiệm đính kèm hoặc có thể tải file của Tedaynui tại đây:
http://www.giaiphapexcel.com/forum/showpost.php?p=58721&postcount=3
Xin các cao thủ góp ý phương pháp giải quyết vấn đề này!

 

[hoa35ktxd]

Tôi sửa lại như sau thì thấy OK

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    If .Column = 1 Then
      ComboBox1.Visible = True
      ComboBox1.Left = .Left: ComboBox1.Top = .Top
      ComboBox1.Width = .Width: ComboBox1.Height = .Height
    ElseIf Application.CutCopyMode =0 Then
      ComboBox1.Visible = False
    End If
  End With
End Sub

 

[ndu96081631]

Tôi sửa lại như sau thì thấy OK

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    If .Column = 1 Then
      ComboBox1.Visible = True
      ComboBox1.Left = .Left: ComboBox1.Top = .Top
      ComboBox1.Width = .Width: ComboBox1.Height = .Height
    ElseIf Application.CutCopyMode =0 Then
      ComboBox1.Visible = False
    End If
  End With
End Sub

Hay quá:

ElseIf Application.CutCopyMode =0 Then
   ComboBox1.Visible = False
End If

Đơn giản và hiểu quả: Chừng nào CutCopy xong mới cho phép ẩn!
Cảm ơn bạn!

 

[thuanduc08]

Các bác ơi cái này sử dụng như thế nào vậy?

 

[queluatb]

Hay quá:

ElseIf Application.CutCopyMode =0 Then
   ComboBox1.Visible = False
End If

Đơn giản và hiểu quả: Chừng nào CutCopy xong mới cho phép ẩn!
Cảm ơn bạn!

Cho e hỏi giờ e muốn sử dụng cho hai cột khác nhau trên cùng một sheet thì tạo thế nào, em cám ơn nhiều