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: 70545 Skopiuj do schowka Generowanie zmiennego formularza-raporty i tabelka zbiorcza
Autor Wiadomość
krystian280393
Forumowicz


Posty: 11
Wysłany: 29-03-2021, 16:04   Generowanie zmiennego formularza-raporty i tabelka zbiorcza

Cześć, *dodane do "jak to zrobić" ze względu na brak pomysłu gdzie wpisać*

Potrzebuję nakierowania, pomocy z utworzeniem przyjaznego dla oka, najbardziej ułatwionego przyjmowania zgłoszenia - generowanie formularza *każdy inny, w zależności od klikniętego kafelka* .

Prowadzę tabelkę ze zgłoszeniem od gościa który do mnie zadzwoni, średnio rozbudowane - data, godzina, czego dotyczy, nazwisko a później uzupełniam działania np: jaki serwis, jaka płatność itp. Główny zamysł żeby to uprościć już na etapie wpisywania podczas rozmowy

Chciałbym stworzyć "guziki" w pierwszym arkuszu, gdzie wybiorę od razu rodzaj zgłoszenia (awaria/wypadek), który wygeneruje odpowiedni wzór formularza (awaria ma inne "pola" do uzupełnienia, wypadek inne) i po kolei będę uzupełniać dalsze dane.

Finalnie chciałbym żeby i tak generowała się tabela z której można utworzyć wykresy żeby można było przedstawić fajny raport. Może to działanie dookoła, ale chciałbym się czegoś nowego nauczyć :) i pokombinować z vba którego nie znam, czy makrami.

Potrzebuje nakierowania, małego przykładu a nie wykonania za mnie roboty.

IMG_20210329_160124_Easy-Resize.com.jpg
Plik ściągnięto 25 raz(y) 209.41 KB

ID posta: 402920 Skopiuj do schowka
 
 
wczesny 
Stały bywalec Excelforum


Wersja: Win Office 2016
Pomógł: 34 razy
Posty: 302
Wysłany: 30-03-2021, 08:19   

Generalnie tworzenie takich aplikacji nie jest skomplikowane, ale dosyć pracochłonne. Przykładów na forum jest bardzo dużo, ale bez podstawowej wiedzy o VBA się nie obędzie.
Pozostaje liczyć, że komuś będzie się bardzo nudziło i stworzy całość dla ciebie :)
ID posta: 402942 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1985 razy
Posty: 5662
Wysłany: 30-03-2021, 08:32   

Zobacz w załączniku.

Awarie wypadki.xlsm
Pobierz Plik ściągnięto 17 raz(y) 27.13 KB

ID posta: 402945 Skopiuj do schowka
 
 
krystian280393
Forumowicz


Posty: 11
Wysłany: 05-04-2021, 11:20   

@wczesny, @Tadek - dziękuje bardzo! :)

Zabieram się za podstawy VBA, żeby edytować to co zrobił Tadek.
Dzięki bardzo!

Jeśli miałbym pytanie, żeby coś "upiększyć" będę kontynuować w temacie ;)

Jeszcze raz, dziękuję!
ID posta: 403183 Skopiuj do schowka
 
 
krystian280393
Forumowicz


Posty: 11
Wysłany: 05-04-2021, 18:37   

*brak możliwości edycji*

Zmagam się z problemem "numeru zgłoszenia". Chciałbym żeby wszystkie z 3 zgłoszeń wpadały w jedną zbiorczą tabelę oczywiście odpowiednio ponumerowane.

Jeśli przyjmę numerację zgłoszeń na jedną tabelę wygląda to tak:
Kod:
awaria/1/2021
wypadek/2/2021
awaria/3/2021

Chciałbym to uporządkować coś za zasadzie kolejności tematycznych zgłoszeń a nie kolejnych + może miesiąc, żeby to ładnie się zmieniało, przykład:
Kod:

awaria/1/042021
wypadek/1/042021
wypadek/2/042021
wypadek/3/042021
awaria/2/042021

No chyba że jest możliwość tworzenia nowej tabeli na kolejny miesiąc.

Polecicie jakieś filmiki wprowadzające do VBA? Może jest jakiś tester/generator online?
ID posta: 403199 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1985 razy
Posty: 5662
Wysłany: 06-04-2021, 09:08   

Patrz załącznik.

Awarie wypadki 2.xlsm
Pobierz Plik ściągnięto 15 raz(y) 27.16 KB

ID posta: 403222 Skopiuj do schowka
 
 
krystian280393
Forumowicz


Posty: 11
Wysłany: 06-04-2021, 18:31   

Mistrzu! :clap Wielkie dzięki!

Teraz wyedytuje sobie do moich potrzeb, potrzebuję jeszcze info:

1) Jak zmienić formularz żeby tworzył dodatkowo jeszcze jedną kolumnę?

Niekoniecznie jako pole do wpisania, tylko np: wpisując numer rejestracyjny umieszcza nam się to w 6 kolumnie tabeli - jak to zmieniać? Da radę dodać żeby 7 kolumna tworzyła się i została "pusta"?

Szukam w kodzie, metodą prób i błędów..
ID posta: 403253 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1985 razy
Posty: 5662
Wysłany: 07-04-2021, 08:23   

Formularza nie musisz zmieniać.
Wystarczy w makrze ten fragment:
Kod:
    .Range(.Cells(ost, 2), .Cells(ost, 8)).Borders.LineStyle = xlContinuous
zmienić na taki:
Kod:
    .Range(.Cells(ost, 2), .Cells(ost, 9)).Borders.LineStyle = xlContinuous
ID posta: 403271 Skopiuj do schowka
 
 
krystian280393
Forumowicz


Posty: 11
Wysłany: 07-04-2021, 18:33   

OK, dzięki

Ostatnie pytanie:

Mamy możliwość wyboru "awaria/wypadek", chciałbym żeby nazewnictwo zostało, ale w numerze zgłoszenia generowało się "a" zamiast "awaria" i "w" zamiast "wypadek"

Jak zmienie tutaj
Kod:
Call numeracja
With Me.ComboBox1
    .AddItem "awaria"
    .AddItem "wypadek"
    .AddItem "telefon"
To zmienia się cała nazwa, a samo oznaczenie?

Pewnie to ta linijka:
Kod:
Dim zgl
zgl = UserForm1.ComboBox1.Value & "*"

Tylko jak to zmienić?
ID posta: 403286 Skopiuj do schowka
 
 
Tajan


Pomógł: 4767 razy
Posty: 10469
Wysłany: 07-04-2021, 21:37   

Procedurę "numeracja" zamień na następującą:
Kod:
Sub numeracja()
Dim nr$
Dim ile&
Dim zgl
zgl = Left(UserForm1.ComboBox1.Value, 1) & "/*/" & Month(Date) & Year(Date)
With Sheets("Tabela")
    ost = .Cells(Rows.Count, "B").End(xlUp).Row
    ile = Application.CountIf(.Range("B3:B" & ost + 1), zgl) + 1
    nr = Replace(zgl, "*", ile)
    UserForm1.A1.Value = nr
End With
End Sub
ID posta: 403292 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