みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

マクロで、別シートを検索して移動したいです。

マクロ初心者です。

マクロでシート1のA1セルの文字を参照に、別シートにある同じ文字の場所に
移動したいです。

・シート1のA1セルの文字は毎回変わるので、文字参照ではなくセル参照です。

・変わってもシート1のA1セルと別シートにある文字は必ず1つづつです。

よろしくおねがいします。

※Excelは2010

投稿日時 - 2019-05-02 14:16:32

QNo.9612832

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

一例として以下を

Range("A1:G100")
に検索したい範囲を指定してください。
Sub Example()
Dim FC As Range, FRng As Range
Dim FData As Variant

FData = Sheets("シート1").Range("A1").Value
Set FRng = Sheets("別シート").Range("A1:G100")

Set FC = FRng.Find(FData, LookAt:=xlWhole)
If FC Is Nothing Then
MsgBox "'" & FData & "'はありませんでした", vbInformation
Else
Sheets("別シート").Activate
FC.Select
End If
End Sub

投稿日時 - 2019-05-02 16:09:33

あなたにオススメの質問