excel, návod, tipy, funkce, makra, vba, tabulky, šablony

Váš průvodce programem Microsoft Excel a programováním maker ve VBA

Příspěvky uživatele

< návrat zpět

Ano viz Edit

Edit: soubor

Když už něco opisuju, tak si dávám pozor, aby to bylo správně.

Select Case True
Case OptionButton1.Value: rg = 1
Case OptionButton1.Value: rg = 2
Case OptionButton1.Value: rg = 3
End Select

Edit: Místo LOCKED použí ENABLED
OptionButton2.Enabled = False

Jo přiložený soubor sem zaregistroval, šlo mi hlavně o to, že vzorový soubor nemusí korespondovat s "ostrou" verzí co se týče rozložení dat.

Položky v seznamu budou mít variabilní počet. Na každém štítku jich musí být vždy jen pět.

A v případě, že seznam bude obsahovat např 13 položek? Co potom?

Něco sem spíchnul tak si s tím pohraj.

Není takhle náhodou zamknutý list?
Revize - změny -> Odemknout list

Né že bych se chtěl do toho míchat, ale pokud chceš po někom vytvořit nějaké makro, tak by mělo být ve Tvém zájmu poskytnout co nejvíc informací a konkrétní soubor, ve kterém má makro pracovat.

Jediné co Víme, je že sloučené buňky nazýváš štítky, které se skládají z 5-ti buněk. A těchto "štítků" může být až 15. Není těch informací málo?!

"štítky" se skládají vždy z pěti buněk nebo je jejich velikost variabilní?
Pokud je variabilní, na základě jakého klíče?
Počet "štítků" v listu je již připraven?
Jaké je rozmístění "štítků" v listu?
Počet položek odpovídá počtu "štítků"? Tedy 2 "štítky" po 5 řádcích = 10 položek seznamu.

atd...

Nikdo se Ti tu nesměje!
Motáš dvě věci dohromady. Tabulky Google a Excel jsou dvě naprosto odlišné věci.
Takže ten kód co tu kolega napsal si můžeš tak maximálně strčit za klobouk.
Tabulky Google (Tedy ty od Googlu) nepodporují programovací jazyk VBA (Visual Basic for Application), který se používá v Excelu (Tedy Softwaru od Microsoftu).

Moje poznámka:
Aneb co je čtverečkovaný je Excel

Byla takový povzdech, nad tím jak to všichni motají dohromady. Objevuje se tu spousta dotazů na EXCEL a nakonec z tazatelů vypadne, že vlastně vůbec žádný Excel NEVLASTNÍ, ale pracují online s tabulkami Googlu.

Za chvíli přijde doba, kdy budou čtverečkovaný papír nazývat analogovým excelem

Ne soubor nemusí mít koncovku *.xlsm (pokud tedy neobsahuje makra). Skrytí a uzamknutí listu přeci nebude probíhat makrem.

Upřímně nevím s čím je problém, skrytí sloupce a uzamknutí listu je přeci banalita a naprostý základ práce s excelem.

Vyberu sloupec -> pravé tl. myši -> skrýt
Záložka Revize - Změny -> zamknout list.

Ale tazatel NEPOUŽÍVÁ EXCEL!
Takže makra tedy VBA je mu k prdu.

Schválně sem se na ty GOOGLE TABULKY podíval. Mají možnost maker, ale zápis kódu vypadá snad jako v C
function den() {
var spreadsheet = SpreadsheetApp.getActive();
spreadsheet.getRange('A2').activate();
spreadsheet.getCurrentCell().setValue('Dnes je');
spreadsheet.getRange('B2').activate();
var date = new Date();
date.setHours(0, 0, 0, 0);
spreadsheet.getActiveRangeList().setValue(date);
spreadsheet.getRange('C2').activate();
spreadsheet.getCurrentCell().setValue('Neděle');
};

EDIT: Teď sem zaregistroval, že informace o google tabulkách v dotazu byla nahrazena excelem.
V tom případě bude kód samozřejmě funkční a tazatel by si měl přestat z lidí dělat (_!_) !!!

tabulek google
Tam s makry s největší pravděpodobností neuspěje. Nebo máš odzkoušeno?

Aneb co je čtverečkovaný je Excel

ANO a ANO, je to možné. Je však důležité upozornit, že uzamknutí listu se dá jednoduše prolomit, existují na to spec. programy, makra nebo jednoduché postupy pokud se jedná o soubor *.xlsx
Pokud bude mít protistrana chuť, tak se k těm skrytým datům dostane(bez většího úsilí).

Ahoj, díky za reakci a zformulování otázky a odkaz.
Jak bude chvíle času tak se v tom pošťourám.
Jak už sem psal, jedná se pouze o zvědavost. Vlasně sem to neviděl nikde, ať už se jedná ofóra o VBA či knihy českých nebo zahraničních autorů (walkenbach).

Včera sem procházel jednu z jeho knih a toto "(neviem posudit, nie som si isty, nakolko viac bodiek v kode by teoreticky malo kod spomalit)" tam právě zmiňuje a nabádá k použití WITH...END WITH.
Takže máš pravdu!

NE NEPOSLECH! Já psal: Pokud chceš radu, tak se v klidu nadechni, přečti si po sobě co jsi napsal, protože to co Jsi napsal má informační hodnotu 0 (Nula). Pokud by byla součástí příloha tak držím hubu.
Moje první reakce, kterou sem ale neodeslal byla:
1)Ano
2)Svyhledat
A pevně věřím v to, že by si z toho měl zase nějaký mindrák.

v rozevíracím seznamu, který je v buňce J9 vyberu např. jméno, tak chci, aby se mi do buňky J10 vypsal telefon, do buňky J11 adresa a do J12 email.

Opět si nenapsal odkud se mají uvedené hodnoty vzít!
1) ze vzduchu
2) z jiné oblasti téhož listu
3) z jiného listu téhož souboru
4) z úplně jiného souboru
........

Musíš si uvědomit, že do hlavy ani na monitor Ti nikdo nevidí. Prostě si sem hodil zadání jak psovy kost. A pokud mi chcete někdo poradit, tak pěkně poproste o přílohu?!

To že tu některé kluky vytáčí, že se neustále opakují banální dotazy na naprosté základy, které se učí i děcka na ZŠ, mě nějak nevadí a pokud mám čas tak odpovím. Ale už mě opravdu nebaví se neustále doprošovat nad smysluplným zadáním a přílohou.

To, že je místní Chuck Norris Excelu alias Elninoslov schopen poskytnout řešení (funkční!) na naprosto nesmyslné zadání nebo zadání, které odporuje příloze, pokud je tazatel ji vůbec shopen přiložit je věc jiná.
Tento stav si můžeš sám ověřit po přečtení několika dotazů. Opravdu netuším, jak to kčertu dělá (nejspíše zdědil jedinou funkční křišťálovou kouli ve střední evropě).
Ale můžu Tě ujistit, že s touto schopností je tu JEDINÝ.

Nebude trvat dlouho a bude to tu vypadat JAKO ZDE
Mimochodem, co by jsi poradil na takovýto dotaz?
Protože s tou informační hodnotou to vychází nastejno!

Všechno jde, když se chce. Pokud chceš radu, tak se v klidu nadechni, přečti si po sobě co jsi napsal a zkus to znovu s přiložením vhodného vzorového souboru.

Ahoj, nenám žádný problém k řešení, jen spíše ze zvědavosti. Narazil sem na youtube na video o fci dir ve VBA.

Co mě upoutalo, byl zápis
FileName = VBA.FileSystem.Dir("C:\Users\..........")
If FileName = VBA.Constants.vbNullString Then

Vždiť pro stejnou funkčnost stačí:
FileName = Dir("C:\Users\..........")
If FileName = vbNullString Then

Používáte někdo tento způsob zápisu, nebo pužíval? Na zdejším fóru sem na nic takového nenarazil, a ani několik knih o VBA, které tu mám níc takového neuvádějí.

Má vůbec takovýto zápis nějaký benefit např. rychlost?
Zkoušel sem googlit, ale nic kloudného sem nenašel Možná jen neumím formulovat otázku.

Díky za Vaše poznatky

OK máš pravdu, funguje naprosto stejně jako s RESIZE !

Ale teď mi řekni v čem je tento zápis lepší
Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Range(Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Cells(1, 1), Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Cells(122, 34)).Copy _
Než použití resize ?
Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Cells(1, 1).Resize(122, 34).Copy _

Ono to s délkou kódu není jako s penisem, čím delší tím lepší.

Prostě způsob zápisu s využitím resize je pro moji osobu daleko čitelnější a jednodušší jak k zápisu, tak k případné editaci.

Vše teď záleží na tazateli, jakou formu zápisu si zvolí.

Uživatelské menu

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje