Enums - intelligent!

[thowe]

was du aber machen kannst lieber heb ist folgendes:

Code: Alles auswählen

' List friendly names of Unicode characters
Public Enum eUnicodeConst
    Doppeltilde
    WeiteresZeichen
    '....
End Enum


'---------------------------------------------------------------------------------------
' thanks to: Adam Walle @stackoverflow
'---------------------------------------------------------------------------------------
'
Public Function GetUnicode(strText As eUnicodeConst) As String
    Select Case strText
        Case Doppeltilde
            GetUnicode = ChrW(7668)
        Case WeiteresZeichen
            'GetUnicode= ChrW(????)
    End Select
End Function

'how to use?
'just a simple testing
Sub TestGetUnicode()

    Debug.Print GetUnicode(Doppeltilde)

End Sub

Beachte die IntelliSense beim Funktionsaufruf....

lg

[d'r Bastler]

Moin thowe,

um Deine Antwort auf meine Frage "gibt es Trick?" kurz zu fassen: Nein!

Schade - dennoch Danke!

Ooops! Da war ich wohl zu schnell!! Das mit den FriendlyNames & Select Case ist natürlich ein Workaround, der viele Türen öffnet!!

Da wird doch gleich nochmal gebastelt
lg

[xlKing]

Hi Heb,

Enums sind wie der Name schon sagt rein Numerisch. Sie erwarten also eine beliebige, zumeist Ganze Zahl die du entweder zuweisen oder es lassen kannst. Wenn du darauf verzichtest wird eine Natürliche Zahl (beginnend bei 0 aufsteigend) automatisch zugewiesen. Der Sinn dahinter ist, dass man Variablen benannte Werte zuweisen kann. Statt Wenn 1 dann dies, wenn 2 dann das usw. schreibt man Wenn Name1 dann dies, sonst wenn Name2 dann das usw.

Enums werden üblicherweise im Modulkopf, also vor der ersten Prozedur generiert. In diesem Bereich sind Funktionsnamen nicht zulässig. Daher musst du Konstante Zahlen zuweisen.

Die Rückgabe von Zeichen in Enums nicht vorgesehen. Dafür gibt's die CONST-Anweisung. Wenn du dennoch Zeichen zurückgeben willst, kannst du das über eine Funktion machen.

Code: Alles auswählen

Enum eSym
 DoppelTilde = 8776
 Haken = 10003
End Enum
Function getSign(Sign As eSym) As String
  getSign = ChrW(Sign)
End Function
Sub Test()
  ActiveCell.Value = getSign(DoppelTilde)
End Sub

Nachtrag: thowe war schneller.

Gruß Mr. K.

[d'r Bastler]

Code: Alles auswählen

Sub Test()
  ActiveCell.Value = getSign(eSym.[und jetzt klappt's auch mit dem IntelliSense!])
End Sub

Klasse! Lieben Dank Euch beiden!
lg

[thowe]

Keine Ahnung was du unter Trick dir vorstellst.
Die von mir vorgestellte Lösung ist ein denkbarer Kniff und du kannst letztendich via IntelliSens auf deine DoppelTilde zugreifen.
Ein anderer Ansatz ist via Klassenmodul...
Man muss eben zur Kennnis nehmen das es sich bei Enum um Integer handelt. Korrekt schriebe man

Code: Alles auswählen

Public Enum eUnicodeConst
    Doppeltilde = 1
    WeiteresZeichen = 2
    '....
End Enum

Da Enum Aufzählungen sind weiß VBA automatisch dassZB "DoppelTilde" 1 ist...

[d'r Bastler]

Moin thowe, moin xlKing,

als Synonym für Trick kann man den Kunstgriff nehmen, im weitesten neudeutschen Sinne auch gerne Workaround. Und das habt Ihr beide ja in bravour geliefert. Entsprechend habe ich ein bisschen weiter herumgewerkelt und mir eine kleine Enum gebaut:

Code: Alles auswählen

Enum eSym
    similar = 8776
    okay = 10004
    todo = 10008
    promille = 8240
    promyria = 8241
    infinit = 8734
    average = 8960
    fract_13 = 8531
    fract_23 = 8532
    fract_15 = 8533
    fract_25 = 8534
    fract_35 = 8535
    fract_45 = 8536
    fract_16 = 8537
    fract_56 = 8538
    fract_18 = 8539
    fract_38 = 8540
    fract_58 = 8541
    fract_78 = 8542
End Enum

wobei meine kleine Symbol-Bastelei (etwas angepasst: Long statt Byte und die Iteratoren als Filter) gute Dienste geleistet hat.

Um diese Symbole jetzt in Sheets einzubinden kann man übrigens auf die Funktionen verzichten. Ein einfaches

Code: Alles auswählen

Sub Test()
    ActiveCell = ChrW(eSym.okay)
End Sub

genügt, z.B. auch um die Symbole in Arrays zum Füllen von Zellen zu nutzen. Strings oder Variants funktionieren leider nicht.

lg

[thowe]

Super heb,

danke!

Jetzt mal "ne 'blöde Frage"..

Wenn ich das Symbol "combined screen" haben möchte. Dieses hat den Code 8418,lt: screen combining enclosed. Welche Schriftart müsste ich da noch einstellen, zur bezughabenden Zelle? Bei mir zeigt Code 8418 nur das Symbol für broken Char an...

lg

[d'r Bastler]

Moin thowe,

wie es mit mancher 'blöden' Frage so ist: Sie lassen mich blöd aussehen

Zum Test habe ich die 8414 mal eben in meine eNum eingebaut und erhalte in der Zelle tatsächlich nichts. Interessant ist aber, dass in der Bearbeitungsleiste die rechte Hälfte eines Bildschirms auftaucht.

Ein Phänomen, dass man mit vielen Codes im Bereich 8400-8500 (und wahrscheinlich auch anderen) sehen kann. Während mit meiner Symbol-Spielerei die Spalte A leer bleibt, gibt's in der Bearbeitungsleiste durchaus was zu sehen.

Hilft zwar nicht direkt, bietet Symbol-Profis aber vielleicht einen Hinweis zur Lösung...

lg

[d'r Bastler]

8414 8418, sorry