• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: přepínání listů

Zaslal/a HonzaM 3.5.2010 15:39

Mám problém se čtením pomocných dat z jiných listů ve VBA.
Pokaždé, když chci přečíst z jiného listu nějaká pomocná data, přepne se mi v excelu aktuálně vybraný list.
Výsledkem je, že pokud kliknu na tlačítko, které spustí program, začnou mi na obrazovce neustále chaoticky přeskakovat listy.
Používám funkci Sheets("název listu").Select.
Nevíte prosím někdo o nějaké, která by byla schopna yměnit list, z nějž se data čtou, ale přesto by se mi nezměnil výběr listu a po celou dobu běhu programu tak byl vidět pouze hlavní list?
Děkuji za radu

Zaslat odpověď >

---

Poki(3.5.2010 15:45)#001585

zdravim,

.select prave prepina listy, takze je potreba se ho zbavit.

Pokud treba chci, aby se mi z listu "vedlejsi" prekopirovala bunka A1 do listu "hlavni" do bunky a1, lze pouzit (porad bude videt jen list "hlavni"):

worksheets("hlavni").cells(1, 1) = worksheets("vedlejsi").cells(1, 1)citovat

HonzaM(3.5.2010 15:50)#001586

Velice děkuji za radu :)
Vše nyní funguje jak má.
Díky :-)citovat

marcinko.jan(3.5.2010 15:54)#001587

Rovnou toho využiju a zeptám se jak se dá vypnout "vizualizace" při běhu makra. Aby to ukázalo až výsledek..
Díkycitovat

HonzaM(3.5.2010 16:12)#001588

Můžu poprosit o ještě jednu radu?

Jak lze přetvořit tento kód bez použití funkce select:

Range(Cells(radek, 1), Cells(radek + 3, 1)).Select
Selection.Copy
Sheets("pomocná tabulka").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Základní skupiny").Select
Range(Cells(radek, 3), Cells(radek + 3, 9)).Select
Selection.Copy
Sheets("pomocná tabulka").Select
Range("C1").Select
ActiveSheet.Paste

děkujicitovat

Poki(3.5.2010 18:15)#001589

U uvedeného kodu je problem, ze prvni kopirovani se provadi z aktivniho listu - muze se tedy stat, ze uzivatel spusti proceduru v listu "pomocna tabulka" a data si prepise...

Lze však vypustit range(neco).select a selection.copy
a nahrdit to pouze worksheets("list").range(neco).copycitovat

Poki(3.5.2010 18:16)#001590

Pokud jde o visualizace - netusim, co tim myslite, protoze nic takoveho v podstate neni - program dela presne to, co mu reknete v kodu a nic vic - otazka tedy spis je ta - co jste mu v kodu rekl, ze ma delat...citovat

host(4.5.2010 8:43)#001597

Ak ide o zabránenie prekresľovania obrazovky,potom
na začiatok:
Application.ScreenUpdating = False
na koniec:
Application.ScreenUpdating = Truecitovat

marcinko.jan(4.5.2010 9:44)#001599

Jo přesně todle jsem měl na mysli.. Díkycitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse