[arct2]

Cześć, mam pytanie- jak zmienić kolor komórki za pomocą funkcji?

Takie coś działa mi bez problemu:

Sub cc()
 Range("A1").Interior.ColorIndex = 20
End Sub

Ale takie coś ni cholery nie chce:

Function cl(col As String)
 Range("A1").Interior.ColorIndex = 7
 cl = col
End Function

WTF?

#vba #excel

[arct2]

@nomate: Źle napisałem, linijka z range jest taka sama:

Range("A1").Interior.ColorIndex = 7

Tak czy siak jedno i drugie rozwiązanie nie działa :/

[53845714N]

@arct2: a co chcesz żeby było parametrem funkcji?
Bo ten "col" się do niczego nie odnosi. To ma być kolor, adres komórki czy jeszcze coś innego?

[arct2]

@nomate: Dobra, wyszukałem na stacku że podobno to jest praktycznie nie możliwe XD
https://stackoverflow.com/questions/13705663/excel-user-defined-function-change-the-cells-color

[arct2]

@53845714N: To miał być numer koloru z ColorIndex

[53845714N]

@arct2
Function cl(col As String)
Range("A1").Interior.ColorIndex = col
End Function

Jeżeli funkcja ma być wyzwalana z procedury jak niżej to wtedy działa:
Sub CC
Cl(7)
End

[53845714N]

@arct2
A to działa jako funkcja w excelu:
https://stackoverflow.com/questions/46694506/change-calling-cell-interior-color

Zmodyfikowałem pod różne kolory:

Sub ChangeIt(c1 As Range, c2 as string)
c1.Interior.ColorIndex = c2
End Sub

Function Test(col as string)
With Application.Caller
.Parent.Evaluate "Changeit(" & .Address(False, False) & "," & col & ")"
End With
Test = ""
End Function

Sprawdziłem i działa.