データの平均値の計算について (ID:88497)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 書いてるうちに投稿されてました。 色々有りますが、スピードの点から intDzNo = FreeFile Open strAveFName For Append As #intDzNo Print #intDzNo, Round(dobDat1, 3) & "," & Round(dobDat2, 3) & "," & dobDat3 Close #intDzNo これはいただけません、その都度Open、Closeをやっていたのでは時間がかかります。 Open、Closeは呼び出し元で行い、値を返して書き込むか、 ファイル番号を引数にして渡し、書き込みだけを行えばAppendモードで書き込む 必要はないのでは。 それと Public Function CalcG(Data As String, strFname As String, intMvAv As Integer) As String このstrFname As String や intMvAv As Integeそれと Function MvAve1(ByVal Value As Double, ByVal intMvAv as integer) As Double intMvAv はテキストボックスから作ったものですから 引数で渡す必要はありません、まあスピードにはあまり影響はありませんが。 CSVファイルは普通はSplit関数で個別データーを取得します。 まあこれは今のままでもいいのですが。。。 全体に配列を使えばもっとすっきりとすると思いますが、スピードは変わりません。