Søg
Avatar billede boro23 Forsker
17. januar 2014 - 07:37 Der er 5 kommentarer og
1 løsning

Hjælp til ændring i vbakode

Hej eksperter, denne kode laver et flueben, når man dobbeltklikker i en celle uanset hvor i arket.
Jeg vil gerne kunne kunne bestemme, hvor i arket der kan dobbeltklikkes f.eks. kolonne A & kolonne K.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        Cancel = True
      If .Value = Chr(252) Then
            .Value = ""
        Else
            .Value = Chr(252)
            .Font.Name = "Wingdings"
            .Font.Bold = True
        End If
    End With
End Sub
Avatar billede kabbak Professor
17. januar 2014 - 08:25 #1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Or Target.Column = 11 Then ' A og K
    With Target
        Cancel = True
      If .Value = Chr(252) Then
            .Value = ""
        Else
            .Value = Chr(252)
            .Font.Name = "Wingdings"
            .Font.Bold = True
        End If
    End With
    End If
End Sub
Avatar billede boro23 Forsker
17. januar 2014 - 08:45 #2
Hej Kabbak

Jeg kan kun få den til at lave flueben i kolonne A.

Jeg glemte iøvrigt en anden vigtig detalje, Kolonne A & K er ikke låst, når arket så arkbeskyttes, kommer der en fejl "Run-time error '1004' Kan ikke angive egenskaben Name for klassen Font."
Avatar billede kabbak Professor
17. januar 2014 - 09:30 #3
Begge virker fint ved mig, angående beskyttelse, skal du sætte flueben i Formater celler, der hvor du beskytter arket
Avatar billede boro23 Forsker
17. januar 2014 - 09:56 #4
Hej igen

Du har ret, det virker som det skal. 1000 tak for hjælpen, smider du et svar.

NB. Hvis jeg på et senere tidspunkt vil tilføje en eksta kolonne eller et område f.eks A1:B25, kan det indsættes i koden.
Avatar billede kabbak Professor
17. januar 2014 - 10:16 #5
du kan bare tilføje en
Or Target.Column =

mere for en kolonne

et område afgrænses således

If Not Intersect(Range("A1:B25"), .Cells) Is Nothing Then
' kode
end if
Avatar billede boro23 Forsker
17. januar 2014 - 11:45 #6
Rigtig mange tak
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Stempel ur start og stop Af lurup i Excel 1 23/03/202613:24 23/03/202621:06
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel 2 18/02/202620:41 19/02/202611:30
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 11:18 DENVER DVB-tMPEG-4 HD TUNER Af ole falsted i Fjernsyn & projektorer
I går 10:03 Låst D-drev skal genoprettes Af barth i Andet software
27/0313:51 Vest Tysk film - fra 1955 ? - Søges - Navn på film og forfatter har jeg glemt Af Ikke-ekspert i Fri debat
27/0305:41 Messenger kræver kode. Af Per i PC
25/0315:42 Kan ikke installere MitID app fra google play Af valby i Mobiltelefoner
White papers
Flere white papers »