Avatar billede nielsbkh Nybegynder
24. oktober 2003 - 13:28 Der er 19 kommentarer og
1 løsning

Excel - highlighte en cell via kode.

Jeg sidder og er ved at implementere et opringningssystem som er i stand til at kalde et nummer i en celle i et Excelark op, hvis nummeret bare er highlightet og man så trykker på shift + højre museknap. Mit problem er nu at denne funktionalitet vil jeg gerne have lagt ned i en macro, og macro indspilning tager ikke musetryk og highligthing med. :-( Musetryk og shift ville jeg klare med sendkey funktionen, men hvordan får jeg highlightet indholdet af cellen... Håber nogen ved hvordan.
Avatar billede dk_akj Nybegynder
24. oktober 2003 - 13:35 #1
med andre ord... hvis en bestemt cele i f.eks kolonne "B" er valgt og der højreklikkes mens shift er nede skal makroen finde telefonnumret i kolonne B ??

//akj
Avatar billede overchord Nybegynder
24. oktober 2003 - 14:06 #2
Lige netop Shift er lidt tricky da excel bruger den til markering af flere celler - saa jeg tror ikke du kan goere det via VBA kode, men skal ud i et API-kald istedet.
Avatar billede kabbak Professor
24. oktober 2003 - 14:13 #3
et forsøg

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'******************************* Vanddata *************************
Cancel = True
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B:B").Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
End If
Cancel = True
End Sub
Avatar billede kabbak Professor
24. oktober 2003 - 14:16 #4
den sidste
Cancel = True
skal være
Cancel = False

Du vil ikke få menuen for højreklik, i kolonne B
Avatar billede nielsbkh Nybegynder
27. oktober 2003 - 08:55 #5
Undskyld at jeg først svarer nu... har været syg hele weekenden. Jeg har også den mulighed at bruge Ctrl+højre museknap. Ville være godt hvis det virkede kabbak, men jeg kan ikke få Excel til at kører sub'en ved højreklik. :-(
Avatar billede nielsbkh Nybegynder
27. oktober 2003 - 08:57 #6
Lige et par ord til dk akj. Man skal bare kunne sætte curseren på cellen med telefon nummeret og så trykke F5 f.eks.. og så skulle det nummer der er i den celle hvor man står bliver ringet op.
Avatar billede nielsbkh Nybegynder
27. oktober 2003 - 09:38 #7
Okay.. nu virker det så langt så jeg kan ændre baggrundsfarven i den celle jeg står i ved at trykke på F5... så er det næste hvordan man via koden highlighter, altså markere hele indholdet af en celle, for det er det den rent faktisk skal gøre ved tryk på F5..
Avatar billede bak Forsker
27. oktober 2003 - 09:57 #8
du kunne bruge sendkeys

SendKeys "{F2}+^{home}"
Avatar billede bak Forsker
27. oktober 2003 - 10:01 #9
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
SendKeys "{F2}+^{home}"
End Sub
Avatar billede nielsbkh Nybegynder
27. oktober 2003 - 10:01 #10
Ja, havde regnet med at bruge sendkeys til resten af min operation... hvad gør den du har skrevet der?? Kender du kombinationen for at markere indhold?? Og nu jeg er igang med at spørge kender du så kombinationen for højreklik?
Avatar billede bak Forsker
27. oktober 2003 - 10:02 #11
den sendkeys kombination jeg har skrevet, vil markere indholdet af cellen
Avatar billede nielsbkh Nybegynder
27. oktober 2003 - 10:09 #12
Du har ret!! Kanon... Så mangler jeg bare kombinationen for Shift+højreklik på musen.. noget du kan klare?? :-D
Avatar billede bak Forsker
27. oktober 2003 - 10:17 #13
hvad sker der hvis du trykker shift og rightclicker når makroen allerede ligger der?

Husk at makroen skal ligge i arket eget kodemodul (hørjreklik på arkfanen, vælg "vis programkode" og indsæt makroen.
Avatar billede nielsbkh Nybegynder
27. oktober 2003 - 10:21 #14
Man skal bare smide det derind for at before rightmouseklik virker... okay.. Så har jeg lært noget mere idag.. men kendte du kombinationen for ctrl+right mouse? VIlle hjælpe kanon meget.
Avatar billede nielsbkh Nybegynder
27. oktober 2003 - 10:36 #15
Jeg mangler kun den kombination.. :-( Så kører min application.. håber nogen kan komme med den.
Avatar billede nielsbkh Nybegynder
27. oktober 2003 - 10:37 #16
Du skal også ligge et svar bak, for at få nogle point.
Avatar billede bak Forsker
27. oktober 2003 - 11:18 #17
Du kan ikke (så vidt jeg ved) sende et rightclick.
noget andet er at du faktisk burde kunne nøjes med trykke ctrl og så højreklikke. Highlightningen foregår inden selve højreklikket "sendes videre i systemet"
Avatar billede kabbak Professor
07. januar 2004 - 14:30 #18
respons ønskes
Avatar billede kabbak Professor
01. februar 2004 - 01:01 #19
Lukketid.
Avatar billede nielsbkh Nybegynder
18. juli 2005 - 18:07 #20
Ville gerne give point til Bak, men du har ikke lagt noget svar - tager selv pointene!
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
Kurser inden for grundlæggende programmering

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