Excel VBA質問箱 IV

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

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


47746 / 76738 ←次へ | 前へ→

【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
0 hits

【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 お礼

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