|
こんばんは、皆さん。
でれすけさんのコードで機能を果たしていると思いますが。
>rowメソッドで取得しようにも、最初の行(「$30:$35」なら$30のみ)
>しか取得してくれず、$30, $31, $32, $33, $34, $35と認識してくれないと
>困る気がします。
困る理由もわかりませんが、一行ずつ取得したいなら、
'=====================================================
Sub main()
On Error Resume Next
Dim rng As Range
Dim ans As Range
Dim chkrng As Range
Set chkrng = Rows("30:50")
Set rng = Application.InputBox("", , , , , , , 8)
If Err.Number = 0 Then
Set ans = Application.Intersect(chkrng, rng.EntireRow)
If Not ans Is Nothing Then
For Each are In ans.Areas
With are
For idx = 1 To .Rows.Count
MsgBox .Rows(idx).Address & " は削除可能セル範囲"
' 実際の削除処理
Next
End With
Next
Else
MsgBox "nogood"
End If
End If
End Sub
|
|