< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

icon #001585
Poki
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
#001586
avatar
Velice děkuji za radu :)
Vše nyní funguje jak má.
Díky :-)citovat
#001587
marcinko.jan
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
#001588
avatar
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
icon #001589
Poki
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
icon #001590
Poki
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
#001597
avatar
Ak ide o zabránenie prekresľovania obrazovky,potom
na začiatok:
Application.ScreenUpdating = False
na koniec:
Application.ScreenUpdating = Truecitovat
#001599
marcinko.jan
Jo přesně todle jsem měl na mysli.. Díkycitovat

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

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:00