Làm cách nào để copy check box mà có giá trị cell link thay đổi

[springrain836]

Tôi định làm 1 bảng theo dõi thí nghiệm, trong đó thí nghiệm nào chưa được thí nghiệm sẽ có màu nền là đỏ, còn đã thí nghiệm rồi thì check box tương ứng sẽ được check và màu nền sẽ thay đổi sang màu xanh (như file đính kèm). Tôi muốn lập 1 bảng bằng cách copy dòng này xuống nhiều dòng khác, tuy vậy khi copy xuống thì cell link lại không thay đổi, vẫn link đến ô cũ, do đó tôi lại phải định nghĩa cell link lại cho từng check box khá mất thời gian.
Xin nhờ GPE chỉ giùm cách copy mà địa chỉ của cell link này thay đổi theo ô được copy.

 

[ndu96081631]

Tôi định làm 1 bảng theo dõi thí nghiệm, trong đó thí nghiệm nào chưa được thí nghiệm sẽ có màu nền là đỏ, còn đã thí nghiệm rồi thì check box tương ứng sẽ được check và màu nền sẽ thay đổi sang màu xanh (như file đính kèm). Tôi muốn lập 1 bảng bằng cách copy dòng này xuống nhiều dòng khác, tuy vậy khi copy xuống thì cell link lại không thay đổi, vẫn link đến ô cũ, do đó tôi lại phải định nghĩa cell link lại cho từng check box khá mất thời gian.
Xin nhờ GPE chỉ giùm cách copy mà địa chỉ của cell link này thay đổi theo ô được copy.

Bạn copy mấy cái checkbox ấy với số lượng nhiều thì file sẽ rất nặng, sao bạn không dùng VBA tạo dấu check (nhấp chuột vào ô là check)

 

[springrain836]

Cảm ơn bạn Ndu96081631, tôi thì không biết về VBA, không biết có giải pháp nào khác nữa không bạn nhỉ

 

[hoangvuluan]

Thay vì dùng checkbox, bạn có thể dùng validation với thuộc tính list. Điều này cho phép quản lý tốt hơn vì có nhiều giá trị hơn. Ví dụ: gía trị 0: chưa thực hiện thí nghiệm; 1: đã thực hiện; 2: đang tiến hành (chưa kết thúc vì 1 lý di nào đó); 3: thí nghiệm bị hủy vì...
Nói tóm lại, dùng validation vừa đơn giản vừa hiệu quả hơn check.

 

[ndu96081631]

Cảm ơn bạn Ndu96081631, tôi thì không biết về VBA, không biết có giải pháp nào khác nữa không bạn nhỉ

Giãi pháp đây! Bạn xem thế nào nhé!
Bạn cứ Double click vào các cell từ A4 đến A100, dấu check sẽ hiện ra!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, [A4:A100]) Is Nothing Then
    Cancel = True
    If Target = "" Then
       With Target
         .Value = "þ"
         .Font.Name = "Wingdings"
         .Font.Size = 14
         .HorizontalAlignment = xlCenter
       End With
    Else
       Target = ""
    End If
  End If
End Sub

 

[infogated]

Giãi pháp đây! Bạn xem thế nào nhé!
Bạn cứ Double click vào các cell từ A4 đến A100, dấu check sẽ hiện ra!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, [A4:A100]) Is Nothing Then
    Cancel = True
    If Target = "" Then
       With Target
         .Value = "þ"
         .Font.Name = "Wingdings"
         .Font.Size = 14
         .HorizontalAlignment = xlCenter
       End With
    Else
       Target = ""
    End If
  End If
End Sub

cám ơn anh rất nhiều vì đã chia sẻ, em tình cờ tìm kiếm phương pháp tạo checkbox hàng loạt mà không nặng file, thật may có cái này ^^

 

[rubia]

cám ơn anh rất nhiều vì đã chia sẻ, em tình cờ tìm kiếm phương pháp tạo checkbox hàng loạt mà không nặng file, thật may có cái này ^^

Nhờ bạn mà mình đọc được bài này để giải quyết vụ checklist của mình. Thế là loay hoay sửa lại mốt số thứ cho đồng nhất hehe. Vừa xong

 

[infogated]

Nhờ bạn mà mình đọc được bài này để giải quyết vụ checklist của mình. Thế là loay hoay sửa lại mốt số thứ cho đồng nhất hehe. Vừa xong

haha, công nhận mình học dc rất nhiều giải pháp tại trang này ^^

 

[Thông Ngôn]

Giãi pháp đây! Bạn xem thế nào nhé!
Bạn cứ Double click vào các cell từ A4 đến A100, dấu check sẽ hiện ra!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, [A4:A100]) Is Nothing Then
    Cancel = True
    If Target = "" Then
       With Target
         .Value = "þ"
         .Font.Name = "Wingdings"
         .Font.Size = 14
         .HorizontalAlignment = xlCenter
       End With
    Else
       Target = ""
    End If
  End If
End Sub

Cảm ơn bác đã chia sẻ. Mình vừa làm được một cột, nhưng khi chạy lệnh thêm những cột khác bị lỗi bác ạ?

 

[giaiphap]

Cảm ơn bác đã chia sẻ. Mình vừa làm được một cột, nhưng khi chạy lệnh thêm những cột khác bị lỗi bác ạ?

Up cái file lỗi đó lên đây.