もちろん可能です。 具体的にどういったシステムなのかわかりませんが、とりあえず作業を1つずつ分解して考えます。 手作業でやる場合どうやるのか、そしてそれを「マクロの記録」で記録してみてある程度どのようなオブジェクトとプロパティとメソッドが必要なのか把握、それを参考にプロシージャを作るといいと思います。

@@macro-chan 返信ありがとうございます。無知なりに試行錯誤してみます。

Excel全般で言うと機密性の高いシートを非表示にするとかですかね。 VBAだけで言うと「作業用シート」として一時的に非表示で挿入するなどがあります。

ご視聴とご質問ありがとうございます。 ただすみません、ちょっと質問の意味がわからなかったです。 ＞ワークシートの名前が月単位で変わるブック（●月一覧表.xlsみたいなかんじです） 変わるのはワークシートの名前なのか、ブックの名前なのかどっちなんでしょうか？ ＞名前が変わるExcelをアクティブシートにしたい アクティブシートじゃなくてアクティブブックにしたいという意味ですか？ あと、ブックが複数あるのか2個なのか1個なのかなど状況がわからないです。 実現したいことを具体的に書いて頂ければアドバイスできるのかなと思います😊

@@macro-chan ほんとですね！読み返して支離滅裂なことに気が付きました ファンクションブイルックアップ を使った機材配置のマクロを作りたいです マクロ元のシート1にテーブルがあります テーブルには社員ナンバー、名前、使って欲しい機材番号のテーブルがあります もう一つブックを開いきます このブックには１日から３１日までシートがあります １シートずつにその日に出勤する人の社員ナンバーと名前が入っています ファンクションブイルックアップで、全シート、その日の出勤者が使う機材を配置したいです Sub 配置() Dim rc As Long Dim i As Long: i = 1 Dim j As Long: j = 1 Dim sh As Long: sh = 1 Dim ws As Worksheet Dim SearchKey As Range Dim SearchRange As Range Dim OutputRange As Range rc = MsgBox("対象ファイルを開いていますか？", vbYesNo) If rc = vbYes Then MsgBox "配置を開始します" For i = 1 To Worksheets.Count Worksheets(i).Range("l3:l38").ClearContents Next On Error Resume Next 'Application.ScreenUpdating = False For Each ws In Worksheets ws.Activate For j = 1 To SearchKey.Rows.Count Set SearchKey = Workbooks(1).Worksheets(1).Range("A2:C100") Set SearchRange = Workbooks(2).Worksheets(sh).Range("C3:l100") Set OutputRange = Workbooks(2).Worksheets(sh).Range("L3:L100") OutputRange(j, 1) = WorksheetFunction.VLookup(SearchKey(j, 1), SearchRange, 3, False) Next sh = sh + 1 Next ws 'Application.ScreenUpdating = True Else MsgBox "終了します" End If End Sub ここで、ファンクションブイルックアップ が上手くいっていないことに気が付きました。 これはアクティブシートの切り替えが出来てないことが原因だと考えたので、 アクティブシートにするためにはディレクトリ関数を使うのでしょうか？という質問になりました。 初めてマクロの記録以外のコードを書くくらいの経験値なので、そもそも見当違いしていたらお恥ずかしいのですが、このチャンネルを見るようになってから、自分で書けるようになりたいと本気で思っています！よろしくお願いします！

セルの配置関係とかよくわからないので勝手に想定して作りましたが、おおよそこんな感じになるかと思います。 ・VLOOKUPで機材を抽出したいブックをBookX ・マクロ記載ブックにあるテーブル名はテーブル1 ・BookXの表はA1にあり1行目が見出し Sub 配置() 'テーブルの検索範囲をSearchRange変数に代入 Dim SearchRange As Range ThisWorkbook.Activate Set SearchRange = Range("テーブル1[[名前]:[機材番号]]") '使用機材割当表ブックを開きBookX変数に代入 Dim BookX As Workbook, pass As String pass = "ここに使用機材割当表ブックのパスを記入" If Dir(pass) = "" Then MsgBox "ブックが存在しません" Exit Sub Else Set BookX = Workbooks.Open(pass) MsgBox "配置を開始します" End If '割当 Dim i As Long, j As Long BookX.Activate For i = 1 To 31 Sheets(i).Activate j = 2 Do While Cells(j, 1) "" Cells(j, 3) = WorksheetFunction.VLookup(Cells(j, 2), SearchRange, 2, False) j = j + 1 Loop Next i End Sub

@@macro-chan 丁寧に私の質問に付き合ってくださりありがとうございます 模範解答のコードを読んでみて、自分で書いたコードがすごく回り道してることに気付きました… 頭を悩ませていたブックをアクティブにするという部分も、ディレクトリ関数を先頭に持ってくるという発想がなかったので目から鱗でした🥺🥺 基礎講座を繰り返し見て、まずは自力で完成させてみるのが小さな目標です！こちらのマクロちゃんねるも、PC活用ちゃんねるも応援しています！いつも独学を後押ししてもらってます🥰ありがとうございました！