webentwicklung-frage-antwort-db.com.de

Wie ändere ich die Schriftgröße und -farbe in einer Excel-Dropdown-Liste?

Ich habe mich gefragt, ob es möglich ist, eine Dropdown-Liste in Excel zu gestalten. Der Text ist eher klein und hat kein Styling, und ich habe mich gefragt, ob das Styling der Dropdown-Liste geändert werden könnte. 

Was tatsächlich sinnvoll wäre, wäre, wenn die Dropdown-Listenelemente denselben Stil wie ihre Quellzellen kopiert hätten, d. H. Abwechselnde Hintergrundfarbe von Zellen, Schriftart, Größe usw. oder sogar das Kopieren des Stils der Validierungszelle selbst !?

Gibt es eine Möglichkeit, dies mithilfe von VBA oder einer anderen Methode von Drittanbietern zu ändern? 

9

Leider können Sie die Schriftgröße oder den Stil nicht in einer Dropdown-Liste ändern, die mithilfe der Datenüberprüfung erstellt wird.

Sie können den Text jedoch in einem Kombinationsfeld formatieren. Befolgen Sie die Anweisungen hier: Kombinationsfeld Excel Data Validation

11
Jon Crowell

Sie können die Standardeinstellung nicht ändern, es gibt jedoch eine codelose Problemumgehung.

Wählen Sie das gesamte Blatt aus, und ändern Sie die Schriftgröße für Ihre Daten in einen kleinen Wert, z. B. 10 oder 12. Wenn Sie die Ansicht vergrößern, um die Daten anzuzeigen, werden die Einträge der Dropdown-Box jetzt angezeigt.

Um das zu betonen, liegt das Problem nicht so sehr auf der Größe der Schriftart in der Dropdownliste, sondern auf der relativen Größe zwischen der Dropdown- und der Datenanzeigegröße.

3
Peter Tashkoff

Ich arbeite mit 60-70% Zoom und das Dropdown-Menü ist nicht lesbar. Daher habe ich diesen einfachen Code erstellt, um das Problem zu lösen

Beachten Sie, dass ich zuerst alle meine Dropdown-Listen ausgewählt habe (STRG + Mausklick), auf die Registerkarte "Formel" gegangen bin, auf "Name definieren" geklickt und sie "ProduktSelection" genannt habe

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("ProduktSelection")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

ActiveWindow.Zoom = 100

End If

End Sub

Ich habe dann ein anderes U-Boot

Private Sub Worksheet_Change(ByVal Target As Range) 

wo ich wieder auf 65% komme, wenn der Wert geändert wird.

2
Kamolga

Versuchen Sie, die Schriftgröße für das gesamte Blatt zu verringern. Dann zoomen und speichern. Machen Sie zuerst ein Übungsblatt, weil es wirklich alles vermasselt. 

0
Billy Bob