excel - obcinanie groszy zamiast zaokrąglania

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» Carduin 02:05 » cVas 01:53 » bmiluch 01:14 » Martens 01:09 » wrrr 00:55 » abes99 00:49 » Fl@sh 00:48 » Bonifacyz 00:43 » skalak23 00:22 » DJopek 00:18 » Ramol 23:42 » metacom 23:33 » @GUTEK@ 23:31 » Visar 23:27 » GLI 23:26 » Soulburne 23:25 » Brauni 23:20 » Kool@ 23:12 » Kenny 23:11 » rainy 23:07 Dzisiaj przeczytano 6257 postów, wczoraj 72839 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

excel - obcinanie groszy zamiast zaokrąglania , DeK 14/11/04 14:51
jak zrobić żeby w komórce w której się wspisuje kwotę po wpisaniu 45,66 obcinał mi to 66gr a nie zaokrąglał do 46zł ?
Prawdopodobnie trzeba użyć LICZBA.CAŁK ale jak zrobić żeby funkcja zmieniała mi wpisane dane w tej samej komórce?
Chyba ze jest inne rozwiązanie z excela jestem noga

Skasowanie miejsc edziesiętnych we wlasciwosciach komórki nic nie daje bo wlasnie wtedy mi automatycznie zaokrągla.

Tak jak piszesz... , JE Jacaw 14/11/04 18:07
...trzeba się posłużyć jakąś funkcją np. liczba całkowita, jednak nie znam sposobu, aby to funkcjonowało w tej samej komórce. No, chyba, że jakieś makro, ale tu się już nie znam.
Socjalizm to ustrój, który
bohatersko walczy z problemami
nieznanymi w innych ustrojach
odp , Zajkos 15/11/04 09:16
makro przypisane do zdarzenia OnChange dla wybranego arkusza (WorkSheet) i zmiany w komorce A1.

Private Sub Worksheet_Change(ByVal Target As Range)

For i = 1 To Target.Areas.Count
With Target.Areas(i)
For j = Target.Areas(i).Row To Target.Areas(i).Row + Target.Areas(i).Rows.Count
For k = Target.Areas(i).Column To Target.Areas(i).Column + Target.Areas(i).Columns.Count

If k = 1 And j = 1 Then ' k to nr wiersza, j nr kolumny komorki ktora ma byc sprawdzana
If IsNumeric(Application.Cells(j, k)) Then
Application.Cells(j, k).Value = Int(Application.Cells(j, k))
End If
End If

Next k
Next j

End With
Next i
End Sub
1. dzięki , DeK 15/11/04 14:03
  :-)
2. Acha jeszcze jedna mała rzecz , DeK 18/11/04 01:16
  Jak zmodyfikować to makro żeby nie pojawiało się zero w komórce w której nic nie ma a do której odnośi się makro?
  Ogólnie wlasnie o to mi chodziło tylko to zero zawadza.
  
  pozdr.
najprościej to kilknąć dwa razy , jam1 15/11/04 14:16
na taka ikonke
,00
->.0
zmniejszaj dziesiętne
p4N 3Ghz +2GBRAM+6600GT
1. albo grosze zapisywac w innej kolumnie , jam1 15/11/04 14:24
  też fajne
  p4N 3Ghz +2GBRAM+6600GT