Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Office Excel 2007 a potom kliknite na kartu " Vývojár " . Kliknite na ikonu " Visual Basic " z " Code " paneli otvorte Editor jazyka Visual Basic . " . Hárok1 " Double - kliknite na " Hárok1 " na " Prehliadač projektu " paneli otvorte modulu kódu pre
2
Vytvoriť nový " SelectionChange " sub postup zadaním nasledujúci kód jazyka VBA :
Private Sub Worksheet_SelectionChange ( byval cieľ ako rozsah )
3
Vytvoriť premennú String používa, aby sa text zadaný užívateľom :
Dim userString As String
4
Začiatok " keby " vyhlásenie , a skontrolujte , či sú znaky zadané v " A1 " viac ako 10 znakov . Zadajte nasledujúci kód :
Ak Cells ( 1 , 1 ) Characters.Count > 10 Potom
5
Zobrazí sa okno so správou , pokiaľ znaky prekročiť hranicu 10 znakov . :
MsgBox " A1 má limit 10 znakov "
6
Získajte hodnoty zadané užívateľom a skráti ho na 10 znakov zadaním nasledujúci kód :
userString = Cells ( 1 , 1 ) . Hodnota
userString = Left ( userString , 10 )
7
Uložiť skrátený reťazec späť na " A1 " a nakoniec "Ak " výpis:
Cells ( 1 , 1 ) Hodnota = userString
End If
8
ukončite postup zadaním nasledujúceho : .
end Sub
Copyright © počítačové znalosti Všetky práva vyhradené