Makro - modifikacia Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

tsibee
nováček
Příspěvky: 34
Registrován: duben 18
Pohlaví: Muž
Stav:
Offline

Makro - modifikacia  Vyřešeno

Příspěvekod tsibee » 05 kvě 2018 22:31

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.
Přílohy
ID TextBox.xlsm
(23.63 KiB) Staženo 17 x
ID Combobox.xlsm
(19.82 KiB) Staženo 14 x

Reklama
Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 369
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Makro - modifikacia

Příspěvekod elninoslov » 06 kvě 2018 09:36

Okrem toho, že v podmienke

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

tsibee
nováček
Příspěvky: 34
Registrován: duben 18
Pohlaví: Muž
Stav:
Offline

Re: Makro - modifikacia

Příspěvekod tsibee » 06 kvě 2018 11:56

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 :(.

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 369
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Makro - modifikacia

Příspěvekod elninoslov » 06 kvě 2018 20:59

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 ...
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
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1125
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 9 hostů