VBA maximum függvény írása

VBA maximum függvény írása
2020-12-29T12:20:32+01:00
2020-12-29T16:20:14+01:00
2022-10-15T21:16:21+02:00
Orosz Rebeka
Egy VBA házi feladat a következőképpen szól: 
Készítsen makrót, amely az aktív cellába olyan képletet ír, amely a cellától jobbra lévő oszlop maximumát határozza meg!

Idáig jutottam vele:

Sub Maxfv()
Dim Sor, Oszlop
Dim Utolso
Dim a

Sor = ActiveCelll.Row
Oszlop = ActiveCell.Column
Utolso = Cells(Rows.Count, Oszlop + 1).End(xlUp).Row
a = (Utolso + 1) - (Sor + 1) 

ActiveCell.FormulaR1C1 = "=MAX(RC[1]:R[a]C[1])"

End Sub

A fő problémám az volt, hogy meghatározzam az aktív cella mellett lévő oszlop utolsó elemét, hogy bámilyen hosszúságú oszlophoz jó legyen a kód. A jelenlegi kódomban valamiért nem szereti ha paramétert adok meg az R[a]C[1]- nél, nem tudom ez olyan probléma-e, amit meg lehet oldani, vagy ilyen formában csak számként lehet-e megadni meddig tartson a tartomány, ezért teljesen új eljárás kellene-e. Sokféleképpen próbálkoztam még hogy csak az utolsó sorig menjen a kijelölés, de kisebb sikerekkel. Bármilyen ötletet szívesen fogadok:)
Mutasd a teljes hozzászólást!
Szia!

... akkor így is lehet finomítani:

    Dim actualRow, fromRow, toRow, examinedColumn As Long
    actualRow = ActiveCell.Row()
    examinedColumn = ActiveCell.Column() + 1

    ActiveCell.Offset(columnOffset:=1).Activate
    Selection.End(xlUp).Select
    fromRow = Selection.Row()

    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    toRow = Selection.Row()

    Cells(actualRow, examinedColumn - 1).FormulaR1C1 = "=MAX(R" & fromRow & "C" & examinedColumn & ":R" & toRow & "C" & examinedColumn & ")"


üdvözlettel
verax
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd