Új hozzászólás Aktív témák

• #45063 lappy őstag andreas49 #45062

  Új Válasz 2020-10-06 07:13:44 #45063

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz andreas49 #45062 üzenetére

  Itt van egy ilyen kód amire szükséged van
  Sub InsertRowsAtCursor()
    Answer = InputBox("How many Rows to insert? (50 Rows maximum)")
    NumLines = Int(Val(Answer))
    If NumLines > 50 Then
        NumLines = 50
    End If
    If NumLines = 0 Then
        GoTo EndInsertLines
    End If
    Do
        Selection.EntireRow.Insert
        Count = Count + 1
    Loop While Count < NumLines
EndInsertLines:
End Sub

Új hozzászólás Aktív témák