23. august 2006 - 00:24Der er
3 kommentarer og 2 løsninger
kan man bruge formularer i modul-funktioner (celle as range)?
Funktionen:
Function BgColor(Celle As Range) As Boolean BgColor = Celle.Interior.ColorIndex <> xlNone End Function
kaldes normalt f.eks. således: '=BgColor(A1)' i en celle, hvor svaret så bliver 'true' eller 'false'
Er det muligt at ændre på funktionen, så 'A1' kan udskiftes med en lookupfunktion, f.eks: 'HLOOKUP(5,A2:J3,2)' eller 'ADDRESS(A2,A3)' eller lignenende?
Jeg har brug for funktionen til at fortælle mig om en given celle i en større tabel er markeret med en baggrundsfarve eller ej.
Public Function Lokup(Mycel As String, Myrange As Range, rk) Dim r, rw Dim c As Range Dim mysheet As Worksheet Set mysheet = Myrange.Parent Application.Volatile Set c = Myrange For Each r In c If r.Value = Mycel Then rw = r.Address 'Row GoTo out End If Next out: Lokup = mysheet.Range(rw).Offset(rk, 0).Interior.ColorIndex = xlNone End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
