プロが教える店舗&オフィスのセキュリティ対策術

VBAについて質問です。
例えばSheet1のA1セルに「2016/3/7」という値が入力されているとして、そのセルからSheet2にある同じ値(2016/3/7)が入力されているセルに移動するにはどのようにすればよいでしょうか。よろしくお願いします。

gooドクター

A 回答 (1件)

こんな感じで如何でしょうか。



Sub aaa()
Dim r As Range
Set r = Worksheets("Sheet2").Cells.Find(Worksheets("Sheet1").Range("A1").Value)
If Not r Is Nothing Then
Worksheets("Sheet2").Select
r.Select
Else
MsgBox "見つかりませんでした。", vbExclamation
End If

End Sub
    • good
    • 5
この回答へのお礼

早々に有難うございます!まさに求めていたやり方でした。

お礼日時:2016/03/06 20:16

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング