Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Formatowanie niestandardowe

Leon M · Fan Excela Wersja: Win Office 2010 Posty: 97

Szanowni Forumowicze, uprzejmie proszę o pomoc w poniższej kwestii:

Czy istnieje taki kod dla formatowania niestandardowego, który sformatuje komórkę w ten sposób, że liczba całkowita będzie wyświetlana bez części ułamkowej, natomiast w przypadku liczby niecałkowitej część ułamkowa będzie zaokrąglona do dwóch miejsc po przecinku?

Z góry pięknie dziękuję za odpowiedzi

umiejead · Wysłany: 23-02-2021, 15:25

Nie załączyłeś pliku - więc na moim przykładzie (VBA):

Kod:

Private Sub CommandButton1_Click()
Dim i&, d&

d = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To d
If Int(Cells(i, 1).Value) = Cells(i, 1).Value Then
Cells(i, 2).Value = Cells(i, 1).Value
Else
Cells(i, 2).Value = Format(Round(Cells(i, 1).Value, 2), "0.00")
End If
Next i

End Sub

zaokr.xlsm

Pobierz Plik ściągnięto 2 raz(y) 20.2 KB

Leon M · Fan Excela Wersja: Win Office 2010 Posty: 97

Umiejead, bardzo dziękuję za makro. Każdy przykład uczy mnie czegoś nowego. :-)

Pisząc powyżej o kodzie, miałem na myśli kod wprowadzany w oknie "Formatowanie komórek", rozwijanym ze wstążki z karty liczba.

Jeszcze raz bardzo proszę o pomoc.

Maciej Gonet · Wysłany: 23-02-2021, 20:17

Obawiam się, że samym kodem formatu nie da się tego osiągnąć.
Bo jeśli zastosować formatowanie

Kod:

0,##

to w przypadku liczb całkowitych zostanie przecinek.
Rozwiązaniem może być formatowanie warunkowe.
Formatem bazowym będzie format Ogólne, natomiast formatowanie warunkowe włączymy gdy liczba zawiera część ułamkową. Można to rozwiązać kilkoma sposobami, na przykład tak:

Kod:

Formatuj tylko komórki zawierające/Z określonym tekstem/zawierające/,

Jako kod formatu można wybrać jeden z formatów liczbowych, najprościej

Kod:

0,00

Format_przecinek.xlsx

Pobierz Plik ściągnięto 3 raz(y) 8.32 KB

Leon M · Fan Excela Wersja: Win Office 2010 Posty: 97

Macieju, bardzo dziękuję za Twą cenną pomoc. O taki efekt formatowania mi chodziło.