今だけ人気マンガ100円レンタル特集♪

Excelにて

例えばsheet1~sheet10という10枚があって、sheet1のA1に300と書いてあったとします。
sheet2~sheet 10のA1に数字が入っており、例えばsheet6のA1に300という数字が入っていた場合、sheet2~sheet10のA1を検索し、一致したsheet6にジャンプすることが出きるマクロ、関数があればご教授頂けると嬉しいです。

質問者からの補足コメント

  • ありがとうございます!!
    追加で申し訳ないのですが、この検索を部分一致にしたいのですがご助言願えないでしょうか?

    No.1の回答に寄せられた補足コメントです。 補足日時:2020/08/26 16:43

A 回答 (2件)

No.1です。



>部分一致にしたいのですが・・・
とは、各シートのA1セルに「Sheet1」のA1セルのデータ(←文字列?)が含まれていたら
というコトでよいのですかね。

そうであれば・・・
↓のコードにしてみてください。

Sub Sample2()
 Dim k As Long

  For k = 2 To Worksheets.Count
   With Worksheets(k)
    If InStr(.Range("A1"), Worksheets("Sheet1").Range("A1")) > 0 Then
     .Activate
     .Range("A1").Select
     Exit For
    End If
   End With
  Next k
End Sub

こんなんではどうですか?m(_ _)m
    • good
    • 0

こんにちは!



「Sheet1」はシート見出しの一番左側にあるとします。
一例です。
標準モジュールにしてください。

Sub Sample1()
 Dim k As Long
 Dim wS As Worksheet

  For k = 2 To Worksheets.Count
   Set wS = Worksheets(k)
    If wS.Range("A1") = Worksheets("Sheet1").Range("A1") Then
     wS.Activate
     wS.Range("A1").Select
     Exit For
    End If
  Next k
End Sub

※ 該当データが複数シートにあっても、最初にヒットしたシートのA1セルが選択されます。

※ 細かいエラー処理が必要だとは思いますが、
まずはこの程度で・・・m(_ _)m
この回答への補足あり
    • good
    • 0

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

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


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

人気Q&Aランキング