Bearbeiten von benutzerdefinierten Stilen über VBA in Excel

Question

Ich versuche, einen benutzerdefinierten Stil, für den ich das Zahlenformat basierend auf einer Benutzerauswahl ändern kann, d. H. USD, GBP, EUR oder eine Reihe anderer.

Ist das überhaupt möglich? so etwas wie diese

Ich habe versucht, es über VBA und ein auf Änderung der Zell Routine zu erreichen tun:

Style("StyleName").NumberFormat = Range("ChosenCell").NumberFormat 

Die Idee dahinter ist, dass der Stil wird dann die gesamte Arbeitsmappe auswirken.

Answer 1

Es stellte sich heraus, dass ich fast dort ohnehin war:

ThisWorkbook.Styles("StyleName").NumberFormat = ThisWorkbook.Worksheets("SheetName").Range("ChosenCell").NumberFormat