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

Koplik · 2003-12-29, 08:52

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.

Kod:

  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.

Kod:

<Body OnClick="colorize(element);">

<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

Solsidan · 2003-12-29, 10:20

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

Kod:

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

Koplik · 2003-12-29, 11:07

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!

Mazz · 2003-12-30, 14:29

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

2003-12-29, 08:52	#1
Koplik Medlem Registrerad: 2001-07-31 Ort: Uppsala, Sverige, Tellus, Mjölkgatan Inlägg: 826 Lösningar: 19	Macro/VB för att färga celler vid klick (Excel) 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. Kod: 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. Kod: <Body OnClick="colorize(element);"> <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 __________________ When you idolize a gangster wanna be uneducated moron with gold teeth and a habitual drug problem , you belittle your own intelect and throw your moral compass out the window. Senast redigerad av Koplik, 2003-12-29 klockan 09:06

2003-12-29, 10:20	Markerad som löst av Koplik #2
Solsidan Medlem Registrerad: 2003-11-27 Inlägg: 3 Lösningar: 1	Den här koden skall läggas in i "This Workbook" och ger gul färg när du dubbelklickar i en cell: Kod: 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

2003-12-29, 11:07	#3
Koplik Medlem Registrerad: 2001-07-31 Ort: Uppsala, Sverige, Tellus, Mjölkgatan Inlägg: 826 Lösningar: 19	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! __________________ When you idolize a gangster wanna be uneducated moron with gold teeth and a habitual drug problem , you belittle your own intelect and throw your moral compass out the window.

2003-12-30, 14:29	#4
Mazz Medlem Registrerad: 2003-08-07 Ort: Göteborg Inlägg: 118 Lösningar: 0	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

Trådverktyg
Visa utskriftsvänlig version E-posta den här sidan
Visningsalternativ
Linjär visning Växla till hybrid-visning Växla till trådad visning