Poloha dat v Excelu

[Dieesels]

Dobrý den, zprvu se omlouvám, že se opět ptám na skoro totéž, bohužel mé předchozí téma je uzamčeno.

Co se týče grafu podařilo se mi to zrealizovat. Ještě by mne zajímalo jak to provést také z daty. Např. mám data ve sloupci A1:B5 a pomocí vba by se změnilo jejich umístění do buněk D1:E5.

[navstevnik]

Presunout data (hodnoty) muzes pomoci nasledujiciho kodu:

Kód: Vybrat vše

  With ActiveSheet
    .Range("d1:e5").Value = .Range("a1:b5").Value
    .Range("a1:b5").ClearContents
  End With

pripadne vcetne vzorcu a formatovani:

Kód: Vybrat vše

  With ActiveSheet
    .Range("a1:b5").Cut Destination:=.Range("d1:e5")
  End With

Jinou moznost bez fyzickeho presunuti skyta pouziti vestavene funkce Fotoaparat: vytvor obraz pozadovane oblasti bunek a pak muzes tento objekt premistovat pomoci v minulem prispevku uvedenych prikazu.

[Dieesels]

Děkuji, ještě mám dotaz týkající se UserForm. Např. když jsem si vytvořil dva checkbox. Jak provést, aby i po zavření Userform zůstala hodnota na poslední zvolené možnosti?

[navstevnik]

Skryti UserForm se zachovanim stavu ovladacich prvku, tedy docasne skryti; frm zustava v pameti:

Kód: Vybrat vše

frmControls.Hide

Odstraneni frm z pameti:

Kód: Vybrat vše

Unload frmControls

PS.: pro otevreni frm je ekvivalentni Load frmControls a frmControls.Show

[Dieesels]

Mohl by jste to zakomponovat do toho souboru, nějak se mi to nedaří.

[navstevnik]

Pro ovladaci prvky na listu pouzivej ovladaci prvky z menu Vlozit>Panely nastroju>Ovladaci prvky, tyto poskytuji siroke moznosti programoveho nastaveni vlastnosti, formatovani a zachyceni udalosti. Na list1 je vlozen takovyto CommandButton - cmdMenu, v modulu List1 je pak udalostni procedura cmdMenu_Click. Ovladaci prvky z nabidky Formulare jsou k dispozici pouze kvuli kompatibilite se starsimi verzemi Excelu.

Protoze neuvedls nic blizsiho, je radek kodu skryvajici UserForm1 pridan v udalostnich procedurach OptionButton_Click.

[Dieesels]

Paráda, děkuji velice. Přesně tohle jsem potřeboval...ještě jednou děkuji