22. maj 2005 - 11:18Der er
5 kommentarer og 1 løsning
Tilføje en række, et vilkårligt sted i excel 2003
Hej, Jeg har lavet følgende macro, og den fungerer næsten efter hensigten.
Private Sub CommandButton1_Click() Rows("4:4").Select Selection.Insert Shift:=xlDown Range("C4:E4").Select Selection.Interior.ColorIndex = xlNone Range("C4:E4").Select Selection.Interior.ColorIndex = xlNone With Selection.Interior .ColorIndex = 1 .Pattern = xlSolid End With End Sub
Men min mening var at jeg skulle kunne klikke på en tilfældig række, og indsætte en ny række (med farve maskering det korrekte sted). Som det er nu indsætter den rækken det samme sted. Er der nogen der har en løsning? (Jeg er absolut novice i VBA).
Du kan prøve denne her. Måske der findes en smartere metode, men jeg tror den fungerer som du ønsker:
Option Explicit Dim WhichRow As Long
Private Sub CommandButton1_Click() Rows(WhichRow & ":" & WhichRow).Select Selection.Insert Shift:=xlDown Range(WhichRow & ":" & WhichRow).Select Selection.Interior.ColorIndex = xlNone With Selection.Interior .ColorIndex = 1 .Pattern = xlSolid End With End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) WhichRow = ActiveCell.row 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.
