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
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články