Deklarálás a VBA-ban

Deklarálás a VBA-ban
2018-03-17T23:05:06+01:00
2018-03-19T12:27:15+01:00
2022-10-15T21:26:40+02:00
bagameri
A következő kódot a NETről másoltam.
Sajnos, van benne egy változó (c1), amelyet a szerző nem deklarált, így Option Explicit esetén hibaüzenetet kapok.
Tudnátok segíteni, mi lenne a helyes deklarálása?

Option Explicit Function SumByColor(CellColor As Range, rRange As Range) 'Színtől függően összegez Dim cSum As Long Dim ColIndex As Integer ColIndex = CellColor.Interior.ColorIndex For Each cl In rRange If cl.Interior.ColorIndex = ColIndex Then cSum = WorksheetFunction.Sum(cl, cSum) End If Next cl SumByColor = cSum End Function Köszi előre is!
Mutasd a teljes hozzászólást!
Szia!

A cl változó Range típusu, tehát Dim cl As Range.
Mivel egy cella is tartománynak minősül.

Üdv.
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