Excel シート検索 VBA

質問

現在、機器管理としてExcelで管理を行っているのですが、使用履歴等の情報が多い為、機器1台に対して1つのシートを使用しています。
ただ、機器が多くなってきており、現時点でも20シートを使用している状態で、今後も増えていく予定ですので、VBAで対象のシートを探すプログラムを作成して、効率を上げたいと思っております。
ただ、VBAの知識がない為、こちらに質問させて頂きました。
イメージとしては、機器の製造番号を入力して、ボタンを押すと、各シートの製造番号が記載されている指定のセルを検索して、その製造番号のシートにジャンプするプログラムを作りたいと思っています。
VBAに詳しい方、ご教授をお願いいたします。

回答No.3

tom04 · ベストアンサー

こんにちは！
VBAで可能だとは思いますが、具体的なSheetのレイアウトが判らないので
とりあえず流れだけ！

各Sheetの名前は「機器名」となっていて、製品番号は各SheetのA列に半角英数で入っているとします。

インプットボックスに「Sheet名（機器名」」を入力　→　その「機器」の「製品番号」を入力
→　最初に入力したSheet名のA列の製品番号の行を選択
という感じでやってみました。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim k As Long, i As Long, c As Range, sTr1 As String, sTr2 As String, myFlg As Boolean
1:
sTr1 = InputBox("機器名を入力してください。")
For k = 1 To Worksheets.Count
If Worksheets(k).Name = sTr1 Then
myFlg = True
Exit For
End If
Next k
If myFlg = False Then
If MsgBox("入力したシートが存在しません" & vbCrLf & "再入力しますか？", vbYesNo) = vbYes Then
GoTo 1
Else
Exit Sub
End If
Else
sTr2 = InputBox("製造番号を入力してください。")
Set c = Worksheets(sTr1).Range("A:A").Find(what:=StrConv(sTr2, vbNarrow), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
i = c.Row
Worksheets(sTr1).Activate
ActiveSheet.Cells(i, "A").Select
Else
MsgBox "入力した製造番号が存在しません。"
Worksheets(sTr1).Activate
End If
End If
End Sub 'この行まで

※　あくまで流れだけですので、列・行などは実状に合わせる必要があります。m（_ _）m

お礼

お礼が遅れて申し訳ありません。
お陰様で思っているようなプログラムが組めました。
ありがとうございました。

回答No.2

MSZ006

ちょっとややこしいですが・・・。

製造番号は各シートの【A2】セルに入っているものとします。（コード中、２カ所に出てきます。実際にあわせて変更してください）
ユーザーフォームを作成し、そこにリストボックスとコマンドボタンを配置してください。
（リストボックスに製造番号を表示します。コマンドボタンはフォームを閉じるボタンです。）
下記コードをフォームモジュールに入力してください。
--------

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Worksheets(Val(ListBox1.List(ListBox1.ListIndex, 1))).Activate

End Sub

Public Sub UserForm_Initialize()
Dim Ws As Worksheet
Dim i As Long

i = 1
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "50;0"
ListBox1.Clear
For Each Ws In Worksheets
ListBox1.AddItem Ws.Range("A2")
ListBox1.List(ListBox1.ListCount - 1, 1) = i
i = i + 1
Next

End Sub

--------
次に、標準モジュールを作成し、そこに下記コードを入力してください。
--------

Sub Auto_Open()
Load UserForm1
UserForm1.Show vbModeless

End Sub

---------
次に、ThisWorkbookモジュールに下記コードを入力してください。
----------

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call UserForm1.UserForm_Initialize
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target = Range("A2") Then
Call UserForm1.UserForm_Initialize
End If

End Sub

----------

以上で準備は終了です。
一度ブックを閉じて、再度開いてください。
自動的にマクロが実行されてフォームが表示されます。
製造番号をダブルクリックすると対応するシートがアクティブになります。
シートの追加／削除、製造番号の変更も即座に反映します。
フォームを画面の端のほうに表示させたままにしておいて使うと便利だと思います。

お礼

お礼が遅れて申し訳ありません。
お陰様で思っているようなプログラムが組めました。
ありがとうございました。

回答No.1

lv4u

質問の回答にはなりませんが、
個人的には、エクセルで処理する業務としては、限界になってきているように思います。
もちろん、頑張ればこのままエクセルでも処理できるでしょうけど、作業効率が「悪化」するように思います。
このジャンルであるＶｉｓｕａｌＢａｓｉｃとか、アクセスとかＦｉｌｅＭａｋｅｒなど、違うソフトで処理されるほうが良いように思います。

お礼

確かにExcelでは限界があります。
今後は、ほかのソフトも検討して改良していきます。
アドバイスありがとうございました。