Excel VBA 質問スレ Part62

[398 デフォルトの名無しさん (ﾜｯﾁｮｲ fff7-ShKg) 2019/07/18(木) 17:33:44.07 ID:iWlQ47rb0]

まちがえた
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Selection
If .Columns.Count >= 20 Then
Excel.Application.EnableEvents = False
.Resize(.Rows.Count, 19).Select
Excel.Application.EnableEvents = True
End If
End With

End Sub