Ahojte :),
prosim,ak by niekto mal cas, tak by sa mi mohol pozriet na prikaz? Mam tu dve tabulky, ta troska prisposobena ale fungujuca "ID TextBOx" a druha tiez upravena ale uz nie tak celkom funguje ako by som si to predstavoval "ID Combobox". Problem nastal v tedy ako pre ID som vymenil textbox za kombobox. V prikazoch som zamenil Textbox6 za Combobox1 ale pri stlaceni Edit/Add mi pracuje len s B stlpcom a stlpcami C-E uz nepracuje. Kym v zosite ID TextBox, to pekne pracuje so vsetkymi stlpcami.
Makro - modifikacia Vyřešeno
Makro - modifikacia Vyřešeno
- Přílohy
-
- ID TextBox.xlsm
- (23.63 KiB) Staženo 17 x
-
- ID Combobox.xlsm
- (19.82 KiB) Staženo 14 x
- elninoslov
- Level 2.5
- Příspěvky: 369
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Makro - modifikacia
Okrem toho, že v podmienke
to máte zle
má tam byť
, tak Vám tento cyklus pre zápis hodnôt z TextBox-ov do buniek
záhadne vyvolá metódu
ktorá vyplnené data formu, prepíše tými, ktoré odpovedajú bunkám daného ID. V tomto prípade prázdne.
Celé je to naprogramované divne, lebo sa prechádzajú po jednom bunky - pomalé - použiť Match alebo pole.
Cyklus prechádza bunky aj po tom, čo už našiel to čo hľadal - zpomaľujúce, zbytočné.
Keď budem mať chuť, tak Vám to prepíšem, zatiaľ sa mi nechce ...
EDIT:
Tak som Vám na to mrkol, a videl by som to takto nejako ...
Kód: Vybrat vše
If flag = False Then
to máte zle
Kód: Vybrat vše
For j = 1 To 5
má tam byť
Kód: Vybrat vše
Cells(emptyRow, 1).Value = ComboBox1.Value
For j = 2 To 5
, tak Vám tento cyklus pre zápis hodnôt z TextBox-ov do buniek
Kód: Vybrat vše
For j = 2 To 5
Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j
záhadne vyvolá metódu
Kód: Vybrat vše
Private Sub ComboBox1_Change()
GetData
End Sub
ktorá vyplnené data formu, prepíše tými, ktoré odpovedajú bunkám daného ID. V tomto prípade prázdne.
Celé je to naprogramované divne, lebo sa prechádzajú po jednom bunky - pomalé - použiť Match alebo pole.
Cyklus prechádza bunky aj po tom, čo už našiel to čo hľadal - zpomaľujúce, zbytočné.
Keď budem mať chuť, tak Vám to prepíšem, zatiaľ sa mi nechce ...
EDIT:
Tak som Vám na to mrkol, a videl by som to takto nejako ...
- Přílohy
-
- ID Combobox.xlsm
- (27.18 KiB) Staženo 15 x
Re: Makro - modifikacia
Waw super dakujem moc krat. Zatial mi to takto postacuje.
Ale ak by ste nahodou predsa len dostali chut prepisat, tak este jedna prosba (ja zatial skusim na to prist, neviem ci sa mi to podari skor :) ), tak namiesto ID by neboli cisla ale datumy v rozsahu jedneho mesiaca (napr. od 01.06.2018 do 30.06.2018). Ja som to tak nejak uz poskusal,ale zatial neuspesne :(.
Ale ak by ste nahodou predsa len dostali chut prepisat, tak este jedna prosba (ja zatial skusim na to prist, neviem ci sa mi to podari skor :) ), tak namiesto ID by neboli cisla ale datumy v rozsahu jedneho mesiaca (napr. od 01.06.2018 do 30.06.2018). Ja som to tak nejak uz poskusal,ale zatial neuspesne :(.
- elninoslov
- Level 2.5
- Příspěvky: 369
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Makro - modifikacia
No v tom prípade potom asi takto.
Dávajte vždy reálne zadanie. Umiestnenie aké máte, formáty aké máte, presne. Keď sú čísla, tak čísla, ak desatinné tak desatinné, ak máte textočíslo, tak dajte to. To isté platí s dátumami. Odsadenie tabuliek, hlavičky. Všetko hrá úlohu. To je dnes "móda", že každý sa snaží dávať úplne iné info ako v skutočnosti má? A potom len dávkuje postupne info, a nech mu to niekto prerába. Našťastie toto nebolo zložité prerobiť. Polepšite sa ...
Dávajte vždy reálne zadanie. Umiestnenie aké máte, formáty aké máte, presne. Keď sú čísla, tak čísla, ak desatinné tak desatinné, ak máte textočíslo, tak dajte to. To isté platí s dátumami. Odsadenie tabuliek, hlavičky. Všetko hrá úlohu. To je dnes "móda", že každý sa snaží dávať úplne iné info ako v skutočnosti má? A potom len dávkuje postupne info, a nech mu to niekto prerába. Našťastie toto nebolo zložité prerobiť. Polepšite sa ...
- Přílohy
-
- ID Combobox.xlsm
- (27.2 KiB) Staženo 18 x
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 9
- 1125
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 9 hostů