Krzysztof
Szulc
Specjalista ds.
zakupów; KASZUB
Ryszard
M.
Księgowy | Analityk
danych
Krzysztof
Szulc
Specjalista ds.
zakupów; KASZUB
Temat: Kwota słownie
Wielkie dzięki :) Bardzo mi się przyda w pracy. Pozdrawiam.P.S.
Jeśli ktoś miałby jeszcze jekieś przydatne ciekawostki do pracy w Excelu (przede wszystkim dokumenty sprzedażowe, zestawienia, raporty itp.) proszę o wrzucenie linku. :)Krzysztof Szulc edytował(a) ten post dnia 26.10.07 o godzinie 18:35
konto usunięte
Temat: Kwota słownie
Proponuję przykleić ten temat :-)
Krzysztof
Szulc
Specjalista ds.
zakupów; KASZUB
Temat: Kwota słownie
A czy istnieje coś taskiego jak automatyczne ukrywanie danego wiersza, gdy wartość w danej komórce w tym wierszu =0?Chodzi o to, że pewne wartości z pierwszej zakładki kopiują mi się do drugiej i chciałbym, żeby ukrywał mi się cały wiersz (w tej drugiej zakładce) gdy skopiowana wartość będzie = 0. Nie wiem czy to dobrze wyjaśniłem. Jeśli nie to odpowiem na dodatkowe pytania. :)
Janusz
K.
Ekspert rozwoju i
przyszłości firm,
struktur, systemów
or...
Temat: Kwota słownie
To jest możliwe tylko w wyniku wykonywania procedury, która - w jakimś swoim fragmencie - sprawdzi warunek i ew. ukryje wiersz.
Krzysztof
Szulc
Specjalista ds.
zakupów; KASZUB
Temat: Kwota słownie
Próbowałem to zrobić przy pomocy funkcji "jeżeli". Niestety nie mam pojęcia jakie polecenie wpisać, żeby cały wiersz się ukrył... :( .
Marcin
E.
Astrosklep.pl
(zegarki słoneczne)
ExcelBlog.pl
Temat: Kwota słownie
Próbowałem to zrobić przy pomocy funkcji "jeżeli".
Nie wydaje mi sie, aby dało sie to zrobić tylko przy użyciu formuł. W moim odczuciu nie obędzie się bez pomocy VBA. Przykładowe rozwiązanie poniżej.
Zakładając, że chcesz ukryć wiersz 10, jeżeli wartość w komórce D10 wyniesie "0". Prawy przycisk myszy na zakładce "Arkusz1" (lub inny arkusz, w którym chcesz omawiany trick zastosować) i wybierz "Wyświetl kod". Tam właśnie wstawiasz poniższy kod.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D10")) Is Nothing Then
If Range("D10").Value = "0" Then Target.EntireRow.Hidden = True
End If
End Sub
W bardziej ogólnym przypadku (wpisanie "0" w dowolnej komórce w kolumnie D ukryje wiersz, w którym właśnie to zero wpisałeś)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 4 And .Value = "0" Then
.EntireRow.Hidden = True
End If
End With
End Sub
Kod jest prosty aż do bólu. Pokazuje tylko jak można to zrobić. Jak oczekujesz dokładniejszej pomocy proszę opisz dokładnie co i jak chcesz, aby sie "robiło" w Twoim arkuszu. Postaram się pomóc.
MarcinMarcin Egert edytował(a) ten post dnia 30.10.07 o godzinie 19:33
Krzysztof
Szulc
Specjalista ds.
zakupów; KASZUB
Temat: Kwota słownie
Jeśli chodzi o VBA to jestem zielony. Postaram się wytłumaczyć na przykładzie o co mi chodzi:Na pierwszej zakładce wpisuję zamówione ilości.
Na drugiej jest faktura i ilości kopiują się z pierwszej zakładki w odpowiednie pozycje na tej fakturze (różnych rodzajów produktów jest około 50).
Chciałbym, żeby dany wiersz na fakturze ukrywał się, gdy skopiowana ilość (z pierwszej zakładki) w wybranej komórce w tym wierszu będzie równa 0 (nie zawsze są zmawiane wszystkie pozycje). Jeśli jednak ilość ta będzie większa od 0 to żeby wiersz ten automatycznie pojawiał się.
Ręczne ukrywanie wierszy zajmuje mi trochę czasu :(
Z góry dzięki za pomoc.Krzysztof Szulc edytował(a) ten post dnia 31.10.07 o godzinie 17:13
Marcin
E.
Astrosklep.pl
(zegarki słoneczne)
ExcelBlog.pl
Temat: Kwota słownie
Cześć,Gdybyś mi przysłał (mojego maila przesyłam w prywatnej wiadomości) przykładowy plik excela to bym Ci to odpowiednio oprogramował i odesłał. Tak na sucho (skoro w kwestii VBA zielony jesteś) może być to droga przez mękę.
Ryszard
M.
Księgowy | Analityk
danych
Temat: Kwota słownie
K.:
Chciałbym, żeby dany wiersz na fakturze ukrywał się, gdy skopiowana ilość (z pierwszej zakładki) w wybranej komórce w tym wierszu będzie równa 0 (nie zawsze są zmawiane wszystkie pozycje). Jeśli jednak ilość ta będzie większa od 0 to żeby wiersz ten automatycznie pojawiał się.
Ręczne ukrywanie wierszy zajmuje mi trochę czasu :(
VBA byłoby lepsze ale również mógłbyś sobie założyć filtr na te około 50 wierszy + nagłówek. Wybierz na konkretne wiersze i kolumny z menu "Narzędzia" Filtr --> Autofiltr... i w kolumnie gdzie są sztuki ustaw filtr "(Inne...)" np. na "nie równa się: 0".
Ale to tylko pół-rozwiazanie bo trzeba byłoby i tak ręcznie odświeżać.
Pozdrawiam
Marcin
R.
Specjalista ds.
analizy danych,
Dospel sp. z o.o.
Temat: Kwota słownie
Jeśli te pozycje ze sztukami wpisywanymi mają unikalne numery (a zazwyczaj tak jest dla produktów firmy) to zrób fakturę z wszystkimi pięćdziesięcioma pozycjami, gdzie w kolumnie sztuki będzie formuła pobierająca ilości z arkusza szt do arkusza faktury.Np. coś w ten deseń: wyszukaj.pionowo(poz ;zakres_poz; kol_poz; fałsz) i filtruj (filtrem, listą w zależności jaka wersja Excela) fakturę na okoliczność ilości > 0. Jeśli to chcesz zautomatyzować bardziej to nagraj makro - do tego nie trzeba znać VBA.
Adam
Kolecki
Student, Wyższa
Szkoła Bankowa w
Toruniu
Temat: Kwota słownie
Można zrobić to jedną (choć długą) formułą, bez użycia VBA. Ponieważ formuła jest długa, nie zadziała w Excelu 2003 i wcześniejszym: http://czterycztery.pl/programy/kwota_slownie.html
Oskar
Shon
Dodatki do Office
www.VBATools.pl
Temat: Kwota słownie
Ja podam 2 rozwiązania:Jedno dla Excela, które zawiera też możliwość stosowanie funkcji UDF: Zamień liczbę na słownie
Drugie dla Worda, z opcją zamiany/dopisania już istniejących wartości na słownie: Zamień liczbę na słownie
Podobne tematy
Następna dyskusja: