[解決済み] Doエラーにならないループ
2022-02-09 23:13:06
質問
Excel VBを使って簡単なニュートン法反復解法を実装しようとしています(VBは使ったことがありません)。
次のようなエラーが発生します。
loop without a Do
というメッセージが表示され、何が間違っているのかがわかりません。
関数の根を求めようとしています。
z^3 - z^2 - (B^2 + B - A)z - A*B
圧縮率と呼ばれるものです。
私のソース MSN
Function zCalculation(ByVal temp As Double, ByVal press As Double) As Double
Dim tempCr As Double
Dim pressCr As Double
Dim A As Double
Dim B As Double
tempCr = temp / 238.5
pressCr = press / 547.424092
A = pressCr / tempCr
A = A / (9 * (2 ^ (1 / 3) - 1))
B = pressCr / tempCr
B = B * (2 ^ (1 / 3) - 1) / 3
Dim zNot As Double
Dim counter As Integer
counter = 0
zNot = 1#
Do
counter = counter + 1
zNot = zNot - (zNot ^ 3 - zNot ^ 2 - (B ^ 2 + B - A) * zNot - A * B) / (3 * zNot ^ 2 - 2 * zNot - (B ^ 2 + B - A))
If counter > 1000 Then
Exit Do
Loop Until eval(zNot, A, B) < 0.000001
zCalculation = zNot
End Function
ブレーク
Function eval(ByVal z As Double, ByVal A As Double, ByVal B As Double) As Double
eval = z ^ 3 - z ^ 2 - (B ^ 2 + B - A) * z - A * B
End Function
解決方法は?
が必要です。
End If
をあなたのコードに追加してください。
関連
-
[解決済み] .docx、.pptxなどの正しいMIMEタイプは何ですか?
-
excel カラーレコードの値を設定する方法
-
[解決済み] エクセルシートにおけるCSVデータの最大行数について
-
[解決済み] どのようにvbaコードで "名前を付けて保存 "を行うには、datestampと私の現在のExcelワークブックを保存するには?
-
[解決済み] "ピボットテーブルのフィールド名が有効ではありません。ピボットテーブルレポートを作成するには、ラベル付き列のリストとして構成されたデータを使用する必要があります」エラー
-
[解決済み] Microsoft Officeをインストールせずに、C#でExcel(.XLSおよび.XLSX)ファイルを作成するにはどうすればよいですか?
-
[解決済み】VBAでフォルダー内のファイルをループ処理?
-
[解決済み] VBAを使わずにExcelで文字列の逆引き検索を行うには?
-
[解決済み] Excel用CSVファイルの生成、値の中に改行を入れるには?
-
[解決済み] 列番号から文字に変換する関数?
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み】「ワークシートクラスの貼り付けメソッドに失敗しました」が時々発生するのはなぜですか?
-
[解決済み] VBAでRangeクラスのSelectメソッドに失敗する
-
[解決済み] Excelで列のすべてのセルに同じテキストを追加する
-
[解決済み] Excel - 複数列の SUMIFS
-
[解決済み] "数式で隣接するセルが省略される "問題の回避策
-
[解決済み] Application.CalculateとApplication.CalculateFullの違いは何ですか?
-
[解決済み] Excelの数式で二重引用符を含む文字列を作成する方法は?
-
[解決済み】VBAの関数から結果を返す方法
-
[解決済み] VBAを使わずにExcelで文字列の逆引き検索を行うには?
-
[解決済み] 一意な値を数える簡単なピボットテーブル