Jeg bruger Excel 2010 (Engelsk).

Jeg er relativ nybegynder mht. makroer, form control og activex, VB osv.

 

Jeg har et regneark, der er udført som en projektplan.

1. celle i hver række (Kolonne A) indeholder et emne, og hver af de efterfølgende kolonner indeholder forskellige projektfaser fra start til slut.

 

For hver fase (kolonne) - ud for hvert emne (række) - vil jeg gerne kunne lave det sådan, at når man klikker i hver individuelle celle ud for et emne, så skifter den farve, alt efter den tilhørende projektfasens tilstand (cellen cykler gennem flere farver for hvert tryk - f.eks. rød/gul/grøn/grå).

 

Meningen er, at det skal være hurtigt for brugerne af arket, at angive projektfasernes status (klikke frem for at formatere hver celle individuelt).

 

Jeg tænker, at denne løsning vil være mere elegant/intuitiv frem for "Conditional Formatting", der vil kræve, at man indtaster en specifik værdi i hver celle.

 

Jeg forestiller mig, at man indsætter en knap i hver celle, og benytter en makro til at skifte farve på knappen, hver gang der bliver klikket på den.

 

Jeg har fundet ud af at lave et activex script, der virker korrekt på den første knap, men jeg har ikke kunnet finde ud af, hvordan jeg kan kopiere funktionen til yderligere knapper, uden at skulle tilpasse koden individuelt til hver knap (hvilket vil tage meget lang tid, da jeg har brug for adskillige (100+) knapper).

 

Kan nogen herinde hjælpe mig med dette - eller komme med input til, hvordan jeg mest hensigtsmæssigt kan få indbygget den beskrevne funktionalitet i mit dokument?

 

På forhånd tak for hjælpen

Bo

fx.

 

At din celle bliver aktiveret (edit-mode) ved dobbeltklik skyldes formentlig din muse-opsætning

ved ikke om det er muligt at justere på i Excel, det virker fint her i mit ark.

Du kan evt løse problemet med følgende linie i koden som ligger i Arkets kodemodul

(Højreklik på arkfane, vælg Vis programkode) så kommer du ind i arkets kodemodul

Indsæt følgende linie som nr 2 linie

ActiveCell.Offset(0, 1).Select: ActiveCell.Offset(0, -1).Select

men som sagt prøv at rette problemet via museopsætning.

 

Hvis du ikke selv vil lave Userform + kode i dit nye projekt, så følg denne anvisning :

1. Åben min fil, tast ALT+F11, Hvis du ikke kan se Userform1 i vindue til venstre, skal du vælge

  menuen Wiew/Project Explore

2 Marker Userform1 og vælg menuen File/Export File..., klik dig frem til en placering.. fx skrivebord og Gem

3. Luk fil, Åben dit projekt og tast ALT+F11, Vælg menuen File/Import File..., klik dig frem til den gemte fil

   (Userform1) og vælg Åben

4. Nu skulle du gerne kunne finde Userform1 i vinduet øverst til venstre, dobbeltklik på den og dobbeltklik

   på en af knapperne (rød grøn....) så vises koden.

 

OBS ovenstående gælder for Excel 2003 som jeg kører med, det kan være forskelle i 2010 versionen.