VBA - inverzní funkce k funkci CHAR

Dobrý den.

Mám problém se cvičenými opičáky. Potřebuji je přinutit, aby do zadání přes text box ve formuláři VBA vkládali pouze a jedině písmena. K tomu potřebuji kontrolní funkci.

V čistém Excelu se tato funkce dala napsat například takto

=IF(CODE(A1)<65,FALSE,TRUE)

=IF(CODE(A1)>122,FALSE,TRUE)

Ve VBA funkce CODE chybí. Nevíte někdo, čím se nahrazuje? Funkce Isnumeric nestačí.

Děkuji předem

Dobrý den, díky za odpovědi, ale bohužel ani jedna není použitelná. A promiňte. Měl jsem si s otázkou dát trochu víc práce.

Jedná se o toto

Potřebuji bool funkci, která vyhodnotí krátký textový string a vrátí TRUE, FALSE.

funkce vrátí TRUE, když :

1/ je string složený z jednoho nebo dvou znaků

2/ když znak nebo znaky jsou písmeno, např A, B, W, AB, PX, d atd

3/ když jsou znaky dva a nejsou stejné, např AA nebo BB

S malými a velkými písmeny není problém, ještě před vstupem do této funkce se písmena převedou na velká, takže malá písmena se do funkce vůbec nedostanou

Otázka zní takto : Jak vyloučit ostatní textové znaky, aniž bych je musel všechny vyjmenovávat?

Když do té funkce vložíte například _A nebo %B nebo ...&, pak vrací TRUE a to je špatně.

díky za trpělivost, dole přikládám kod a jeho obrázek.

*

Private Function CheckPartnumera(str As String) As Boolean
If Len(str) = 1 Then
If str = " " Or str = "..." Then 'pozor na tvrdou mezeru nebo vypustek a podobne. SPRAVIT!
CheckPartnumera = False
ElseIf IsNumeric(str) = True Then
CheckPartnumera = False
Else
CheckPartnumera = True
End If
ElseIf Len(str) = 2 Then
If Left(str, 1) = Right(str, 1) Then
CheckPartnumera = False
ElseIf IsNumeric(Left(str, 1)) = True Or IsNumeric(Right(str, 1)) = True Then
CheckPartnumera = False
ElseIf Left(str, 1) = " " Or Left(str, 1) = "..." Then 'SPRAVIT!
CheckPartnumera = False
ElseIf Right(str, 1) = " " Or Right(str, 1) = "..." Then 'SPRAVIT!
CheckPartnumera = False
Else
CheckPartnumera = True
End If
Else 'delka stringu partnumera je 0 nebo nad 2 znaky
CheckPartnumera = False
End If
End Function

************************

Dík dávám bodíky za snahu o pomoc, ale nakonec jsem musel udělat to, čemu jsem se chtěl od začátku vyhnout. Ta funkce se bude muset vyhodnocovat přes excelovskou buňku a tady je vzorec.

=IF(LEN(B44)=1,IF(AND(CODE(B44)>64,CODE(B44)<91),TRUE, FALSE),IF(LEN(B44)=2,(IF(LEFT(B44,1)=RIGHT(B44,1),FALSE,(IF(OR((IF(AND(CODE(LEFT(B44,1))>64,CODE(LEFT(B44,1))<91),TRUE,FALSE))=FALSE,(IF(AND(CODE(RIGHT(B44,1))>64,CODE(RIGHT(B44,1))<91),TRUE,FALSE))=FALSE),FALSE,TRUE)),FALSE))