Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47740 / 76732

←次へ　｜　前へ→


	【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