mozte si spravit funkciu ktora to zavas prepise do spravneho tvarucitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Vytvoření pole
MS Excel
Téma: Vytvoření pole 
Zaslal/a 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
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
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)
\n
\nMenu
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
VBA - Automatické přidání a pojmenování listů
CePino • 3.5. 21:33
VBA - Automatické přidání a pojmenování listů
elninoslov • 3.5. 18:50
VBA - Automatické přidání a pojmenování listů
CePino • 3.5. 16:33
VBA - Automatické přidání a pojmenování listů
elninoslov • 3.5. 12:04
VBA - Automatické přidání a pojmenování listů
CePino • 2.5. 22:52
Určení kraje dle databáze PSČ na základě adresy
elninoslov • 30.4. 13:49
Určení kraje dle databáze PSČ na základě adresy
Pepepe • 30.4. 11:45
RSS nejnovější články