Zkuste Cells :
dim ws as worksheet
with ws
.range(.cells(1,2),.cells(5,4))).interior.color=vbred
end with
citovat
dim ws as worksheet
with ws
.range(.cells(1,2),.cells(5,4))).interior.color=vbred
end with
citovat
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: Výběr pole buněk pomocí proměnné
MS Excel
Téma: Výběr pole buněk pomocí proměnné 
Zaslal/a Jurasek 18.2.2020 12:10
Ahoj všem.
Mohli by jste mně prosím poradit jak vybrat pole buněk pomocí proměnné. Mám daný sloupcové souřadnice pole a chci dodávat řádkové souřadnice pomocí proměnné. Napsal jsem to takto, ale VB to nesežere.
Range(["A" & CisloRadkuMesice], ["I" & CisloRadkuMesice]).Select
Předpokládám, že mám špatný syntax. Jak to mám prosím napsat. A také by bylo zajímavé vědět jak vybrat a jak to napsat, kdybych měl všechny hodnoty proměnné. Moc děkuji.
(18.2.2020 13:08)#045927
Je několik možností pro definici oblasti:
všechny souřadnice jsou proměnné:
Range(Cells(prvni_Radek, prvni_Sloupec),Cells(posledni_Radek, posledni_Sloupec))
začátek oblasti a počet sloupců jsou konstantní:
Range("A2:F" & posledni_Radek)
hranaté závorky to dovedou zjednodušovat, ale sem-tam je s tím obtíž, tak je používám zřídka:
Range("A1") se dá zapsat jako [A1]
Range("Zakaznici") se dá zapsat jako [Zakaznici]citovat
všechny souřadnice jsou proměnné:
Range(Cells(prvni_Radek, prvni_Sloupec),Cells(posledni_Radek, posledni_Sloupec))
začátek oblasti a počet sloupců jsou konstantní:
Range("A2:F" & posledni_Radek)
hranaté závorky to dovedou zjednodušovat, ale sem-tam je s tím obtíž, tak je používám zřídka:
Range("A1") se dá zapsat jako [A1]
Range("Zakaznici") se dá zapsat jako [Zakaznici]citovat
Všetko variabilné:
Sub VyberOdDo()
Dim CisloRadkuOd As Long, CisloRadkuDo As Long
Dim CisloSloupceOd As Long, CisloSloupceDo As Long
CisloRadkuOd = 2
CisloRadkuDo = 3
CisloSloupceOd = 5
CisloSloupceDo = 8
ActiveSheet.Cells(CisloRadkuOd, CisloSloupceOd).Resize(CisloRadkuDo - CisloRadkuOd + 1, CisloSloupceDo - CisloSloupceOd + 1).Select
End Sub
Sub VyberOdPocet()
Dim CisloRadkuOd As Long, PocetRadku As Long
Dim CisloSloupceOd As Long, PocetSloupcu As Long
CisloRadkuOd = 2
PocetRadku = 2
CisloSloupceOd = 5
PocetSloupcu = 4
ActiveSheet.Cells(CisloRadkuOd, CisloSloupceOd).Resize(PocetRadku, PocetSloupcu).Select
End Subcitovat
Sub VyberOdDo()
Dim CisloRadkuOd As Long, CisloRadkuDo As Long
Dim CisloSloupceOd As Long, CisloSloupceDo As Long
CisloRadkuOd = 2
CisloRadkuDo = 3
CisloSloupceOd = 5
CisloSloupceDo = 8
ActiveSheet.Cells(CisloRadkuOd, CisloSloupceOd).Resize(CisloRadkuDo - CisloRadkuOd + 1, CisloSloupceDo - CisloSloupceOd + 1).Select
End Sub
Sub VyberOdPocet()
Dim CisloRadkuOd As Long, PocetRadku As Long
Dim CisloSloupceOd As Long, PocetSloupcu As Long
CisloRadkuOd = 2
PocetRadku = 2
CisloSloupceOd = 5
PocetSloupcu = 4
ActiveSheet.Cells(CisloRadkuOd, CisloSloupceOd).Resize(PocetRadku, PocetSloupcu).Select
End Subcitovat
Tak jsem využil variantu podle elninoslov a funguje parádně. Děkuji moc všem.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