|
こんばんは^^
>Application.InputBoxにて、セル参照(Rangeオブジェクト)
>のタイプでデータを取得します。
>指定した行数(セルではなく)を削除するようにしたいのですが、
>例えば、30行目〜50行目以外を指定した場合は
>「削除できない」ようにしたいのです。
>
>第一の確認方法として、
>InputBoxで取得したデータの中にアルファベットが入っていたら、
>セルを参照している証拠なので、NG
>ということはしました。
>
>しかし、その他の確認方法がどうしても分かりません。
>カンマで分けたり、力技で行おうと思えば出来るのかもしれませんが、
>途方もない時間をかけた割には、たかがしれてる処理だと思うので、
>どうにか簡単に確認する方法はないか教えていただきたいと思っています。
>
>何か画期的な方法がありましたら、ぜひ教えて下さい!
>よろしくお願いします。
これって、InputBoxで行全体を選択して・・・ってことですよね?
で、30行目〜50行目以外は無効にしたいって・・・
それでしたら、取得した行の行番号と行数を取得したらいいんでは?
Sub test()
Dim r As Range
Set r = Application.InputBox("test", "test", , , , , , 8)
MsgBox r.Row
MsgBox r.Rows.Count
Set r = Nothing
End Sub
こんな感じで・・・
画期的かどうかはわかりませんが・・・
|
|