Verwenden Sie kein GBP (£) Symbol in VBA

Question

Ich habe englische Version von Excel und polnischen regionalen Einstellungen. Ich versuche, einen Code zu machen, der Zellen mit dem Nummernzeichen vor dem Zahlenwert formatiert.

Leider wird es in "L" konvertiert, wenn ich das Symbol in VBA-Fenster einfügen. Der Makrorekorder zeichnet auch auf diese Weise formatierte Zellen als "L" auf. Chr (163) gibt "£" zurück.

Das Ändern der Systemspracheneinstellung, der Lokalisierungseinstellungen oder der Tastatureinstellungen hatte keine Auswirkungen. Erst nach dem Ändern der regionalen Einstellungen (erfordert PC-Neustart) nach Englisch (Großbritannien) funktioniert es korrekt. Gibt es eine Möglichkeit, dieses Symbol zu verwenden, ohne die regionalen Einstellungen zu ändern?

Answer 1

Wenn Sie das Symbol auf die Formatierung über VBA anwenden möchten, versuchen Sie:

Sub Serling() 
    Const g = "General" 
    dq = Chr(34) 
    sterl = " " & ChrW(163) 
    s = g & dq & sterl & dq 
    Selection.NumberFormat = s 
    Selection.Font.Name = "Arial Unicode MS" 
End Sub 

EDIT # 1:

Für mich, das ist wirklich cool . Wenn Sie Grad Celsius wollen, verwenden Sie ChrW (8451): Wenn Sie Grad Fahrenheit wollen, verwenden Sie ChrW (8457), usw.