Dobrý den,
potřebuji poradit. V práci mám jednotnou tabulku jako výkaz pro předávání práce.
Potřebuji, aby po vyplnění 10 cifer v buňce "C3" došlo k automatickému přeskoku na buňku "H3". Lze to vyřešit pomocí VBA?
Po zapsání poslední 10-té cifry potřebuji automatický skok v témže řádku do sloupce "H". Na další řádek, opět sloupec "C" se dokážu přesunout pomocí vlastního makra. Ve sloupci "H" mám totiž jednu nebo dvě cifry, což by šlo pro automatický skok asi těžko definovat.
Děkuji
Makro v excelu (VBA) Vyřešeno
-
- Pohlaví:
Re: Makro v excelu (VBA)
V režimu editace buňky nedokážete nic, bez ohledu na počet cifer.
Re: Makro v excelu (VBA)
Jediné co mě napadá tak to obejít. Editaci buňky nedělat v buňce, ale přes formulář. A ve formuláři (pokud se nepletu) lze nastavit omezení počtu znaků. To však vyžaduje jistou úroveň znalostí VBA.
Re: Makro v excelu (VBA)
To je dobrý nápad vkládat data pomocí inputboxu. Zadat deset cifer, potvrdit entrem. Skočí to do sloupce "H" znova enter, skočí to do sloupce "C" o řádek níž. A tak pořád dokola až se dostanu na řádek 63. To by mi moc pomohlo kdyby se to dalo ve VBA udělat. Bohužel takovej borec přes VBA nejsem.
Re: Makro v excelu (VBA)
Takhle přesně jednoduše (z pohledu uživatele) to jde udělat.
Já jsem formuláře začal studovat před 3 lety, abych udělal 2 jednoduché prográmky ve VBA. Byla to pro mě úplná novinka. Sice jsem nad tím strávil asi 20 až 5O hodin času. Ale ty dva projekty jsem udělal. Kdyby to dělal programátor, tak to má za dva večery hotové. Ale já se to chtěl naučit. Sice jsem to zapomněl za ty ti roky, protože jsem ve VBa přestal dělat.
Není to však nic složitého. Nejlepší je najít na netu vzorové Excely s formulářema a na nich to studovat plus je spousta návodů na netu.
Já jsem formuláře začal studovat před 3 lety, abych udělal 2 jednoduché prográmky ve VBA. Byla to pro mě úplná novinka. Sice jsem nad tím strávil asi 20 až 5O hodin času. Ale ty dva projekty jsem udělal. Kdyby to dělal programátor, tak to má za dva večery hotové. Ale já se to chtěl naučit. Sice jsem to zapomněl za ty ti roky, protože jsem ve VBa přestal dělat.
Není to však nic složitého. Nejlepší je najít na netu vzorové Excely s formulářema a na nich to studovat plus je spousta návodů na netu.
Re: Makro v excelu (VBA)
Prosím o radu do začátku. Jak zapíšu inputboxem, co buňky C7 hodnotu třeba 123. Jsem ve VBA úplnej začátečník
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro v excelu (VBA)
Ahoj, třeba takhle:
Kód: Vybrat vše
Range("C7").Value = InputBox("Zadej hodnotu", "Zápis")
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Makro v excelu (VBA)
To mi nefunguje. Potřebuju to do začátku jako pro blbce.
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro v excelu (VBA)
Makro se nesmí jmenovat stejně jako příkazy to je celý problém. Přejmenuj makro na něco jinýho a bude fungovat pokud je syntaxe stejná i v nových excelech než je 2010 kterou mám já.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Makro v excelu (VBA)
Děkuji všem za pomoc :-)
Už mi to funguje dokázal jsem jako úplný lajk definovat cyklus i podmínku pro zastavení pokud nechci zadávat data až do konce.
Sub zadání1()
Dim i As Integer
a = 10000
For i = 7 To 26
Cells(i, 3).Select
Cells(i, 3).Value = inputbox("Zadej číslo PP", "Číslo PP", , a, 1)
If Cells(i, 3).Value = 0 Then Exit Sub
Cells(i, 8).Select
Cells(i, 8).Value = inputbox("Zadej počet NH", "Počet NH", , a, 1)
If Cells(i, 8).Value = 0 Then Exit Sub
Next i
End Sub
Už mi to funguje dokázal jsem jako úplný lajk definovat cyklus i podmínku pro zastavení pokud nechci zadávat data až do konce.
Sub zadání1()
Dim i As Integer
a = 10000
For i = 7 To 26
Cells(i, 3).Select
Cells(i, 3).Value = inputbox("Zadej číslo PP", "Číslo PP", , a, 1)
If Cells(i, 3).Value = 0 Then Exit Sub
Cells(i, 8).Select
Cells(i, 8).Value = inputbox("Zadej počet NH", "Počet NH", , a, 1)
If Cells(i, 8).Value = 0 Then Exit Sub
Next i
End Sub
Re: Makro v excelu (VBA)
Výborně, jen tak dál . Doporučuji však (u projektů které jsou více obsáhlejší) název porměnné místo "a" napsat něco, co popíše tu hodnotu, například "pocet_sekund". Sice to trochu zvětší a znepřehlední kód, ale při ladění kodu s větším množstvím proměnných, to pak pomáhá se v tom lépe orientovat.
Re: Makro v excelu (VBA) Vyřešeno
atari píše:Výborně, jen tak dál . Doporučuji však (u projektů které jsou více obsáhlejší) název porměnné místo "a" napsat něco, co popíše tu hodnotu, například "pocet_sekund". Sice to trochu zvětší a znepřehlední kód, ale při ladění kodu s větším množstvím proměnných, to pak pomáhá se v tom lépe orientovat.
To je rozumné u větších projektů bych pak třeba přemejšlej cože to to "a" vlastně je. V mém případě by název byl "X_pozice_okna"
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 9
- 1362
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 0
- 3043
-
od Jsimi
Zobrazit poslední příspěvek
06 úno 2024 22:43
-
-
Graf v Excelu ukazuje chybné hodnoty. Příloha(y)
od atari » 25 dub 2024 08:42 » v Kancelářské balíky - 4
- 1898
-
od atari
Zobrazit poslední příspěvek
25 dub 2024 13:28
-
-
-
Jak do Excelu dostat aktuální hodnotu z webové stránky? Příloha(y)
od Peťa » 10 lis 2023 09:41 » v Kancelářské balíky - 2
- 3402
-
od Peťa
Zobrazit poslední příspěvek
10 lis 2023 16:24
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti