Excel VBA質問箱 IV

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

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


8332 / 13644 ツリー ←次へ | 前へ→

【33918】お願いします 迷える子羊(T_T) 06/1/23(月) 19:42 質問[未読]
【33919】Re:お願いします MARBIN 06/1/23(月) 19:47 発言[未読]
【33942】Re:お願いします やっちん 06/1/24(火) 8:21 発言[未読]
【33976】Re:お願いします 迷える子羊(T_T) 06/1/24(火) 15:12 お礼[未読]

【33918】お願いします
質問  迷える子羊(T_T)  - 06/1/23(月) 19:42 -

引用なし
パスワード
   はじめまして。
友人に、ここでExcel質問したら親切に教えてくれるよと言われて来たものです。

Exel VBAでプログラム作成中に詰まってしまって、調べても分からなかったので質問させて下さい。
今、Findメソッドで検索のマクロを作っているのですが範囲を指定して検索をかけるというマクロの書き方がわかりません…(T_T)どなたかお教え頂けないでしょうか??ぜひ、よろしくお願いします。

(例)
A4〜A1289のセル範囲に入っている任意の文字を複数検索という感じです。

【33919】Re:お願いします
発言  MARBIN  - 06/1/23(月) 19:47 -

引用なし
パスワード
   ↓は参考になりませんでしたか?

Find
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=33561;id=excel

【33942】Re:お願いします
発言  やっちん  - 06/1/24(火) 8:21 -

引用なし
パスワード
   ▼迷える子羊(T_T) さん:
ヘルプの使用例をまるまるコピーしてきました。

使用例
次の使用例は、シート 1 のセル範囲 A1:A500 で、値に 2 が含まれているセルを検索し、その値を 5 に変更します。

With Worksheets(1).Range("a1:a500")
  Set c = .Find(2, lookin:=xlValues)
  If Not c Is Nothing Then
    firstAddress = c.Address
    Do
      c.Value = 5
      Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
  End If
End With

【33976】Re:お願いします
お礼  迷える子羊(T_T)  - 06/1/24(火) 15:12 -

引用なし
パスワード
   >やっちん さんへ

>MARBIN さんへ

ありがとうございました^^おかげさまでいいプログラムが書け、ちゃんと実行できました。本当に感謝感激です(>人<)

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