25. september 2007 - 20:33Der er
8 kommentarer og 1 løsning
Hvordan får jeg vba til at virke på en hel kolonne
Hej Eksperter Jeg fik lavet følgende af KABBAK Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$A$1" Then Target = Target + 1 Cancel = True End If End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$A$1" Then Target = Target - 1 Cancel = True End If End Sub
------------------
Men hvordan får jeg den til at virke på en range a1:a30
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A1:A30")) Is Nothing Then Exit Sub Target = Target + 1 End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A1:A30")) Is Nothing Then Exit Sub Target = Target + 1 Cancel = True End Sub
Tak for det, men cellen skal ikke blive redigerbar efter et dobbeltklik. Man skal blot kunne blive ved med dobbeltklikke, sådan at den tæller videre uden at skulle markere en anden celle først.
hmmm, altså hver gang jeg dobbeltklikker tæller den 1 op, og så er cellen redigerbar. Dvs. at jeg ikke kan dobbeltklikke igen uden først at skulle markere en anden celle. Husk at ved højreklik skal den tælle 1 ned; har rettet plus til minus...den funktion virker ok
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A1:A30")) Is Nothing Then Exit Sub Target = Target + 1 Cancel = True End Sub
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.
