Konvertieren einer excel-Zelle mit true/false als check-box in VBA

Ich habe eine Spalte in einer excel-Zelle, die entweder "True" oder "false" als text.

Die Spalte ist gefüllt durch einen VBA-code.

Brauche ich anzeigen, um eine check-box angekreuzt, anstatt der Wahren, und ein Kontrollkästchen nicht aktiviert, anstelle von False.

Kann das getan werden, von VBA-code? Angenommen, die Zelle mit dem Wert ist verwiesen als

ActiveWorkBook.Sheets("mySheetName").cells(i, 4)

i = Zeile-Index, der innerhalb einer Schleife.

  • Ist es nur zum anschauen? Können Sie wahrscheinlich verwenden Sie die bedingte Formatierung für diese. Könnte sparen Sie einige Kopfschmerzen...oder mehr erstellen.
  • Sollte ich davon ausgehen, dass jedes Ihrer Zeilen in dieser Spalte muss eine checkbox? was ist der Zweck der änderung so ein einfaches reinigen, True, False in eine checkbox? Sie don ' T wollen, laden Sie Ihre Blätter mit unnötigen Kontrollen, wenn es nicht wirklich nötig.:)
  • Hi bonCodigo, ich brauche Kontrollkästchen, da kann der Benutzer wählen/de-selct den Zeilen, da nur die selektierten Zeilen verarbeitet werden muss zu einem späteren Zeitpunkt.
InformationsquelleAutor Manas Saha | 2013-01-17
  1. 1

    Dieser code sollte die Arbeit tun, ändern Sie einfach die For-Schleife nach Ihren Bedürfnissen:

    Sub subPlaceCheckbox() 

Const cDblCheckboxWidth As Double = 15 
Const cStrCheckboxPrefix As String = "cb4_" 

Dim cb As CheckBox 
Dim rng As Range 
Dim i As Long 

- Anwendung.ScreenUpdating = False 

'Löschen Sie zuerst alle alten Checkboxen zu vermeiden verdoppelt 
Für Jede cb In Tabelle1.Checkboxen 
Wenn Links(cb.Name, Len(cStrCheckboxPrefix)) = _ 
cStrCheckboxPrefix Dann 
cb.Löschen 
End If 
Weiter 

For i = 1 To 20 
Set rng = Tabelle1.Cells(i, 4) 

'Ort checkbox 
Set cb = Tabelle1.Checkboxen.Add( _ 
rng.Links + rng.Breite /2 - cDblCheckboxWidth /2, _ 
rng.Top, cDblCheckboxWidth, rng.Höhe) 

'Checkbox markieren-Eigenschaften 
Mit cb 
.Name = "cb_" & rng.Address(False, False) 
.Wert = rng.Wert 
.LinkedCell = rng.Adresse 
.Display3DShading = True 
.Zeichen.Text = "" 
Ende Mit 

'Hide Inhalt der Zelle 
rng.NumberFormat = ";;;" 

Weiter habe ich 

- Anwendung.ScreenUpdating = True 
End Sub
    • Danke Peter. das funktioniert einwandfrei 🙂
    InformationsquelleAutor Peter Albert
  2. 1

    Lassen Sie einfach die Zelle, nämlich TRUE oder FALSE, fügen Sie das Kontrollkästchen, um die Platte, und legen Sie die LinkedCell der checkbox werden Ihre ursprünglichen Zelle. Wenn Sie nicht wollen, um zu sehen, die Zelle, platzieren Sie die checkbox über die Spitze!

    InformationsquelleAutor Vinny Roe
Schreibe einen Kommentar