Excel VBA質問箱 IV

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

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


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

12166 / 76734

←次へ　｜　前へ→


	【70094】セルの移動

質問します - 11/10/14(金) 18:23 -


	引用なし

	パスワード

B3に指定した内容と一致したら緑色をＴけるの処理を
しています。
複数検索される可能性があるので、処理が終了したら
最初に見つかった箇所にカーソルを移動させ、その行
を表示させたいのですが・・・

どなたか教えてください。

Option Explicit
'*----------------------------*
'*　　　　　　　　　　　　　　*
'* 検索処理　　取引先コード　 *
'* 緑　　　　　　　　　　　　 *
'*----------------------------*

Sub Find_02()
　Dim c As Object
　Dim myKey As String, fAddress As String
　Dim WK As String
　　　
Application.ScreenUpdating = False

Application.DisplayAlerts = False
　　　
　　Windows("ああ.xls").Activate
　　Sheets("１").Select
　　Range("B3").Select
　　myKey = ActiveCell.FormulaR1C1
　　
　　'●前回の色をクリアーする
　　Range("A10:D300").Select
　　Selection.Interior.ColorIndex = xlNone
　　Range("B11").Select

　　　
　　　With Worksheets(1).Range("B10:B300")
　　　　　 Set c = .Find(What:=myKey, LookIn:=xlValues, lookat:=xlWhole, _
　　　　　　　　　　　　　　SearchOrder:=xlByColumns, MatchByte:=False)
　　　　　If Not c Is Nothing Then
　　　　　　　fAddress = c.Address
　　　　　　　
　　　　　　　WK = fAddress
　　　　　　　
　　　　　　　Do
　　　　　　　　　c.Interior.ColorIndex = 4 '明るい緑
　　　　　　　　　Set c = .FindNext(c)
　　　　　　　　　　　If c.Address = fAddress Then Exit Do
　　　　　　　Loop
　　　　　End If
　　　End With

　　　　Application.ScreenUpdating = True

End Sub

5 hits

▼

【70094】セルの移動 質問します 11/10/14(金) 18:23

≪