Giúp em in check box chỉ in dấu (v) (3 người xem)

[kiennghiep]

Các anh chỉ dùm em cách in khi sử dụng check box chỉ in ra dấu (v), không tin ra ô vuông với
Và có cách nào tick vào checkbox1 thì sẽ cho giá trị tick luôn vào một số checkbox khác theo ý muốn được không? (VD: checkbox2 được tick khi chỉ tick vào checkbox1)
Cảm ơn các anh

 

[ndu96081631]

Câu 1: hiểu tàm tạm: Bạn muốn khi in chỉ in dấu check mà không in cái ô vuông bao quanh, đúng không? Tôi nghĩ là không được vì không thấy setting nào như thế (chỉ IN hoặc KHÔNG IN mà thôi)
Câu 2: Hỏng hiểu gì hết
Bạn gữi file lên và ghi rõ yêu cầu vào đó đi! Khó hiểu quá đi

 

[cadafi]

Các anh chỉ dùm em cách in khi sử dụng check box chỉ in ra dấu (v), không tin ra ô vuông với

Yêu cầu này theo mình thì không thực hiện được bạn à!

Và có cách nào tick vào checkbox1 thì sẽ cho giá trị tick luôn vào một số checkbox khác theo ý muốn được không? (VD: checkbox2 được tick khi chỉ tick vào checkbox1)

Trong mỗi checkbox (tạo từ control ToolBox) có thuộc tính LinkedCell, Bạn set thuộc tính này giống nhau cho các checkbox có quan hệ là xong.

 

[kiennghiep]

Vậy có cách nào để in cái dấu (v) đó được không? (không dùng check box chẳng hạn). Vì dấu ô vuông đó trên phiếu muốn in đã có sẵn rồi, nếu in ra mà có cả dấu ô vuông đó, thì nó sẽ bị đè lên nhau!
Cảm ơn bác ca_dafi đã chỉ giúp câu 2, ý em muốn làm chính là như vậy!

 

[ndu96081631]

Vậy bạn đừng dùng CheckBox.
Ký tự a trong font Wibdings chính là dấu check đấy!
Thử xem

 

[yeudoi]

Các anh chỉ dùm em cách in khi sử dụng check box chỉ in ra dấu (v)

Mình nghĩ là được chứ nhưng dùng macro khi tick vào thì cell đó = v thôi

 

[DOSNET]

Bạn dùng code này thử xem ! Thay đổi vùng theo ý mình !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:O20")) Is Nothing Then
            Cancel = True
            If Target = vbNullString Then
                      With Target
                        .Value = "a"
                        .Font.Name = "Marlett"
                        .Font.Size = 14
                        .HorizontalAlignment = xlCenter
                      End With
            Else: Target = vbNullString
            End If
    End If
End Sub