設定 Workbooks(ThisWorkbook.Name).Worksheets(1).Cells(row, column).Value = 値 取得 変数 = Workbooks(ThisWorkbook.Name).Worksheets(1).Cells(row, column).Value