Excel'de doğru yanlış nasıl onay kutusuna dönüştürülür?

Diyelim ki iki sütunda numaralar listelenmiş durumda, eğer ilk sütundaki sayı ikinci sütundaki sayıdan büyükse DOĞRU gösterilsin, aksi takdirde aşağıdaki ekran görüntüsünde gösterildiği gibi YANLIŞ gösterilsin. Şimdi Excel'de formülü değiştirebilir ve DOĞRU veya YANLIŞ değerlerini kolayca onay kutusu işaretlerine dönüştürebilirsiniz.

Orijinal formülü =EĞER(orijinal_formül,"þ","¨") olarak değiştirin

1. Bu durumda, iki sütundaki sayıları karşılaştırmak için =B3>C3 formülünü kullandım. Bu nedenle, orijinal formülü aşağıda gösterildiği gibi değiştireceğim ve ardından Otomatik Doldurma tutamacını diğer hücrelere sürükleyeceğim.

=EĞER(B3>C3,"þ","¨")

2. Formül hücrelerinin seçili kalmasını sağlayın, sağ tıklayın ve içerik menüsünden Hücreleri Biçimlendir'i seçin.

3. Hücreleri Biçimlendir iletişim kutusunda, Yazı Tipi sekmesine gidin, Windings'i seçin ve Yazı Tipi liste kutusundan Tamam düğmesine tıklayın.

Şimdi özel karakterlerin işaretli onay kutularına ve işaretlenmemiş onay kutularına dönüştürüldüğünü göreceksiniz. Ekran görüntüsüne bakın:

Bu bölüm, Excel'de birden fazla doğru ve yanlışı onay kutusu kontrollerine dönüştürmek için bir VBA makrosu tanıtacaktır. Lütfen şu adımları izleyin:

1. Onay kutularına dönüştüreceğiniz “DOĞRU” ve “YANLIŞ” değerlerine eşit olan hücreleri seçin.

2. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına birlikte basın.

3. Ekle Insert > Module'e tıklayın ve ardından aşağıdaki VBA kodunu yeni Modül penceresine yapıştırın.

VBA: Excel'de DOĞRU ve YANLIŞ'ı onay kutusu kontrollerine dönüştürme

Sub ConvertTrueFalseToCheckbox()
Dim xCB As CheckBox
Dim xRg, xCell As Range
Application.ScreenUpdating = False
On Error Resume Next
Set xRg = Selection
For Each xCB In ActiveSheet.CheckBoxes
xCB.Delete
Next
For Each xCell In xRg
If (UCase(xCell.Value) = "TRUE") Or (UCase(xCell.Value) = "FALSE") Then
Set xCB = ActiveSheet.CheckBoxes.Add(xCell.Left, xCell.Top, cDblCheckboxWidth, xCell.Height)
xCB.Value = xCell.Value
xCB.LinkedCell = xCell.Address
xCB.Text = ""
End If
Next
Application.ScreenUpdating = True
End Sub

4. Bu VBA'yı çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın.

Ardından, tüm seçili DOĞRU ve YANLIŞ değerlerinin onay kutusu kontrollerine dönüştürüldüğünü göreceksiniz. DOĞRU, işaretli bir onay kutusuna; YANLIŞ ise işaretlenmemiş bir onay kutusuna dönüştürülecektir. Ekran görüntüsüne bakın:

Eğer Kutools for Excel yüklüyse, birden fazla onay kutusu kontrolünü tek bir tıklamayla toplu olarak eklemek için Toplu Onay Kutuları Ekle özelliğini kullanabilirsiniz.

Kutools for Excel- Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli 60 günlük ücretsiz deneme, kredi kartı gerekmez! Şimdi Edinin

1. Onay kutularına dönüştüreceğiniz “DOĞRU” ve “YANLIŞ” değerlerine eşit olan hücreleri seçin ve Kutools > Ekle > Toplu Onay Kutuları Ekle'ye tıklayın.

2. Şimdi her seçili hücreye bir onay kutusu kontrolü eklenmiştir. Bu onay kutularını ihtiyacınıza göre manuel olarak işaretleyebilirsiniz.