Avatar billede bvk Juniormester
23. september 2002 - 18:03 Der er 13 kommentarer og
1 løsning

Ændring af cellefarven?

Hvordan får jeg en celle til at ændre farve når jeg klikker på den?
Avatar billede kwanstudios Nybegynder
23. september 2002 - 18:09 #1
<html>
<head>
<title>test</title>
<script language="JavaScript1.2">

//Highlight Table Cells Script-- By Dynamic Drive
//For full source code and more DHTML scripts, visit http://www.dynamicdrive.com
//This credit MUST stay intact for use

var ns6=document.getElementById&&!document.all
var ie=document.all

function changeto(e,highlightcolor){
source=ie? event.srcElement : e.target
if (source.tagName=="TR"||source.tagName=="TABLE")
return
while(source.tagName!="TD"&&source.tagName!="HTML")
source=ns6? source.parentNode : source.parentElement
if (source.style.backgroundColor!=highlightcolor&&source.id!="ignore")
source.style.backgroundColor=highlightcolor
}

function contains_ns6(master, slave) { //check if slave is contained by master
while (slave.parentNode)
if ((slave = slave.parentNode) == master)
return true;
return false;
}
</script>
</head>

<body>
<table onClick="changeto(event, 'lightgreen')">
<tr><td>Eggs</td></tr>
<tr><td>Ham</td></tr>
</table>
Avatar billede kwanstudios Nybegynder
23. september 2002 - 18:09 #2
</body>
</html>
Avatar billede kwanstudios Nybegynder
23. september 2002 - 18:09 #3
Fik ikke lige slutningen med :)
Avatar billede htm Nybegynder
23. september 2002 - 18:12 #4
Hmm kwanstudios - han har stillet spørgsmålet i excel kategorien - det er vist ikke lige det han mener
Avatar billede kwanstudios Nybegynder
23. september 2002 - 18:12 #5
satans :) sorry.. så det ikke :)
Avatar billede kwanstudios Nybegynder
23. september 2002 - 18:13 #6
så se bare væk fra mit svar
Avatar billede htm Nybegynder
23. september 2002 - 18:13 #7
:-)
Avatar billede htm Nybegynder
23. september 2002 - 18:18 #8
Det er ikke muligt når du enkeltklikker, men det er muligt ved dobbeltklik
Tilføj dette til din programkode (Højreklik på arket og sig programkode)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub
Avatar billede bvk Juniormester
23. september 2002 - 18:22 #9
Jeg kan ikke bruge det med dobbeltklik
Det SKAL være enkeltklik.......... ;o(
Avatar billede htm Nybegynder
23. september 2002 - 18:24 #10
Det kan ikke lade sig gøre i excel...
Avatar billede htm Nybegynder
23. september 2002 - 18:26 #11
Ellers kan det også gøres ved højreklik - men det tror jeg ikke har interesse
Avatar billede bvk Juniormester
23. september 2002 - 18:29 #12
Hmm, ikke umidelbart...........;o(
Avatar billede bak Forsker
23. september 2002 - 19:46 #13
Hvis det er en opfølgning på dit tidlige spm.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:i11")) Is Nothing Then
  counter = counter + 1
  Cancel = True
  With Target
    With .Interior
    .ColorIndex = 3
    .Pattern = xlSolid
    End With
  Ark1.Range("V2").Offset(counter, 0).Value = .Value
  End With
End If
End Sub
Avatar billede bvk Juniormester
23. september 2002 - 19:59 #14
ColorIndex = 3
Så bliver cellen rød, det er jo bar perfekt..........;o)

Jeg takker.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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