Excel VBAで開いているすべてのブックのシートのA1セルに同じ値を設定する方法


Excel VBAで開いているすべてのブックのシートのA1セルに同じ値を設定する方法


Excel VBAを使って、開いているすべてのブックのシートのA1セルに同じ値を設定する方法を紹介します。この操作は、複数のブックを一括で処理したい場合に便利です。


ステップバイステップの手順

1. 新しいマクロを作成:

   - Excelを開いて、新しいワークブックを作成します。

   - 「開発」タブを表示し、「Visual Basic」をクリックしてVBAエディタを開きます。

   - 「挿入」メニューから「モジュール」を選択して新しいモジュールを作成します。


2. コードを記述:

   - 以下のコードを新しいモジュールに貼り付けます。


    Sub 開いているブックに繰り返し処理()

        Dim WB As Workbook

        Dim WS As Worksheet

        

        ' 開いているすべてのブックに対して処理を実行

        For Each WB In Workbooks

            ' シート1を指定(必要に応じて変更)

            Set WS = WB.Sheets(1)

            

            ' A1セルに100を設定(100の値を必要に応じて変更)

            WS.Range("A1").Value = 100

        Next WB

    End Sub


3. 実行:

   - マクロを実行するには、VBAエディタを閉じてExcelに戻ります。

   - 「開発」タブで「マクロ」をクリックし、`開いているブックに繰り返し処理` を選択して実行します。


 これで、開いているすべてのブックのシートのA1セルに同じ値が設定されます。ぜひお試しください!

 このブログ記事がExcel VBA初心者の方にとって役立つことを願っています。


今日のメモ

 エヌビディアもマイクロソフトと同様に株価が上昇していますが、板を見たところ、利確勢で売りが優勢のような感じがします。


マイクロソフト

 株価 今日421.59ドル/株(アメリカ時間 5/15 11時47分時点)
    昨日416.56ドル/株(アメリカ時間 5/14 16時00分時点)
 OVER累計    4250
 UNDER累計  2641
 株価は上昇していますが、板を見た時は利確勢で売りが優勢のような感じでした。

エヌビディア

 株価 今日943.58ドル/株(アメリカ時間 5/15 11時51分時点)
    昨日913.56ドル/株(アメリカ時間 5/14 16時00分時点)
 OVER累計   2830
 UNDER累計 1097
 マイクロソフトと同様、株価は上昇していますが、板を見た時は利確勢で売りが優勢のような感じでした。