Unicode-String-Literale in VBA
Ich möchte (in einem VBA-Klassenmodul) einige private konstante Zeichenfolgen deklarieren, die japanische Zeichen enthalten. Gibt es einen Weg zu konstruierenString
Literale (oder Kombinieren von Literalen auf eine Weise), die als Initialisierer in a akzeptiert werden könnenConst
Erklärung? d.h. so etwas wie:
Private Const MY_CONST = ...
oder
Private Const MY_CONST As String = ...
Ich verwende MS Excel v14.0.6112.5000 (MS Office Professional Plus 2010).
Waswird nicht funktionieren:
Einfügen der japanischen Zeichen direkt in ein String-Literal (z.... = "変数"
) weil der VBA-Editor mit den Zeichen herumwirbelt;VerwendenChrW()
oderChrW$()
(z.B.... = ChrW$(22793) & ChrW$(25968)
), da Funktionsaufrufe nicht erlaubt sindConst
Initialisierer.WasWürde mir nicht gefallen:
Fälschung derConst
durch schaffenPrivate Property Get
Rückgabe der Zeichenfolge, da die Zeichenfolge jedes Mal neu erstellt wird, wenn ich auf die Eigenschaft zugreife (und das ist verwirrend und hässlich ... aber in Ordnung, die letzten beiden Dinge sind eher Geschmackssache).