Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70224 Skopiuj do schowka Formatowanie niestandardowe
Autor Wiadomość
Leon M 
Fan Excela


Wersja: Win Office 2010
Posty: 97
Wysłany: 23-02-2021, 14:39   Formatowanie niestandardowe

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
ID posta: 400891 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 771 razy
Posty: 4155

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

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 400900 Skopiuj do schowka
 
 
Leon M 
Fan Excela


Wersja: Win Office 2010
Posty: 97
Wysłany: 23-02-2021, 19:36   

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.
ID posta: 400925 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 2027 razy
Posty: 6409
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

ID posta: 400927 Skopiuj do schowka
 
 
Leon M 
Fan Excela


Wersja: Win Office 2010
Posty: 97
Wysłany: Wczoraj 7:20   

Macieju, bardzo dziękuję za Twą cenną pomoc. O taki efekt formatowania mi chodziło.
ID posta: 400932 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe