Új hozzászólás Aktív témák

• #25992 azopi74 addikt Delila_1 #25988

  Új Válasz 2015-03-14 11:03:53 #25992

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  azopi74

  addikt

  válasz Delila_1 #25988 üzenetére

  Szia, köszi szépen

  Na ezen felbuzdulva, gondoltam összedobok egy olyan UDF tömbfüggvényt, ami visszaad visszatérési értékként egy tömböt, ami tartalmazza a paraméterként megadott tartomány celláinak színeit.

  Így próbáltam:

  Function IntColor2(szines As Range)
  Dim k As Long
  Dim ArrayCol() As Long
  k = szines.Rows.Count
  ReDim ArrayCol(1 To k) As Long
  Dim Cell As Range
  Dim i As Long
  i = 1
  For Each Cell In szines
  ArrayCol(i) = Cell.Interior.ColorIndex
  i = i + 1
  Next
  IntColor2 = ArrayCol()
  End Function

  De az első cella színét adja vissza a tömb összes elemeként.

  Amit nem igazán értek, hiszen az alábbi eljárás - ami gyakorlatilag ugyanezt csinálja, csak eljárásban - pedig jól működik (kiírattam a tömb értékeit, és jó) :

  Sub IntColor3()
  Dim ArrayCol() As Long
  Dim Cell As Range
  Dim szines As Range
  Dim i As Long
  Dim k As Long
  i = 1
  Set szines = Range("A1:A20")
  k = szines.Rows.Count
  ReDim ArrayCol(1 To k) As Long
  For Each Cell In szines
  ArrayCol(i) = Cell.Interior.ColorIndex
  i = i + 1
  Next
  
  End Sub

  Mi lehet a probléma az UDF-fel?

Új hozzászólás Aktív témák