Sub oopen1()
    'このマクロの入ったファイル以外すべて閉じてから実行すること。
    Workbooks.Open Filename:="C:￥Users￥③共通分をQ2からQ4へ.xls" '[1]
End Sub
Sub oopen2()
    'このマクロの入ったファイル以外すべて閉じてから実行すること。
    Workbooks.Open Filename:="C:￥Users￥yuko￥③共通分をQ2からQ4へ.xls" '[2]
End Sub
Sub oopen3()
    'このマクロの入ったファイル以外すべて閉じてから実行すること。
    Workbooks.Open Filename:="C:￥Users￥yuko￥Desktop2022.4 R4.4 予実管理・資金繰り管理　相談事項￥③共通分をQ2からQ4へ.xls"  '[3]
End Sub
Sub oopen4()
    'このマクロの入ったファイル以外すべて閉じてから実行すること。
    Workbooks.Open Filename:="C:￥Users￥yuko￥Desktop2022.4 R4.4 予実管理・資金繰り管理　相談事項￥2022年度予算￥③共通分をQ2からQ4へ.xls"  '[4]
End Sub

Sub tenki1()
    Workbooks("【FS部】2022年度予算編成入力シート(FS部)REV2経企調整rev.2.xls").Select '[1]ここでひっかかるなら、当該ファイルが開かれていない/ファイル名が間違っている等
    Workbooks("【FS部】2022年度予算編成入力シート(FS部)REV2経企調整rev.2.xls").Worksheets("予算入力シート").Tab.Color = vbRed '[2]ここでひっかかるなら、当該ファイルは存在するがシート名が間違っている等
    Workbooks("【FS部】2022年度予算編成入力シート(FS部)REV2経企調整rev.2.xls").Worksheets("予算入力シート").Range("N11").Value = 1 '[3]ここでひっかかるなら、当該セルが存在しないとか(まああり得ませんが)
End Sub

' ThisWorkbook.Path は後ろに "\" を含まないので注意！

Sub open_this_folder_file()
    'ThisWorkbook と同じフォルダにあるファイルを開く
    Dim target_filename As String
    target_filename = "file_to_open.xlsx"
    
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & target_filename
End Sub

Sub open_sub_folder_file()
    'ThisWorkbook から見て下位のフォルダにあるファイルを開く
    Dim target_file_name As String
    target_file_name = "file_to_open_in_subfolder.xlsx"
    
    Workbooks.Open Filename:=ThisWorkbook.Path & "\subfolder\" & target_file_name
End Sub

Sub open_this_folder_file_without_extension()
    '拡張子を省略して書くこともできます
    '拡張子が違うだけでほぼ同一名のファイルがある場合を考えると、
    '良いコードと言えるというと微妙ですが。
    Dim target_filename As String
    target_filename = "file_to_open"
    
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & target_filename
End Sub

Sub open_sub_folder_file_without_extension()
    '拡張子を省略して書くこともできます
    '拡張子が違うだけでほぼ同一名のファイルがある場合を考えると、
    '良いコードと言えるというと微妙ですが。
    Dim target_file_name As String
    target_file_name = "file_to_open_in_subfolder"
    
    Workbooks.Open Filename:=ThisWorkbook.Path & "\subfolder\" & target_file_name
End Sub

Sub formula_copy_sample()
    '以下を実行したあと、セルC1, C4, C7に入っている式の内容を確認してみてください
    '.Formula, .FormulaR1C1 については、詳しくは発展編1で扱います
    Range("A1").Value = 1
    Range("A2").Value = 2
    
    Range("A4").Value = 11
    Range("A5").Value = 12
    
    Range("A7").Value = 101
    Range("A8").Value = 102
    
    Range("C1").Value = "=Sum(A1:A2)" '式の埋め込みは.valueでできる(.formulaでも可)
    
    Range("C4").Formula = Range("C1").Formula '式をそのままコピー
    
    Range("C7").Formula = Range("C1").FormulaR1C1 '式を相対参照でコピー
End Sub

Sub formula_copy_sample()
>     '以下を実行したあと、セルC1, C4, C7に入っている式の内容を確認してみてください
>     '.Formula, .FormulaR1C1 については、詳しくは発展編1で扱います
>     Range("A1").Value = 1
>     Range("A2").Value = 2
>     
>     Range("A4").Value = 11
>     Range("A5").Value = 12
>     
>     Range("A7").Value = 101
>     Range("A8").Value = 102
>     
>     Range("C1").Value = "=Sum(A1:A2)" '式の埋め込みは.valueでできる(.formulaでも可)
>     
>     Range("C4").Formula = Range("C1").Formula '式をそのままコピー
>     
>     Range("C7").Formula = Range("C1").FormulaR1C1 '式を相対参照でコピー
> End Sub

Sub Sample2()
    Dim buf As String
    buf = Dir("C:\Users\ユーザー名\Desktop\フォルダ名\*.xlsx")
       Do While Len(buf) > 0
        Debug.Print buf
        buf = Dir()
    Loop
End Sub

Sub cell_choice2()

Worksheets("物資内訳書・製造工程表（2020新様式）").Activate
Worksheets("物資内訳書・製造工程表（2020新様式）").Range("C18:G18").Select
'指定したシートのセルを選択する
macro6

End Sub

Sub macro6()
   Dim myRange As Range
   Dim keyWord1 As String, keyWord2 As String
    Dim bool As Boolean

    Set myRange = Range("C18:G18")
   keyWord1 = "東京都千代田区"
    keyWord2 = "東京都新宿区"
   bool = myRange.Replace(keyWord1, keyWord2, LookAt:=xlWhole)
End Sub

Sub ThisWorkbookPathSample()
    Dim sPath
    sPath = ThisWorkbook.Path & "\piyo.xlsm"
    Workbooks.Open Filename:=sPath
End Sub
Sub FullPathSample()
    Dim sPath
    sPath = "C:\hoge\piyo.xlsm"
    Workbooks.Open Filename:=sPath
End Sub

Sub ThisWorkbookPathSample()
    Dim sPath
    sPath = ThisWorkbook.Path & "\mokyu\uni.xlsm"
    Workbooks.Open Filename:=sPath
End Sub
Sub FullPathSample()
    Dim sPath
    sPath = "C:\hoge\mokyu\uni.xlsm"
    Workbooks.Open Filename:=sPath
End Sub

Sub tenki()
'    Workbooks("main.xls").Worksheets("sheet1").Range("A3").Value = Workbooks("tenki.xls").Worksheets("sheet1").Range("B3").Value
    Workbooks("main.xlsm").Worksheets("sheet1").Range("A3").Value = Workbooks("tenki.xlsm").Worksheets("sheet1").Range("B3").Value
End Sub

Sub toromatome()
    Dim i
    For i = 2 To Worksheets.Count '←発展編で扱いますが、アクティブブック内のシートの数を取得できます。
        Worksheets(1).Range("a" & i + 1).Value = i - 1
        Worksheets(1).Range("b" & i + 1).Value = Worksheets(i).Range("f3").Value
        Worksheets(1).Range("c" & i + 1).Value = Worksheets(i).Range("f7").Value
        Worksheets(1).Range("d" & i + 1).Value = Worksheets(i).Range("f11").Value
        '...
    Next
End Sub