• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセルにて、3次スプラインのマクロを組みました。 )

エクセルにて、3次スプラインのマクロを組みました。

このQ&Aのポイント
  • エクセルのVBAマクロを使用して、3次スプラインの補間を実装しました。
  • 結果が一部しか表示されない問題が発生しています。
  • 間違い箇所を特定するため、マクロのコードを公開します。

質問者が選んだベストアンサー

  • ベストアンサー
  • nag0720
  • ベストアンサー率58% (1093/1860)
回答No.1

3次スプラインの計算式は確認していないので、それは置いておくとして、 結果がところどころしか表示されない原因は、最後のほうの If x < dataX(i) Then の部分ではないでしょうか。 この方法では、「If x < dataX(i) Then」を満たさなければ、そのxの行は表示されません。 次のようにしてはどうですか。 i = 1 For x = 0 To 720 Do Until x < dataX(i) i = i + 1 If i > data_count Then Exit Do Loop If i > data_count Then Exit For yy1 = ・・・・・ ・・・・・・・ ThisWorkbook.Sheets("3次スプライン").Cells(x + 4, 5) = y Next x

ddtqp
質問者

お礼

バッチリでした! ありがとうございます。

関連するQ&A

専門家に質問してみよう