Hỏi về vấn đề khi nhấn vào dấu tick nó tự động gom hàng và sum lại

[nguyenduc_tb]

Thưa các bác em có một vấn đề muốn nhờ các bác:
Trong cột có dấu vuông, khi nhấn dấu tick vô đó nó tự gom hàng và sum lại vô sheet bên cạnh, mong các bác giúp cho

 

[nghiaphuc]

Thưa các bác em có một vấn đề muốn nhờ các bác:
Trong cột có dấu vuông, khi nhấn dấu tick vô đó nó tự gom hàng và sum lại vô sheet bên cạnh, mong các bác giúp cho

Thứ nhất: Bạn cần đưa file lên và nêu rõ yêu cầu vào trong đó sẽ dễ dàng cho những người muốn giúp đỡ bạn.
Thứ hai: Bạn không nên (chính xác là không được) dùng màu đỏ cho toàn bài viết vì như vậy là phạm quy. Bạn đọc lại Nội quy diễn đàn nhé, cái này nằm tại mục II.3.
Bạn hãy nhấn Sửa bài viết và đổi màu chữ cho phần nội dung nhé.

 

[ptm0412]

Cái đó là sử dụng Group and Outline của Excel.
Link hướng dẫn thực hiện: http://www.giaiphapexcel.com/forum/...-cây-thư-mục-trong-excel.&p=239755#post239755

 

[nguyenduc_tb]

à không phải bác ptm0412 ơi ý của em như thế này nè

Khi nhấn vô dấu tick ở sheet 1 này thì tự động nó nhảy vô sheet 2
Bác nào đã viết macro giúp cho em với
em cám ơn trước ạ

 

[ptm0412]

Vậy mà nói là gom hàng!

 

[ndu96081631]

à không phải bác ptm0412 ơi ý của em như thế này nè

Khi nhấn vô dấu tick ở sheet 1 này thì tự động nó nhảy vô sheet 2
Bác nào đã viết macro giúp cho em với
em cám ơn trước ạ

Mỗi cell mà dùng 1 checkbox thì có mà chết luôn (vẽ vời thôi cũng mệt xác rồi)
Làm cho bạn bằng cách khác, cứ double click vào các cell ở cột D là dấu check tự chèn vào, đồng thời những dòng có check sẽ được copy sang sheet2 ---> Xem file

 

[nguyenduc_tb]

Cám ơn bác ndu96081631 nhiều lắm ạ. cái này đúng ý em rồi
anh có thể chỉ cho em cách thực hiện với được không ạ
Thay vì double click ta có thể dùng click một lần có được không ạ

 

[ndu96081631]

Cám ơn bác ndu96081631 nhiều lắm ạ. cái này đúng ý em rồi
anh có thể chỉ cho em cách thực hiện với được không ạ
Thay vì double click ta có thể dùng click một lần có được không ạ

Mở file, bấm Alt + F11 sẽ thấy đoạn code này:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("D2:D12"), Target) Is Nothing Then
    If Target.Count = 1 Then
      Target.Value = IIf(Target.Value = "a", vbNullString, "a")
    End If
    Cancel = True
  End If
End Sub

Xóa đoạn này và thay bằng:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range("D2:D12"), Target) Is Nothing Then
    If Target.Count = 1 Then
      Target.Value = IIf(Target.Value = "a", vbNullString, "a")
    End If
  End If
End Sub

Tuy nhiên, theo kinh nghiệm của tôi thì dùng Double click hay hơn! Nếu bạn dùng kiểu click 1 lần thì sau khi click vào 1 cell xong, bạn phải chuyển chuột qua 1 cell khác mới có thể click tiếp trên cell ấy... Mặc khác rất dễ click nhầm ---> Cân nhắc cho kỹ

 

[meoconbdi]

BÁc NDu có thế nói cho em biết bác viết đoạn code trên bằng ngôn ngữ gì vậy?

 

[nghiaphuc]

BÁc NDu có thế nói cho em biết bác viết đoạn code trên bằng ngôn ngữ gì vậy?

Đây là ngôn ngữ VBA (Visual Basic for Application).

 

[nguyenduc_tb]

bác ndu96081631 cho em hỏi tý
"a" ở đây là giá trị gì vậy????

 

[ndu96081631]

bác ndu96081631 cho em hỏi tý
"a" ở đây là giá trị gì vậy????

Chữ "a" thì là.. chữ a thôi... Nhưng dùng font Marlett thì chữ a sẽ biến thành dấu check

 

[nguyenduc_tb]

Anh ndu96081631 ơi, nếu em thêm cột thì nó không chạy nữa, mặc dù em đã chỉnh thông số vị trí cột
Nếu em gom lại từ nhiều sheet vô 1 sheet được không ạ

 

[ndu96081631]

Anh ndu96081631 ơi, nếu em thêm cột thì nó không chạy nữa, mặc dù em đã chỉnh thông số vị trí cột
Nếu em gom lại từ nhiều sheet vô 1 sheet được không ạ

Mấy vụ viết code này phải dựa trên dữ liệu thật để biết nó nằm ở dòng nào, cột nào nhằm xác định chính xác địa chỉ cell
Vậy bạn đã chèn thêm cột thế nào, hãy đưa file lên đây mới biết mà giúp được bạn à