Wie zu verwenden Wie zu prüfen, ob eine Übereinstimmung existiert

Question

Fehle ich etwas sehr einfach oder ist das wirklich nicht machbar? Ich möchte überprüfen, ob str (was nur ein Buchstabe ist) ein Vokal ist.

Dim testCheck As Boolean 
testCheck = str Like [a,e,i,o,u] 
If testCheck Then 
    str = UCase(str) 
End If 

Ich war auf der Suche nach einer eleganteren Lösung als Schleife durch ein Array.

Answer 1

verwenden Wenn Sie Like dann

verwenden verwenden möchten

str Like "[aeiou]" 

instr könnte effizienter sein, wenn

Answer 2

instr(1,"aeiou",str)>0 oder Sie können wie x oder y wie oder wie z, für ein Zeichen verwenden, obwohl, würde ich str = a oder str = b, statt wie