エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
linest関数に配列を渡す
それぞれの配列をセル範囲に例えると a(1 To 3) は A1:C1...1行3列 b(1 To 3, 1 To 2) は A1:... それぞれの配列をセル範囲に例えると a(1 To 3) は A1:C1...1行3列 b(1 To 3, 1 To 2) は A1:B3...3行2列 これを以下のように修正してxとyを対応させてあげればいいですね。 Sub test1() Dim a(1 To 3, 1 To 1) As Variant Dim b(1 To 3, 1 To 2) As Variant Dim c a(1, 1) = 1 a(2, 1) = 3 a(3, 1) = 2 b(1, 1) = 4 b(2, 1) = 5 b(3, 1) = 6 b(1, 2) = 12 b(2, 2) = 15 b(3, 2) = 19 c = WorksheetFunction.LinEst(a, b, True, True) MsgBox "y= " & c(1, 2) & " *x1+ " & c(1, 1) &