Lär fall funktioner VBA så att du kan automatiskt utnyttja eller använda gemener i text istället för att kräva din programmets användare att göra det manuellt . Lär dig " Select Case " uttalande att minska röran i din kod . Den kunskap du får från att lära dessa uttalanden kan hjälpa dig att skriva egna fall uttalanden , såsom de som ignorerar ord som " det " och " a " för att producera rätt skiftläge för rubriker i ett dokument . UCase
VBA UCase Funktionen omvandlar texten till dess enda argument till alla versaler . Till exempel kör uttalandet " Debug.Print UCase ( " hej " ) kommer att resultera i " HELLO . " Du behöver ett program för att prova det här , men du kan köra exemplet bara ges från VBA " Omedelbar " fönstret . Öppna VBA-programmering miljö genom att klicka på " Visual Basic " -knappen på fliken Utvecklare , och klicka sedan på " Klar " post under VBA : s Fönster-menyn . Skriv " debug " uttalande just beskrivits för att se " HELLO " text visas .
LCase
VBA : s LCase funktion omvandlar input text till gemener , vilket är användbart om du behöver för att jämföra textsträngar med olika ärenden . till exempel, om ditt program har en variabel " x " , vars värde är " Hej " och ett värde " y " , vars värde är " HELLO , " då jämförelsen " x = y " skulle återvända " False " eftersom de fall som inte matchar . jämförelsen " LCase ( x ) = LCase ( y ) " skulle ge " Sant , " dock , eftersom uttalandet ändrar fallet med alla bokstäver för att sänka .
Select case
Välj ärende funktionen ersätter flera om dess uttalanden . The Select Case uttalande testar en variabel , medan det enskilda fallet uttalanden tillhandahålla kanaler för programkörning baserad på testresultaten . du kan ha så många mål uttalanden som behövs. Om du vill vara säker på att Välj ärende uttalande fångar alla tänkbara förhållanden , inkluderar en Case Else uttalande inför End Select uttalande . ett exempel illustrerar hur välja fall fungerar .
Public Sub testfall ( ) katalog
Dim ålder
ålder = InputBox ( " Ange din ålder . " ) katalog
Select Case ålder
mål 13 Till 19 :
MsgBox " Du är en tonåring . "
Case 20 till 29 :
MsgBox "Du är i tjugoårsåldern "
Case är > = 30 :
MsgBox " Du är över 30 . "
End Välj
End Sub
Word Case property
Microsoft Word VBA språket har en funktion - liknande egendom kallade " case " för tillämpning titel , meningen och andra ärenden till text . för att se denna fastighet i handling , skriva gemener text i ett nytt dokument , och markera den text genom att dubbelklicka på den . Klicka Word " Utvecklare " fliken , därefter klicka på " Visual Basic " knappen för att öppna VBA-programmering miljö . Klistra in följande program i miljön centrala fönster . Detta program använder Word fall egenskapen att omvandla den markerade texten först meningen fallet , sedan till versal . Kör programmet genom att trycka " F5 . " texten du valde att ändra fallet varje gång du trycker på " Enter ".
Sub C ( ) katalog
MsgBox ( " Här är meningen fallet ... " ) katalog
Selection.Range.Case = wdTitleSentence
MsgBox ( " Tryck ' Enter ' för att se titel case " ) katalog
Selection.Range.Case = wdTitleWord
End Sub Addera
