Tạo checkbox và gán điều kiện

[pumpkit]

Chào mọi người...

Chả là công ty em gần đây mọi người làm việc hay bị sai và thiếu cái này, cái kia, bởi vậy mà sếp bảo em là phải tạo một cái checklist gồm nhiều cái checkbox để miêu tả công việc. Có khoảng mười mấy cái checkbox cần phải tick để nhắc nhở mọi người làm không để sót việc, vấn đề là sếp yêu cầu cao, vì sợ nhân viên chỉ lo tick mà lại không lo làm, nên sếp bắt sau khi tick xong phải in ra để lưu, và đặc biệt sếp bắt là, nếu chỉ cần bỏ sót một bước nào, thì trong excel, làm sao đó, không thể in ra được. Nói tóm lại, câu hỏi của em là ta có cách nào làm được điều như trên không:

Để tóm tắt cho dễ hiểu như sau

Ví dụ: Có 1 checklist trong đó có 10 checkbox tương ứng 10 bước công việc, nếu không check đủ 10 box ta không thể in ra checklist này ra...!!

Mọi người có ai có cách bày cho em nhá, bởi em nhớ có lần, em đi công tác bên Malay, thấy một cty bên đó người ta làm được như thế nên mới mạo muội hỏi mọi người...!!

Thanks mọi người

 

[thanhsangnguyen1982]

Bạn có thể gửi file lên cụ thể được không, có file làm mới chính xác

 

[nhanvvGPE]

Chào mọi người...

Chả là công ty em gần đây mọi người làm việc hay bị sai và thiếu cái này, cái kia, bởi vậy mà sếp bảo em là phải tạo một cái checklist gồm nhiều cái checkbox để miêu tả công việc. Có khoảng mười mấy cái checkbox cần phải tick để nhắc nhở mọi người làm không để sót việc, vấn đề là sếp yêu cầu cao, vì sợ nhân viên chỉ lo tick mà lại không lo làm, nên sếp bắt sau khi tick xong phải in ra để lưu, và đặc biệt sếp bắt là, nếu chỉ cần bỏ sót một bước nào, thì trong excel, làm sao đó, không thể in ra được. Nói tóm lại, câu hỏi của em là ta có cách nào làm được điều như trên không:

Để tóm tắt cho dễ hiểu như sau

Ví dụ: Có 1 checklist trong đó có 10 checkbox tương ứng 10 bước công việc, nếu không check đủ 10 box ta không thể in ra checklist này ra...!!

Mọi người có ai có cách bày cho em nhá, bởi em nhớ có lần, em đi công tác bên Malay, thấy một cty bên đó người ta làm được như thế nên mới mạo muội hỏi mọi người...!!

Thanks mọi người

Hi Bạn,

Trước tiên tạo 1 biến kiểm tra, sau đó lặp qua tất cả checkbox, nếu có cái nào chưa tick thì hiện thông báo, nòn không thì in ra.

Dim FullChecked as Boolean
FullChecked = True
For Each ctrl In form.controls
If typename(ctrl) = "CheckBox" Then
If ctrl.Checked = False Then
FullChecked = False
Exit For
EndIf
Next
If FullChecked = False Then
Msgbox ("Chua lam xong ma doi in ha em, anh hon cho cai bi gio")
Else
'In tai day
End if

 

[pumpkit]

Em gửi mọi người cái file mẫu ...!!!Trong file có 5 mục cần check, tình huống đặt ra là làm sao, nếu 1 trong các bước đó không finish và check thì sẽ không in cái bản đó ra được

 

[trung.aof]

Làm thế này xem sao đã đúng yêu cầu chưa

 

[pumpkit]

Làm thế này xem sao đã đúng yêu cầu chưa

Oy, anh oy, đúng ý em rồi, đa tạ anh, nhưng mà anh làm sao hay thế, bày em với, cái file này chỉ là draft thôi, cái checklist của em tới gần mười mấy mục lận...!! Đa tạ anh nhiều lắm ^^

 

[pumpkit]

có ai hướng dẫn chi tiết cho em ko ạ.. cầm cái file thành phẩm của các anh xong, em cũng chả biết làm ra sao

 

[thanhsangnguyen1982]

Gửi file lên đi bạn, có file cụ thể mới làm được.

 

[pumpkit]

Gửi file lên đi bạn, có file cụ thể mới làm được.

Anh ơi, em đã gửi ở trên rồi đó anh...!Đã có một anh vào và làm đúng như yêu cầu của sếp em, nhưng em chả biết làm thế nào, có gì anh hướng dẫn chi tiết cho em với

 

[thanhsangnguyen1982]

- Từ ô D3 đến D7 là ô liên kết của từng checkbox (Click phải chuột của từng checkbox vào Format control -> chọn control để xem ô liên kết
- Ô D8 có công thức chắc bạn biết.
- Nhấn Alt F11 chọn This workbook chép code này vào
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("D8") = 0 Then
MsgBox "Ban phai check het o"
Cancel = True
End If
End Sub

 

[pumpkit]

- Từ ô D3 đến D7 là ô liên kết của từng checkbox (Click phải chuột của từng checkbox vào Format control -> chọn control để xem ô liên kết
- Ô D8 có công thức chắc bạn biết.
- Nhấn Alt F11 chọn This workbook chép code này vào
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("D8") = 0 Then
MsgBox "Ban phai check het o"
Cancel = True
End If
End Sub

Em sẽ check lại và áp dụng vào cái checklist hiện tại của em xem sao, anyway, em cảm ơn anh nhiều lắm...!!! Có gì em sẽ feedback với anh nhé... Thanks anh lần nữa

 

[pumpkit]

- Từ ô D3 đến D7 là ô liên kết của từng checkbox (Click phải chuột của từng checkbox vào Format control -> chọn control để xem ô liên kết
- Ô D8 có công thức chắc bạn biết.
- Nhấn Alt F11 chọn This workbook chép code này vào
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("D8") = 0 Then
MsgBox "Ban phai check het o"
Cancel = True
End If
End Sub

Em đã thử thành công rồi.. cảm ơn anh, anyway, nhân tiện, cho em hỏi là sách học mấy cái này có không anh...!

 

[Builan1979]

Các bạn cho mình hỏi có thể đặt điều kiện cho checkbox được ko ạ?
VD: if(AND(D2="USD",D3<500, D2="VND", D3<3000000,D2="JPY",D3<JPY10000)

Nhờ các bạn tư vấn giúp ạ. Xin cám ơn.