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: funkce for
MS Excel
Téma: funkce for 
Zaslal/a fortes 24.5.2017 17:05
dobrý den,
mám napsané "For aa = radek to radek + 9"
teď mám napsanou hodnotu "9", ale jednou bude 6 jindy 18 tak bych potřeboval jak napsat že to bude od hodnoty "radek" do prvni prázdné buňky ??? díky za radu
Príklad s For:
Sub NeviemCo()
Dim Radek As Long, Posledny As Long, i As Long, Spoj As String
Radek = 2
With Worksheets("Hárok1")
Posledny = .Cells(Rows.Count, 1).End(xlUp).Row
For i = Radek To Posledny
Spoj = Spoj & .Cells(i, 1).Value2 'Nejaký Váš kód
Next i
End With
MsgBox Spoj 'Výsledok
End Sub
Veľa bude záležať na tom, čo presne chcete, čo robíte v cykle, ako sú usporiadané dáta a pod.citovat
Sub NeviemCo()
Dim Radek As Long, Posledny As Long, i As Long, Spoj As String
Radek = 2
With Worksheets("Hárok1")
Posledny = .Cells(Rows.Count, 1).End(xlUp).Row
For i = Radek To Posledny
Spoj = Spoj & .Cells(i, 1).Value2 'Nejaký Váš kód
Next i
End With
MsgBox Spoj 'Výsledok
End Sub
Veľa bude záležať na tom, čo presne chcete, čo robíte v cykle, ako sú usporiadané dáta a pod.citovat
sesmolil jsem to takto,
sub postup ()
radek = activecell.row
for aa = radek to radek +9
text = worksheets("report").cella(aa-1,11).value
text1 = text1 &"& text
next aa
msgbox text1
end sub
podotýkám že pracuju pokus omyl !! v podstatě tohle funguje jen s tim že potřebuju určit počet řádků. začátek hodnoty "radek" je aktivní buňka a konec bude prázdná buňkacitovat
sub postup ()
radek = activecell.row
for aa = radek to radek +9
text = worksheets("report").cella(aa-1,11).value
text1 = text1 &"& text
next aa
msgbox text1
end sub
podotýkám že pracuju pokus omyl !! v podstatě tohle funguje jen s tim že potřebuju určit počet řádků. začátek hodnoty "radek" je aktivní buňka a konec bude prázdná buňkacitovat
Sub postup()
Dim Radek As Long, Posledny As Long, Text1 As String
Radek = ActiveCell.Row
Posledny = Worksheets("report").Cells(Rows.Count, 11).End(xlUp).Row
If Posledny < Radek Then Exit Sub
If Posledny = Radek Then
Text1 = Worksheets("report").Cells(Posledny, 11)
Else
Text1 = Join(WorksheetFunction.Transpose(Worksheets("report").Cells(Radek, 11).Resize(Posledny - Radek + 1).Value2), "")
End If
MsgBox Text1
End Sub
Takto je to bez cyklu, a s ošetrením situácie, že bude označený riadok za posledným riadkom.citovat
Dim Radek As Long, Posledny As Long, Text1 As String
Radek = ActiveCell.Row
Posledny = Worksheets("report").Cells(Rows.Count, 11).End(xlUp).Row
If Posledny < Radek Then Exit Sub
If Posledny = Radek Then
Text1 = Worksheets("report").Cells(Posledny, 11)
Else
Text1 = Join(WorksheetFunction.Transpose(Worksheets("report").Cells(Radek, 11).Resize(Posledny - Radek + 1).Value2), "")
End If
MsgBox Text1
End Sub
Takto je to bez cyklu, a s ošetrením situácie, že bude označený riadok za posledným riadkom.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
Čas od do
lubo • 19.4. 16:30
Makro smyčka
MilanKop • 19.4. 10:46
Makro smyčka
elninoslov • 19.4. 9:02
Čas od do
elninoslov • 19.4. 8:46
Čas od do
jarek1111 • 18.4. 13:46
Čas od do
lubo • 18.4. 11:13
Čas od do
jarek1111 • 18.4. 8:32
RSS nejnovější články