Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


54265 / 76732 ←次へ | 前へ→

【27263】Re:確認方法
回答  つん E-MAIL  - 05/8/3(水) 20:25 -

引用なし
パスワード
   こんばんは^^

>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

こんな感じで・・・
画期的かどうかはわかりませんが・・・
0 hits

【27262】確認方法 じゅん 05/8/3(水) 19:49 質問
【27263】Re:確認方法 つん 05/8/3(水) 20:25 回答
【27265】Re:確認方法 りん 05/8/3(水) 21:26 回答
【27299】Re:確認方法 じゅん 05/8/4(木) 15:46 質問
【27300】Re:確認方法 つん 05/8/4(木) 16:14 回答
【27301】Re:確認方法 Jaka 05/8/4(木) 16:23 発言
【27302】Re:確認方法 つん 05/8/4(木) 16:39 発言
【27303】Re:確認方法 でれすけ 05/8/4(木) 16:52 回答
【27305】Re:確認方法 ichinose 05/8/4(木) 17:01 発言
【27319】Re:確認方法 じゅん 05/8/5(金) 11:42 お礼

54265 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free