---
title: "Macro/VB för att färga celler vid klick (Excel)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/kontorsprogram/93570-macro-vb-för-att-färga-celler-vid-klick-excel"
topic: "Kontorsprogram"
topic_url: "https://www.webforum.nu/amne/kontorsprogram"
author: "Koplik"
published: "2003-12-29T08:52:22.000Z"
updated: "2003-12-30T14:29:20.000Z"
replies: 3
views: 761
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/kontorsprogram/93570-macro-vb-för-att-färga-celler-vid-klick-excel"
---

# Macro/VB för att färga celler vid klick (Excel)

## #1 — Koplik, 2003-12-29T08:52Z

Hej hej.

Jag sitter på jobbet i vanlig ordning och får en idé som jag senare märker att jag har problem att utföra.

Det är nämligen så att jag vill göra en funktion i excel där man clickar på en cell så färgsätts den med en förutbestämd för

Jag provade att spela in ett macro för att få reda på lite syntax i Excels VB, men fortfarande så är den svåra delen att få funktionen att initieras vid click på valfri cell, eller iaf de celler inom en viss range (Alla celler utom rubrikerna)

Så här ser koden ut som jag fick när jag markerade en cell och satte en färg.

```
  Range("B2").Select
  With Selection.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
  End With
```

Det jag vill ha får jag förklara i Javascript som jag kan, alltså ett påhittat exempel, men kanske kan sprida lite ljus i frågan.

```
<Body OnClick="colorize([b]element[/b]);">

<Script Language="Javascript">
function colorize(element)
{
  if(element.backgroundColor='#ffffff')
    element.backgroundColor='#ffffcc';
  else
    element.backgroundColor='#ffffff';
}
</Script>
```

element motsvarar då alltså cellen jag klickar på.
Och jag vill ha en liknande "Body Onclick" aktivering i arbetsbladet jag jobbar i.

Någon som förstår vad jag menar och möjligtvis har en lösning?
Om ni inte riktigt förstår, säg då till så försöker jag förklara lite mer vad jag är ute efter.

Tacksam för svar
/Koplik

Permalänk: https://www.webforum.nu/p/93570

## #2 — Solsidan, 2003-12-29T10:20Z

Den här koden skall läggas in i "This Workbook" och ger gul färg när du dubbelklickar i en cell:

```

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As _
Object, ByVal Target As Range, Cancel As Boolean)
With Selection.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
  End With
End Sub
```

Permalänk: https://www.webforum.nu/p/1238166

## #3 — Koplik, 2003-12-29T11:07Z

Tack tack, fungerade fint.
Antar att det inte går att köra en enkelklick för att aktivera färgändringen, sökte på google, men fanns bara rightclick och double. 

Tack så hemskt mycket! :)

Permalänk: https://www.webforum.nu/p/1238173

## #4 — Mazz, 2003-12-30T14:29Z

Följande kod för att få färg vid enkelklick...

Skriv följande för att få vid "Klick" istället..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 With Selection.Interior
        .ColorIndex = 44
        .Pattern = xlSolid
    End With
End Sub

Mvh

Permalänk: https://www.webforum.nu/p/1238694

---

Tråden på webben: https://www.webforum.nu/amne/kontorsprogram/93570-macro-vb-för-att-färga-celler-vid-klick-excel