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

MS Excel

Téma: Vytvoření pole

Zaslal/a Holcz 21.11.2014 9:27

Ahoj,
v Excelu bych chtěl pomocí VBA označit více objektů Shapes najednou. Dělám to pomocí tohoto příkazu:
ActiveSheet.Shapes.Range(Array(1, 2, 3, 4, 5, 6, 7)).Select

Chtěl bych se zeptat jestli je nějaká možnost, abych místo vypisování Array(1, 2, 3, 4, 5, 6, 7...) mohl zapsat jen rozsah například takto:
ActiveSheet.Shapes.Range(Array(1 až 6)).Select

Děkuji

Zaslat odpověď >

---

Palooo(21.11.2014 10:15)#022463

mozte si spravit funkciu ktora to zavas prepise do spravneho tvarucitovat

Palooo(21.11.2014 14:44)#022468

tu je kod:
Sub aStart()
ActiveSheet.Shapes.Range(aArray(1)).Select
End Sub

Private Function aArray(ByVal aSheet As Variant) As Variant
Dim aValue() As Variant

For Each aR In Sheets(aSheet).Shapes
x = x + 1
ReDim Preserve aValue(x): aValue(x) = aR.Name
Next
aArray = aValue()
End Function
citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse