Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  15 16 17 18 19 20 21 22 23   další » ... 69

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

Marecek napsal/a:

Však soubor je hned na začátku tématu.
Všechny štítky jsou stejné, tj 5 buněk.
Počet štítků bude 15 a budou předem připravené, ty dva jsou jen jako vzor jak by to mělo vypadat. Budou seřazeny takto za sebou.
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.


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

petas1998 napsal/a:

Omlouvám se, jde o tabulky google, přepsal jsem, protože jem si vyložil, že se my ostatní směji, že jsem napsal tabulky google.


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 6

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.

marjankaj napsal/a:


Urobí si tlačítko a klik.
Na výstup na tlačiareň samozrejme PrintOut
Sub Makro1()
ActiveSheet.PageSetup.PrintArea = "$O$3:$W$47"
ActiveWindow.SelectedSheets.PrintPreview
End Sub


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 (_!_) !!!

marjankaj napsal/a:

Že by makrom?
A bez toho kliknutia by si nechcel? Lebo aj to by išlo.


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. 1
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!

Jiri-Harazim napsal/a:

Milý Stalkere. Poslechl jsem tě a v klidu jsem se nadechl. Jsi nejspíše velký znalec a jinými "pitomci" pohrdáš. Měj se hezky a zamysli se nad sebou.

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 1

marjankaj napsal/a:

Stalker napsal/a:marjankaj napsal/a:RESIZE je zbytočné. A je jedno ktorý list bude aktívny.
Otestuj si přiložené soubory a uvidíš
To je tak, keď máš zlé makro.
Písal som, že tam má byť cesta
Sub b()
Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Range(Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Cells(1, 1), Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Cells(122, 34)).Copy _
Workbooks("cilSesit.xlsx").Worksheets("cilList").Cells(1, 1)
End Sub
Vyskúšaj toto.


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ší. 2

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í.

marjankaj napsal/a:

RESIZE je zbytočné. A je jedno ktorý list bude aktívny.

Otestuj si přiložené soubory a uvidíš 1


Strana:  1 ... « předchozí  15 16 17 18 19 20 21 22 23   další » ... 69

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

microsoft 365 hlaska sharepoint

jano1 • 20.7. 16:59

Názvy z řádků do sloupců Power Query

Alfan • 19.7. 13:49

Názvy z řádků do sloupců Power Query

lubo • 19.7. 12:24

vyhledání obsahu buňky

vfort • 18.7. 11:22

Názvy z řádků do sloupců Power Query

Alfan • 18.7. 10:01

Tlac 2 roznych tabuliek

loksik.lubos • 17.7. 20:43

Týden v roce

Petr92 • 16.7. 15:34