Excel VBA質問箱 IV

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

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


74331 / 76732 ←次へ | 前へ→

【6870】Re:ありがとうございます
回答  つん E-MAIL  - 03/8/8(金) 14:04 -

引用なし
パスワード
   どもども

>で試してみた所、検索する事ができました!
>どうもありがとうございました。
良かったです(^o^)

>後少し教えて欲しい事があるのですが、ここから続きのプログラムで、
>検索されたセルに対して、この後命令を出す事はできるのでしょうか?
>例)空白のセルに対して、入力を行えるようにする。
>どうかよろしくお願い致します。

何をどう入力するのかちとわかりませんが、
とりあえず、CurrentRegionで取得した範囲の空白セルに数字を入れてみました。

Sub test()

  Dim rTest As Range
  Dim r As Range
  Dim i As Long
  
  Set rTest = Range("a1").CurrentRegion

  For Each r In rTest.SpecialCells(xlCellTypeBlanks)
    r.Value = i
    i = i + 1
  Next r
  
  Set rTest = Nothing
  
End Sub

こんなんでいいのかな?
SpecialCells(xlCellTypeBlanks)・・これで、空白セルを取得してます。
もしない場合は、これだとエラーになるので、エラー処理が必要ですわ。
1 hits

【6861】よろしくお願いします。 仕事で困っています 03/8/8(金) 11:31 質問
【6862】Re:よろしくお願いします。 つん 03/8/8(金) 11:40 回答
【6867】ありがとうございます 仕事で困っています 03/8/8(金) 13:49 お礼
【6869】Re:ありがとうございます INA 03/8/8(金) 13:58 回答
【6871】Re:ありがとうございます 仕事で困っています 03/8/8(金) 14:06 発言
【6875】Re:ありがとうございます INA 03/8/8(金) 14:17 回答
【6876】Re:ありがとうございます INA 03/8/8(金) 14:23 発言
【6877】ありがとうございます 仕事で困っています 03/8/8(金) 14:32 お礼
【6870】Re:ありがとうございます つん 03/8/8(金) 14:04 回答
【6874】Re:ありがとうございます 仕事で困っています 03/8/8(金) 14:14 お礼
【6880】Re:ありがとうございます つん 03/8/8(金) 14:37 回答
【6883】Re:ありがとうございます 仕事で困っています 03/8/8(金) 14:58 お礼
【6885】Re:ありがとうございます Jaka 03/8/8(金) 15:17 発言

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