設定 Workbooks(ThisWorkbook.Name).Worksheets(1).Range("A1:A5").Value = 値 取得 変数 = Workbooks(ThisWorkbook.Name).Worksheets(1).Range("A1:A5").Value