Sub CreateLineChart() ' データ範囲を配列に格納 Dim xData() As Variant ' X軸のデータ Dim yData() As Variant ' Y軸のデータ Dim yData2() As Variant 'Y軸のデータ2 ' X軸のデータを設定 xData = Sheets("Sheet1").Range("A1:J1").Value ' 適切な範囲を…

Sub StoreRangesOnSheetToArray() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更してください ' データ範囲1を指定 Dim range1 As Range Set range1 = ws.Range("A1:A5") ' データ範囲を適宜変更してください ' データ…

Sub CalculateAverage() ' データの範囲を指定 Dim dataRange As Range Set dataRange = Range("A1:A10") ' データ範囲を適宜変更してください ' 平均値を計算 Dim average As Double average = WorksheetFunction.Average(dataRange) ' 結果を表示 MsgBox "…

Sub CalculateVarianceAndStandardDeviation() ' データの配列 Dim data() As Double = {2, 4, 6, 8, 10} ' 平均値を計算 Dim average As Double = data.Average() ' 各データの差の二乗の合計を計算 Dim sumOfSquaredDifferences As Double = 0 For Each va…