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

• #50366 TheSaint aktív tag TillaT #50365

  Új Válasz 2023-01-31 20:42:33 #50366

  Ú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

  

  TheSaint

  aktív tag

  válasz TillaT #50365 üzenetére

  "Arra még nem sikerült rájönnöm, hogy a kód hatása alatt miért nem engedi a sorok és/vagy oszlopok kijelölésével az egész sorok/oszlopok beszúrását/törlését; hogy miért csak a táblázaton belüli cellák kijelölésével enged beszúrni és törölni egész sorokat/oszlopokat"

  Egy próba erejéig:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then
Application.CutCopyMode = False
Application.OnKey "^+{INSERT}", "InsertEntireRowOrColumn"
Application.OnKey "^+{DELETE}", "DeleteEntireRowOrColumn"
Else
Application.OnKey "^+{INSERT}"
Application.OnKey "^+{DELETE}"
End If
End Sub
Sub InsertEntireRowOrColumn()
If Selection.Rows.Count > 1 Then
Selection.EntireRow.Insert
ElseIf Selection.Columns.Count > 1 Then
Selection.EntireColumn.Insert
End If
End Sub
Sub DeleteEntireRowOrColumn()
If Selection.Rows.Count > 1 Then
Selection.EntireRow.Delete
ElseIf Selection.Columns.Count > 1 Then
Selection.EntireColumn.Delete
End If
End Sub

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