user: "pawelj"

Witam. Nie bardzo wiem jak sobie poradzić i może ktoś mi pomoże Na userform wstawiam sobie dwa pola textbox. W jednym będę wpisywał nazwisko a w drugim kwotę Nazwisko chcę mieć tak, żeby pierwsza litera była duża, reszta małe. Natomiast w polu kwota chcę mieć tylko cyfry i żadnych liter. Jak to zrobić, żeby w polu nazwiska makro sobie porawiało samo użytkownika a w polu kwota albo pokazało komunikat jak się wpisze coś innego niż cyfrę albo nie pozwalało wpisać liter? Szukam i myślę i nic nie mogę wyszukac ani wymyśleć a pewnie to się da łatwo zrobić. Pomoże ktoś? -- PawełJ

user: "pawelj"

Dodam jeszcze, bo to może być przydatne :) że chcę to zrobić w visual basicu pod excelem 2003 A przy okazji szukam jakiejś mądrej książki traktującej i visual basicu pod excelem, tyle że w j. polskim bo z innymi to ciężko u mnie -- PawełJ

user: "pawelj"

Użytkownik "Skylla" napisał w wiadomości news:fc6ve9$1eh$1@news.onet.pl... >> Witam. >> Nie bardzo wiem jak sobie poradzić i może ktoś mi pomoże >> Na userform wstawiam sobie dwa pola textbox. W jednym będę wpisywał >> nazwisko a w drugim kwotę >> Nazwisko chcę mieć tak, żeby pierwsza litera była duża, reszta małe. >> Natomiast w polu kwota chcę mieć tylko cyfry i żadnych liter. Jak to >> zrobić, żeby w polu nazwiska makro sobie porawiało samo użytkownika a w >> polu kwota albo pokazało komunikat jak się wpisze coś innego niż cyfrę >> albo nie pozwalało wpisać liter? >> > Klawisze mają kody (Keyascii lub Keycode). W zdarzeniu KeyPress lub > KeyDown pola tekstowego można je sprawdzać i przepuszczać tylko te dla > cyfr (oraz kropka lub przecinek, minus i backspace czy del). Twój sposób wydaje mi się dość skomplikowany. Choicaż może mi się tak tylko wydaje. Szukałem szukałem i znalazłem. Dość prosto. Nie wiem na ile to jest prawidłowe ale działa tak jak chcę. Pole textbox1 to nazwisko: cała procedura (?) wygląda tak: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = StrConv(TextBox1.Value, vbProperCase) 'poprawiam na małe i duże End Sub Powyższe zamienia na pierwszą dużą literę. Jeżeli chodzi o sprawdzanie czy są cyfry to : textbox4 to pole w którym ma być kwota Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox4.Value = StrConv(TextBox4.Value, vbProperCase) End Sub W obydwóch moim zadaniem było wpisanie tylko środkowej linii :) Przy okazji znalazłem taką fajną stronkę http://www.vb4all.pl/teoria/ i życie stało się proste :) --

user: "pawelj"

>> Jeżeli chodzi o sprawdzanie czy są cyfry to : >> textbox4 to pole w którym ma być kwota >> Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean) >> TextBox4.Value = StrConv(TextBox4.Value, vbProperCase) >> End Sub >> > napisałeś 2x to samo No fakt. wszystko przez wklejanie. Sprawdzenie czy są cyfry wpisane wygląda tak: If IsNumeric(TextBox5.Value) = False Then blad.Show End If -- Pawełj