Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak zrobic makro konwertujace na liczby
anonim




Typ: Nie zarejestrowany
Jak zrobic makro konwertujace na liczby

Mam pytanko jak zrobić makro które by uruchamiało sie konwertowało komórki tekstowe na liczbowe np w zakresie A120 jak wpisze 12,25 to żeby traktowało mi to jako liczbę a nie jako tekst  bo po wpisaniu z userforma nawet z przecinkiem arkusz widzi to jako text

18-05-2005 14:53
  
wild




Typ: neutral
Postów: 1
Zarejestrowany: Apr 2005

Jezeli przed zapisaniem z userforma zamienisz sobie tekst na liczbe to bedzie ok

Liczba = Val(Tekst)

pozdrawiam darek


_____________________________________________
daras

18-05-2005 17:28
Pokaż profil wild  Wyślij email do wild   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Możesz też sformatować komórki:

ThisWorkbook.Worksheets(1).Range("A1:A20".NumberFormat = "0.00"

I jeszcze lepiej byłoby, gdybyś wykorzystał rzutowanie typów, tylko nie w sposób  jaki podał Ci wild, a wraz z obsługą błędów:

ThisWorkbook.Worksheets(1).Range("A1" = CDbl(Me.TextBox1)

Spowoduje to, że użytkownik będzie zmuszony wpisać tylko poprawny format liczbowy. Val() niestety obcina pewne części i przy zapisie:
12345cnsdj123
w komórce zobaczysz tylko
12345
Stąd wniosek, by uzywać CDbl() do konwersji, rzutowania typu liczbowego.
CDbl() wyrzuci Ci błąd, że nie może dokonać konwersji takiej liczby (1345cnsdj123) i mając przygotowany podprogram obsługi błędów zmusisz użytkownika do podania właśćiwej wartości liczbowej.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

18-05-2005 18:06
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1