Notifikationer

Markér alle som læst Log ud

klapiolsen Nybegynder

23. august 2006 - 00:24 Der 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.

Synes godt om

excelent Ekspert

23. august 2006 - 09:05 #1

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

indtast i en celle :

=lokup("c";A1:E1;2)

SAND= ingen farve

Synes godt om

excelent Ekspert

23. august 2006 - 09:07 #2

hvor Mycel = teksten du søger
Myrange = område du søger teksten i
rk = hvor mange rækker nede i forhold til din søgetekst

Synes godt om

excelent Ekspert

23. august 2006 - 16:07 #3

Hvis det er tal du søger på behøver tallet ikke være i " "

Det er nok mere naturligt at ændre = xlNone til <> xlNone
sådan:
Lokup = mysheet.Range(rw).Offset(rk, 0).Interior.ColorIndex = xlNone

Hvis vi antager at 5 findes i celle C3, så vil funktionen
=lokup(5;A2:J3;2) checke celle C5 for en evt. farve.

Synes godt om

excelent Ekspert

28. august 2006 - 10:46 #4

hvad med noget respons ?

Synes godt om

excelent Ekspert

20. september 2006 - 20:52 #5

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kan Excel selv beregne alder? Af leahcim i Excel	4	I dag 10:24	I dag 12:26
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	16	17/08/202615:14	27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel	13	24/07/202611:08	03/08/202618:42

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS