gán macro vào 1 checkbox

[minhbinhdinh]

thanks,
tôi định gán macro vào 1 checkbox mà không đc.
Ý tưởng là khi click vào checkbox thì copy vùng data từ B99 đem qua sheet 2
Mong mọi người giúp đỡ.

 

[ndu96081631]

thanks,
tôi định gán macro vào 1 checkbox mà không đc.
Ý tưởng là khi click vào checkbox thì copy vùng data từ B99 đem qua sheet 2
Mong mọi người giúp đỡ.

Giả sử file bạn có 1000 dòng dử liệu, chẳng lẽ bạn dùng 1000 cái CheckBox? Có mà chết luôn ---> Dung lượng file tăng lên chắc cũng khoảng vài MB
Để xuất với bạn kiểu khác (cũng dạng CheckBox nhưng không phải là Object)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("D2:D100"), Target) Is Nothing Then
    Application.ScreenUpdating = False
    Target.Value = IIf(Target = "", "a", "")
    Sheet2.Range("A:D").Clear
    With Sheet1.Range("A1").CurrentRegion
      .AutoFilter 4, "a"
      .SpecialCells(12).Copy Sheet2.Range("A1")
      .AutoFilter
    End With
    Target(2).Select
    Application.ScreenUpdating = True
  End If
End Sub

Cứ Double Click vào cột D là nó sẽ điền dấu check, đồng thời copy dử liệu sang sheet 2 luôn!
Xem file