Co setny zostaje. [syntax=vbscript]Sub co_sto() i = 1 Do While Cells(i, 1) <> "" Rows(i).Resize(99).Delete i = i + 1 Loop End Sub[/syntax]
Problem nie jest całkiem prosty, bo jakby był prosty, to sam znalazłbyś rozwiązanie. Nie da się sformatować wybiórczo (w sensie każdy znak osobno) wyników formuły. Cały wynik formuły musi być sformatowany jednakowo. Formatowanie wybiórcze jest możliwe tylko w przypadku stałych tekstowych. Można tu zastosować kopiowanie, tylko kłóci się ono jeszcze ze...
Użyj właściwości Text komórki zamiast Value, czyli [syntax=text].TextFrame.Characters.Text = Cells(3, 2).Text[/syntax]
No, nie wiem... Moim zdaniem wystarczy użyć funkcji IsDate() do sprawdzenia, czy wpisana wartość zostanie przez Excela rozpoznana jako data. jak pisałem, wtedy fromat DD.MM.YYYY nie zostanie jako taki rozpoznany (co innego: DD-MM-YYYY). W tym kodzie co masz teraz za "poprawny" zostanie uznany np. taki zapis: 99.99.9999
Plik CSV nie ma formatowania. To plik tekstowy. Dopiero otwarcie go w Excelu powoduje, że Excel domyślnie kojarzy dane z ich przypuszczalnym formatem.
Można też pozostawić po liczbie spację, a dopiero potem dodać /A i wtedy przez przeciągnięcie można komórki ponumerować. Później ewentualnie można hurtem te spacje usunąć przez zamianę spacji na tekst pusty. W tym wariancie fragment /A jest częścią zawartości komórki i można w innej komórce zrobić do niego odwołanie. Wariant zaproponowany wcześniej...
Ustaw format liczb dla pola tabeli przestawnej, a nie z poziomu formatowania komórek. Dwukrotne kliknięcie w tabeli na nazwę pola powinno wyświetlić okno "Ustawienie wartości pola" tam też wybiera się funkcje podsumowującą. W tym oknie jest przycisk "Format liczby".
Czy ktoś z Was wie, jak sobie z tym formatowaniem poradzić, aby za każdym razem, gdy włączę Excela i dodam nowe wiersze, to nie będę musiał ręcznie zmieniać formatowania? Formatuj daną komórkę przed wstawieniem danych, rozumiem, że chodzi ci o range(4) i (5)? [syntax=vbscript].Range(4).NumberFormat = "yyyy-mm-dd"[/syntax]
[syntax=vbscript]Sub Konwersja() With Application.FileDialog(msoFileDialogFold... .Title = "Wybierz folder z plikami CSV" .InitialFileName = Environ("userprofile") & "\Desktop" If .Show = -1 Then f = .SelectedItems(1) End With If f = "" Then Exit Sub x = "\PlikiExcel" If Dir(f & x, vbDirectory) = "" Then MkDir (f & x) csv = f &...
Excelem łączę się przez referencje Dzięki CreateObject("Excel.Application") nie musisz dodawać referencji do Excela w twoim makrze. To jest właśnie najpiękniejsze. GetObject używa już dodanej referencji do Excela natomiast CreateObject tworzy obiekt z COM bez potrzeby ręcznego dodawania referencji. Działa w większości wersji Excela. Ciekawe czy takie...
[syntax=text]=WIERSZ()&"/2011"[/syntax] i przeciągnij w dół. Jeśli kolumna ma nagłówek, dodaj odp liczbę. Np WIERSZ()+2 od trzeciego.
formatowanie warunkowe menu format
Czy podpowiedź Kolegi clubs nie rozwiązuje Twojego problemu? Nie piszesz o co Ci finalnie chodzi. Znak apostrofu dodany na początku wpisu stałej do komórki jest tylko znakiem formatującym i informuje, że dalszy ciąg wpisu ma być traktowany jak tekst, sam apostrof jednak nie jest traktowany jak znak (nie liczy się np. do długości tekstu). Co innego gdy...
W zalaczniku plik bin, jest to kopia danych z tabeli.
Jeśli datę zapisujesz w komórce, to może okazać się, że to nie taka prosta sprawa. W innym przypadku spróbuj podmienić separator. Np [syntax=vb]jakasData = Date If Application.International(xlDateSeparato... <> "." Then jakasData = Format(jakasData, "dd.MM.yyyy") End If MsgBox jakasData[/syntax]
Jak ten problem rowiązać Jeśli ten problem występuje w pliku wypełnianym ręcznie :?: najprostsze rozwiązanie to całą kolumnę sformatować jako tekst wówczas nie będzie problemu z automatyczną konwersją Excela numerów faktur typu "01/2019" w format daty :!: :idea:
Jak wyżej. W tym przypadku należy oprogramować zdarzenie ramki. Poniżej przykład dla Frame_Exit. Jednym z minusów jest to, że ramka "odezwie" się także przy zamykaniu formularza. Dlatego dodatkowy warunek i czyszczenie zawartości. Jeśli ramka służy tylko celom estetycznym, prościej będzie zamiast niej wstawić pusty Label z obramowaniem... [syntax=vb]Private...
Przede wszystkim: dana jest rozpoznawana przez eksel jako liczba? Jeżeli tak to może wystarczy zmienić formatowanie komórki? Jeśli jest traktowana jako tekst to jest funkcja NUMBERVALUE (w polskim ekselu zdaje się WARTOŚĆ.LICZBOWA), którą można przekonwertować tekst na liczbę.
Skąd mamy wiedzieć w jakim formacie są dane przed wykonaniem makra !? Naprawdę tak trudno dołączyć plik Excela ? W makrze zamieniasz zaznaczone dane na format liczbowy z separatorem tysięcy i dwoma znakami po przecinku, próbowałaś to wyłączyć ? Na zrzucie widać, że kolumna "Data zamówienia" zawiera wartości daty ale w formacie liczbowym, nie wystarczy...
W przypadku dwóch nagłówków wystarczyłoby If-Else. Ale jeśli masz już prawie gotowe... Uzupełniłem tylko to i owo [syntax=vb]Function formatowanie(a As Single, naglowek As String) As String Select Case naglowek Case "Cena" formatowanie = Format(a, "####.00 zł") Case "Powierzchnia" formatowanie = Format(a, "#### m2") End Select End Function Sub Proba()...
Ciekawa sprawa... Przecinek jakby z innej bajki i nie chce się formatować komórka. Spróbuj w pętli: [syntax=vb]Sub Makro() Dim c As Range For Each c In ActiveSheet.UsedRange If Right(c, 1) = "*" Then c = Val(Left(c.Value, Len(c) - 1)) c.NumberFormat = "0.00" End If Next End Sub[/syntax]
Proszę o plik excel tylko do formatów napisów i poprawnie utworzyć formułę. I raczej jeden wiersz z euro i jeden ze zlotim. zdjęcie pokazuje, jak to wygląda, ale czy ma numeru lub tekstu lub innego formatu można zobaczyć tylko w pliku. Nie sądzę, że to wielka tajemnica Dodano po 2 plik prawdopodobnie nie będzie czekać. Jeśli kolumna C:C jest tekst to...
Zerknij tu http://officetricks.com/convert-contacts... P.S. 'ShellExecute' można pominąć, wtedy 'Private Declare Function ShellExecute ' to samo
Nie co siódmą komórkę, tylko siódmy dzień tygodnia. Poza tym po co formuła, skoro i tak całość ma się równać 7? :) Zamiast szukać prawdy i fałszu w porównaniu od razu można ją wkleić w format warunkowy.
Nie wiem do końca czy o to ci chodzi bo makro u mnie powoduje błąd (a nie chce mi sie na razie go analizować) Może wystarczy zrobić dla komórek z datą niestandardowy format? http://obrazki.elektroda.pl/8369149400_1...
="General"
To ten plik.
Trzeba to przy zapisywaniu do formatu excela zdefiniować.
Zastosuj w C10 formułę: =ZŁĄCZ.TEKSTY("9/10/25/337/&quo...
Niestety, jest to znany i występujący od dawna problem wynikający ze sposobu przeprowadzania przez excel obliczeń na liczbach zmiennoprzecinkowych. [url=https://answers.microsoft.com/en-us... do wyjaśnienia z answers.microsoft.com Trzeba używać zaokrągleń...
Jest wiele metod, napiszę ci taką, która mnie odpowiada. Zaznaczasz wszystkie komórki, wybierasz opcję: szukaj i zamień. Wpisujesz to co ma być zamienione, na to co ci pasuje [kropka na przecinek, czy przecinek na kropkę], i klikasz zamień wszystko, i to tyle.
DataTime.FromOADate Testuje najkrótszy posty który uzyskał "pomógł"
W ark1 Ctr+A, Ctr+C, i w ark2 wklej specjalnie>formaty. Lub kliknij: 1. w narożnik ark1 (zaznacz cały) 2. w ikonę malarza formatów 3. w narożnik ark2
Wartość komórki mniejsza/większa niż ="DZIŚ" A tak próbowałeś bo powinno zadziałać: Wartość komórki mniejsza/większa niż =DZIŚ() Oczywiście wprowadź jeszcze do warunku jakiś format.
Dzień dobry, Aby uniknąć migotania ekranu przy zmianie aktywnego arkusza należy na początku makra dopisać linijkę: [syntax=text]Application.ScreenUpdating = False[/syntax] a na końcu linijkę: [syntax=text]Application.ScreenUpdating = True[/syntax] Czy jest możlwe jeszcze jakieś usprawnienie, to trudno powiedzieć bez wglądu w strukturę danych. Jeżeli...
Jeżeli w A6 czas nie jest w sekundach tylko w ułamkach doby, to w F6 nie da się prościej zapisać. Natomiast w komórkach B6 i C6 można sobie wyliczyć minuty, czy godziny, co potrzeba, i dalej tego używać. Tylko to już są liczby w formacie ogólnym, a nie w formacie czasu. Format czasu to są zawsze ułamki doby, a to co widać w komórce, to "złudzenie",...
Po mojemu, nie ma tu nic skomplikowanego, jedynie "trochę" grzebaniny... Pętla z zastawieniem kilku sideł w postaci instrukcji warunkowych i jazda. Excel nie jest od poprawiania błędów językowych, więc to zostawiłbym Word'owi, albo w ogóle się nie przejmował. Wstawienie grafiki do formularza nie jest problemem. Rzecz w tym, żeby przygotować źródło w...
Twórcy Excela mają obsesję zamieniania wszystkiego, co może przypominać datę, na tę datę właśnie. I niestety nie znam sposobu jak to wyłączyć. Kluczem jest tu format daty ustawiony w systemie operacyjnym w ustawieniach regionalnych, bo z niego Excel odczytuje domyślny format daty. W Windows 10 PL przyjęto jako domyślny, format daty z kropkami dd.mm.rrrr...
Jeśli to miałyby być formuły, to tak jak napisałem: Trzeba wpisywać po kolei od lewej z zachowaniem ciągłości numeracji. Jeśli chcesz modyfikować dane losowo, to tylko VBA. A jeśli VBA, to musiałbyś opisać jak dokładnie miałoby to działać. Czy zakres komórek C6:P6 byłby stały? Czy kolejność numerów miałaby być korygowana na bieżąco po każdym wstawionym...
Prościej będzie wpisać w C2: =TEKST(DATA(1;PRAWY(B2;2)*1;1);"mmmm") ew sama data i format niestandardowy...
Oczywiście ja i kolega nie podaliśmy, że format daty ustalasz sobie wg wzorców (literek d,m i r - dużych i małych).
Jeżeli A1 zawiera datę to liczbę dni od początku roku możesz obliczyć formułą: =A1-(DATA(ROK(A1);1;1)-1) nadając komórce format ze jest liczbą (Format -1234).
Spróbuj: =A1&TEKST(A2;"g:mm"...
A jak wpiszesz =F3*24 i dasz format liczbowy komórki to nie działa?
tylko zapomniałem dodać Hmmm, epidemia jakaś na Elce? Do rzeczy. W takim razie są cztery możliwości i trzeba testować. Na rysunku z zastosowaniem kolumn pomocniczych. U mnie data systemowa ma format "dd-MM-rrrr" (kol.A). http://obrazki.elektroda.net/80_12838062...
Dla godziny w komórce A1 =(A1-MOD(A1;1))*24+GODZI... i ogólne formatowanie liczb w komórce.
Dla Excela 2007 i powyżej: Formatowanie warunkowe -> Nowa reguła-> Użyj formuły do określenia komórek, które należy sformatować. W okienku formuły wpisujesz warunek "=ORAZ($A$2=1;$B$2="") i dalej ustawiasz format komórki Dla pozostałych komórek ustawiasz warunki format podobnie.
Normalnie się nie da. Ale jak masz niedużo tych danych, to możesz się pobawić i osiągnąć taki efekt przez kody formatu. Komórka, którą chcemy sformatować paskiem danych, musi zawierać wartość liczbową, na podstawie której określa się długość paska. Nie da się zrobić tak, jak to jest przy tradycyjnym formatowaniu za pomocą formuły, że efekt formatowania...
Do etykiet na wykresie, podobnie jak do danych w komórkach, można zastosować formatowanie liczb, które pozwala na zmianę koloru czcionki (ale nie tła) za pomocą kodu formatu. Przykładowo kod formatu, który wyświetla liczby poniżej 95% na czerwono wygląda tak: [syntax=text][Czerwony][<0,95]0%;0%[/...
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk ssssssssssssssssss-
Nie, w UserForm, w sekcji UserForm_Initialize: Private Sub UserForm_Initialize() MultiPage1.Value = 0 DTPicker1.Value = Date MultiPage1.Value = 1 DTPicker2.Value = Date MultiPage1.Value = 2 DTPicker3.Value = Date End Sub
Zaznacz komórki w których chcesz kopiować te daty następnie kliknij w Format liczb-> Tekstowe. Teraz wszystko będzie się kopiować w takim formacie w jakim wyszło z pierwotnej komórki.
1. Jeżeli data jest większa od daty aktualnej (dzisiejszej) - komórki podświetlana jest na zielono. 2. Jeśli data jest z miesiącem i rokiem tym samym co obecnie (np. dziś jest 22.10.2018, komórki mają daty 31.10.2018) - komórki podświetlane są na żółto. 3. Jeśli data jest mniejsza od daty aktualnej - komórki podświetlane są na czerwono. Na logikę:...
W załączniku masz formułę. Jest to Suma.Jeżeli(). Co do kolorków liczb ujemnych to najprostszym jest formatowanie komórek. Masz do wyboru format w jakim liczby będą wyświetlane.
Bo masz bajzel z tymi datami. Np w D797 jest 1/13/2014 w D1403 jest 13/01/2015 oraz wiele, wiele innych. W związku z tym 10/12/ to dwunastego października, czy dziesiątego grudnia? I co z tym biedny Excel ma zrobić?
Należy zauważyć, że w programie Excel w formacie 'data-czas' dzień jest równa jednostce i nie 24. Tzn. 12:00 na ekranie liczba rzeczywiście 0,5. =JEŻELI(R20="W";"W";JEŻELI(R20="U";"08:0... 24 -R20)+S20);S20-R20)))
A możesz trochę zmienić opcję wykresu tzn. W opcji etykiet wybierz "wartość" (nie "wartość procentową") a w drugiej "zakładce" liczby zaznacz "połącz ze źródłem". Wtedy będziesz miał ten format który masz w komórce i nie powinno nic przy przenoszeniu zmieniać. Sprawdź mój plik na paru innych kompach.
A jakiś problem skorzystać z Google?? https://www.google.com/search?&q=xml+to+...
Sprawdź w ustawieniach opcje dotyczące Automatycznego wstawiania przecinka dziesiętnego oraz jak masz ustawione opcje dotyczące separatorów dziesiętnych i tysięcy (Plik/Opcje/Zaawansowane)
Należy zastosować odpowiedni format niestandardowy - w tym przypadku zamiast formatu [g]:mm lub [gg]:mm należy zastosować format [g]" godziny". Formatowanie: prawy klawisz myszy/Formatuj komórki/Liczby.
Witaj Ponieważ wiemy tylko zakres wejściowy jest nieznany, gdzie wynik, Załóżmy, że R3. znaleźć komórki z największą wartość - colrez=Application.WorksheetFunction.Mat... i skopiuj format do klatki wyniku R3 - Range("S3:AD3").Cells(colrez).copy Range("R3").PasteSpecial xlFormats Application.CutCopyMode = False Oczywiście...
Suma jest prawidłowa tylko trzebaby było "odsłonić" dni. Jeżeli mają być tylko godziny zmień format komórki na niestandardowy: [g]:mm
1. W celu uzyskania daty, zamień "." na "-" w kolumnach D i K -zaznacz kolumnę -Ctrl+h Nie wykonuj, jeśli u Ciebie wyświetla prawidłową datę (Czesi mają kropkę, zdaje się). 2. Odejmowanie+format niestandardowy
pozostalem przy starej wersji excela
Witam, Czy jest możliwość umożliwienia pracownikom tylko wpisywanie w komórkę ale bez możliwości zmiany formatu tej komórki, np. obramowania, szerokości, itp. Chciałbym aby koś kto chce skopiować i wkleić tekst z innej komórki gdzie jest obramowanie grubą linią, wkleił się jedynie sam tekst. Wiem, że można to zrobić kopiuj>wklej>wklej specjalnie>wartości....
Jaka metodyka? Ot wszystko jest w Excelu a publikowane z Excela do HTML rozwiązaniem VBA MS. Metodę prób i będów doszedłem już że problemem są i komórki scalone i opisy pionowe, które w publikowaniu zamieniane są na poziome i pewnie wiele innych rzeczy. Problemem głównym dla mnie jest ta funkcja JEŻELI($R$10>myLimit;"J";""), a dokładnie zwracanie pustej...
1. co to jest za program? tzn co on zlicza? 2. czy zapisuje w tym pliku jakies inne dane? 3. czy te kolumny nie sa w jakis sposob obliczane? tzn dane sa inne ale to co podgladasz w tym oknie to wynik jakis obliczen? 4. przydalyby sie pliki z licznikami zwiekszonymi tylko o 1. wtedy bylaby jasnosc. podaj pare szczegółów, to sie pomyśli. PS. nie pakuj...
Witam, W jednym arkuszu mam wyliczoną wartość procentową w komórce B1. Wynik obliczenia to 64% - format komórki procentowy. W drugim arkuszu robię proste odwołanie: ='Arkusz1'!B1 - wyświetla 64% . Problem zaczyna się, gdy do formuły dodam tekst: ="wzrost o "&'Arkusz1'!B1 . Wtedy wyświetla się wartość liczbowa 0,64 . Czy jest sposób, aby w formule odwołania...
Znacie jakiś darmowy konwerter plików pdf do formatu excel? Próbowałem te onlinowe, ale one mi układają nawet dobrze, ale robią to w postaci setek tabel, każda po 30 wierszy a ja chcę ciągiem w jednak kolumnie, w jednej tabeli wiersze od 1...do 10000
:arrow: marek003 Ano racja... Czyli "nietablicowo" można tak: LICZ.JEŻELI podziel przez ILE.LICZB, format procentowy komórki wynikowej i kropka.
sorry , i've got this file (excel) format which also contains some little repair tips , hope it'll be of some help regards
No najprościej to w formatowaniu komórek w zakładce liczby dodać format niestandardowy wpisać 0% i zatwierdzić...
Mam problem z formatowaniem wyświetlanej godziny: używam kodu: Private Sub cb_nadgodziny_change() cb_nadgodziny.Value = Format(cb_nadgodziny.Value, "hh:mm") End Sub
A jak wybierzesz wklejanie przez menu kontekstowe jednak jako text (przypominam: uprzednio sformatowawszy kolumnę do formatu tekstowego)?
Formuły działają w Excelu >=2007. Format pliku .xls ze względu na ograniczenia forum. Po wczytaniu plik należy zapisać w formacie .xlsx.
jest "po staremu. A zwróciłeś może uwagę, że po wykonaniu takich czynności jak poniżej wszystko jest "w porządku" (?) ... :) ... : 1. Kolumny w arkuszu wciąż mają nieokreśloną szerokość w opcji Format\Kolumna\Szerokość Zaznacz cały arkusz i nadaj kolumnom jakąś wartość - domyślnie to 8,43 2. W opcji Format\Kolumna\Standardowa szerokość wciąż jest '0'...
Czas nie zostaje zaokrąglony, to tylko domyślne formatowanie. Jeśli to drugie miejsce po przecinku jest istotne można zastosować format niestandardowy i wyświetlić 2 miejsca po przecinku. Excel pozwala operować czasem z maksymalną dokładnością do 3 miejsc po przecinku (0,001 s). Pozdrowienia
Zmień wobec tego formułę na (podaje dla mojego przykładu wpis dla H2): =24*(C2-B2-((E2-D2)+(G2-F2))) Format zmień z czasu na liczbowy.
A nic nie pisałeś, że chcesz zautomatyzować jakąś czynność :) Zwykle robi się to kompleksowo. Pobieranie danych z zewnętrznego źródła lub t.p. a same działania matematyczne są jakby przy okazji. Po drugie, makro pisze się raczej w sytuacjach, gdzie nie ma możliwości stosowania funkcji wbudowanych, a póki co (przynajmniej ja) nie widzę takiej potrzeby....
Bez problemu da się zaimportować. - Zmień rozszerzenie pliku na CSV. - Usuń nagłówek (albo popraw) - Zamień wszystkie kropki na przecinki. - Wybierasz rozdzielenie tabulacją. ....i voila :) P.S. Kluczowa jest pogrubiona operacja.
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
A tak [syntax=vbscript]If Format(ark.Cells(i, "BT"), "yyyy") = CDate(Alpex.cmROK) Then[/syntax]
Jaky format w A1? Sprobuj Sheets(Range("A1").Text).Select
W pierwszej komórce wpisujesz 2006-01-01, "łapiesz" lewym przyciskiem myszy czarny krzyżyk w prawej dolnej części komórki i ciągniesz w dół do uzyskania daty 2006-12-31. Potem zmieniasz format daty w całej kolumnie na taki jaki potrzebujesz (menu Format->Komórki...->Liczby->Data )
Dodaj [syntax=vbscript]Arkusz1.Range("C" & Application.Rows.Count).End(xlUp).Offset... 0) = Format(Now, "dd-mm-yyyy hh:nn:ss")[/syntax]
Witam Jeśli w R2 formatu czasu: If Time > ThisWorkbook.Sheets("Admin").Range("R2") Then
Excel liczy czas zawsze z datą, tylko ta data nie zawsze jest wyświetlana. Wszystko zależy od kodu formatu. Jeśli kod formatu jest g:mm lub podobny, to wyświetlana jest godzina zegarowa, czyli najwyżej 23:59. Jeśli chcesz zliczać czas w godzinach i minutach w kodzie formatu musisz godziny wziąć w nawiasy kwadratowe, np. tak: [g]:mm. Jeśli wprowadzasz...
mozna wyedytowac wartosc komórki i zatwierdzić enterem... zyskuje ona wtedy format ogólny...
Nie wiem w czym masz problem. Wydziel minuty i podziel przez 60 (sformatuj komórkę wynikową jako zwykłą liczbę). Docelowo do wydzielonych godzin dodaj wydzielone minuty podzielone przez 60 i masz "swój" zapis.
Ad 3. Mniej więcej taki kod: [syntax=vbnet]Dim fdSaveFile As FileDialog Dim vSaveFolder Set fdSaveFile = Application.FileDialog(msoFileDialogFold... With fdSaveFile .AllowMultiSelect = False .Show vSaveFolder = .SelectedItems(1) End With ActiveWorkbook.SaveAs vSaveFolder & "\" & ActiveSheet.Range("B2").Value & "__" & Format(Now, "dd_mm_yyyy__hh_mm"),...
Może to ci trochę rozjaśni. Chodzi o formatowanie warunkowe. W moim przypadku posłużyłem się dodatkowymi komórkami pozwalającymi wyliczyć dane wartości ale możesz je pominąć wpisując odpowiednio zmodyfikowane warunki formatowania (np. tak jak w poście podanym przez adamas_nt). Dla zrozumienia stań na komórce (zaznacz komórkę) a2 (lub a3,a4,a5) - menu...
Po Range.Clear formatowanie będzie takie jak zdefiniowane dla stylu Normalnego.
Sprawa 1 Trochę niejasna. Czy chcesz sformatować w arkuszu komórkę Cells(x, "S") jako walutową, czy chcesz taką sformatowaną wartość dołączyć do wiadomości, czy jedno i drugie? Bo to są rzeczy niezależne. Jeśli sformatować w arkuszu, to kod: [syntax=vbscript]Cells(x, "S").NumberFormat = "#,##0.00 zł"[/syntax]lub ręcznie. Jeśli chcesz sformatować wartość...
to w tym samym rzędzie i w innej kolumnie również kolorowało mi tło tym samym kolorem używać ten sam warunek formatowania jak dla kolumny X
Kod formatu działa na zasadzie maski, w której elementami wymiennymi są znaki 0 i #. 0 może być wymienione na aktualną cyfrę, a # na aktualną cyfrę lub pominięte. Inne cyfry i znaki (z wyjątkiem tych o specjalnym znaczeniu) pozostają bez zmiany. Dlatego format "1999" zawsze wyświetli "1999", a format "2000" pozwala wymienić 3 ostatnie cyfry na aktualne....
Włącz w wordzie ikonę "pokaż wszystko" (ikonka podobna do Π)pokaże znaki niedrukowane (użyłeś tego w nazwie: Breszka ze stopką "enter" małą - dł.900 mm). Zobaczysz gdzie masz wstawiony "enter" w wordzie (przeniesienie części nazwy do drugiej linii). Nie całkiem poprawne to jest, nie używaj tej metody. Skasuj te "entery" i spróbuj przenieść tabelę...
Wpisz ORAZ i powinno działać.
Ta formuła, którą Ci podałem przecież działa, tylko tu dane zaczynają się w kolumnie B, a poprzednio pisałeś, że w C, a na obrazku nie pokazałeś oznaczeń kolumn.
A nie wystarczy coś takiego? [syntax=vb]Sub reversja() Dim strOrg As String Dim strRev As String strOrig = Arkusz1.Cells(1, 1).Value strRev = CDate(strOrig) MsgBox "Orig = " & strOrig & vbCr & "Rev = " & strRev End Sub[/syntax]
mrx nie bądź takim czarnowidzem :) da się zrobić obliczenia i na tym co autor przedstawił. Ale formuła jest trochę zawiła. Kłopot polega jednak na systematyczności danych i kolejnych warunkach o których autor nie wspomniał. Oprócz "off" i "f" jest jeszcze "offf", "inv", "dos" itd. a dla excela musi być jasne jak to policzyć (czy to 0 czy 8 czy dzień...
excel format komórki excel kopiować format excel format komórka
układ wzbudzenia agregatu pralka zdjęcie blatu scenic jakie radio
podajnik bizhub raspberry projekty
Zabezpieczenia w prostownikach ULG - szczegóły i analiza Laptop po zwarciu nie włącza się - diagnostyka i naprawa