| |
どもども
>で試してみた所、検索する事ができました！
>どうもありがとうございました。
良かったです(^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)・・これで、空白セルを取得してます。
もしない場合は、これだとエラーになるので、エラー処理が必要ですわ。
|
|
つん
- 03/8/8(金) 14:04 -
