MS Excel

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

Zaslat odpověď >

marjankaj(24.5.2017 17:14)#036512

Tak to som nevedel, že FOR je funkcia.

A čo tak použiť
Do While
alebo
Do Untilcitovat

fortes(24.5.2017 17:43)#036513

a jak to teda napsat ?? děkujucitovat

elninoslov(24.5.2017 18:10)#036514

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

fortes(24.5.2017 18:25)#036515

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

elninoslov(24.5.2017 18:42)#036516

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

fortes(24.5.2017 19:56)#036517

moc dikcitovat

Téma: funkce for

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje