napisał: pil postów: 154
umieszczony: 1 marca 2006 07:21
|
|
Trebor, kolejny raz Twój pomysł jest lepszy, szybszy i bardziej elegancki :),tylko że przy takim użyciu :
max_stawka = Cells(1, 1).Text
zmienna będzie miała wartość np: "0,715878 zł", więc może tak :
max_stawka = Cdbl(Cells(1, 1).Text) ?
Pozdrawiam |
|
napisał: Trebor postów: 1209
umieszczony: 28 lutego 2006 16:53
|
|
Hej
Jeśli pełna wartość to taka jak wyświetlana w arkuszu to wystarczy:
Dim max_stawka As Double
max_stawka = Cells(1, 1).Text
Pozdrawiam |
|
napisał: pil postów: 154
umieszczony: 28 lutego 2006 14:53
|
|
Dziwna rzecz, mój Excel ma podobną przypadłość :), ale tylko gdy format komórek jest walutowy lub księgowy, przy formacie liczbowym wszystko jest O.K. Może by tak zmienić format komórek przed ich odczytaniem, a później powrócić do poprzedniego?
...
r2.NumberFormat = "#,##0.0000000"
...
...
tmp_stawka = r2.Cells(counter_z, 0).Value
...
...
r2.NumberFormat = "#,##0.0000000 $"
... |
|
napisał: bigbars postów: 1
umieszczony: 28 lutego 2006 13:07
|
|
Mam taką sytuacje:
seria komorek w arkuszu ma wartości typu: 0,717755 zł - od 6 do 8 miejsc po przecinku (taka dokladnosc jest potrzebna mimo ze nominalnie mamy najmniej 1 grosz w kieszeni ;) )
Odczytuje ta wartośc w VBA w nastepujacy sposob:
tmp_stawka = r2.Cells(counter_z, 0).Value
i kazdorazowo wartośc przyjmowana przez zmienna tmp_stawka ogranicza sie do 4 miejsc po przecinku np. 0,7178
w momencie gdy jawnie nie zadeklaruje tej zmiennej jako:
Dim max_stawka As Double
to w wyniku dostaje 0,72 a nie o,7178
czyli zaokrągleina działają smile.gif
ale jak odczytac pełną wartość komorki i przypisac ją do zmiennej?
pozdrawiam
robert |
|
wstecz 1 dalej wszystkich stron: 1
|