| |
皆さん，こんにちは。
以下のプログラムで，x,y,zの値をメッセージボックスで表示しているのですが，それをiの値も含めて，一気にテキストファイルに書き込みたいのです。私には全く分かりません。
私は，"できる大辞典"を片手にプログラムを作成している初心者です。
"できる大辞典"には載っていないようで，ネットを探していたら，ここにたどり着きました。宜しくお願い致します。
・
・
・
ReDim min(n)
For i = 1 To n
min(i) = errorsum(i, 0, 0, 0)
For j = 0 To 18
For k = 0 To 18
For l = 0 To 127
If errorsum(i, j, k, l) < min(i) Then
min(i) = errorsum(i, j, k, l)
x = 1.89 * j
y = 1.89 * k
z = 2 * l
End If
Next l
Next k
Next j
MsgBox "Data count & (x,y,z)=" & vbCrLf & i & vbCrLf & x & vbCrLf & y & vbCrLf & z
'MsgBox "min= " & min(i)
Next i
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/2/20(月) 20:18 -
