VBA 除算オーバーフローの回避方法

Question

いつもお世話になっております。
VBA初心者ですが、ご教授頂ければ幸いです。

前提・実現したいこと

業務進捗を確認できるExcelを作成しております。
日付ごとの製品の進捗率を求めたいのですが、
目標値"0"が発生してしまう為、オバーフローとなってしまいます。
その際に"0"を代入したいですがうまくいきません。

(例)下記図の様に、0の時は0としたいです

![

該当のソースコード

即席でsampleコードを作成致しました。
至らないところもありますが、ご確認お願い致します。

dim saisho as long
dim saigo as long
dim result_a as single
dim result_b as single
dim i as long

with ActiveSheet

saisho = .Cells(Rows.Count, 1).End(xlUp).row + 1
saigo = .Cells(Rows.Count, 2).End(xlUp).row

For i = saisho To saigo


'(例)下記からが進捗率の計算です。本来は変数ですが、今回はあらかじめ値を入れてます。

result_a = (5 - (5 - 0)) / 5 '目標値5 実績0の場合 = 0％
result_b = (0 - (0-0)) / 0   '目標値0　実績0 = 0％だがオバーフローとなる

.Cells(i,3).Value = result_a
.Cells(i,4).Value = result_b

next i
end with

試したこと

IFを使用し、目標値0 = 進捗率0という回避はできましたが、
同じような計算式がたくさん繰り返されている為、出来れば避けたいです。

Answer 1

IFを使用し、目標値0 = 進捗率0という回避はできましたが、

同じような計算式がたくさん繰り返されている為、出来れば避けたいです。

関数にすれば少し楽できます。

Public Function zDiv(num1, num2)
    If num2 = 0 Then
        zDiv = 0
    Else
        zDiv = num1 / num2
    End If
End Function


'使用例
Sub Test()
    Dim x, y, result
    
    x = 1
    y = 0

    result = zDiv(x, y)
    MsgBox result
    
End Sub

Comments

[Cabriolet]

hatena19 様

ご教授頂きありがとうございました。
IFを多用せずに、欲しい結果を得ることが出来ました。

これからも宜しくお願い致します。

Answer 2

除算用の関数を作成し、それで処理してはどうでしょう
分母がゼロのときの除算エラーを回避するには？

Comments

[Cabriolet]

radian　様

いつもお世話になっております。
ご教授頂きありがとうございました。

初心者でも分かり内容でした。

Answer 3

これってVBAである必要のある処理なのでしょうか。

Excel関数だけで、仮に B1/A1 を表示するとして、 A1 が 0 の場合は 0 を表示するのであれば、

=IF(A1=0,0,B1/A1)

でできますね。

Comments

[退会済みユーザー]

IFを避けたいと書いてあるのでは

[Cabriolet]

kaz.Suenaga　様　radian様

いつもお世話になっております
ご回答頂きありがとうございました。

本件に関しては、radian様の仰る通り"IF"を多用せずに結果を得たかったです。

当方の質問が見づらい為に、ご迷惑をお掛けしました。
今後は補足等に記載するように致します。

[kaz.Suenaga]

radian さん、ご指摘ありがとうございます。

「IFを多用」の解釈が違ったようですね。
1セル内に1回のIF関数でかけるならいいかと思ったのですが。
というか、VBA内の関数内でIf分岐するのとの差がわからなかったので・・・。
※hatena19さんの回答で =zDiv(B1, A1) とするのと =IF(A1=0,0,B1/A1) と書くので違いはないと考えたということです。

> Cabriolet さん
いえいえ、読み取れなかったわけではないのでお気になさらず。。
ちゃんと質問すればよかったのですが、

- VBA（かつ、非関数）で解決したいのか、
- VBA（セル内で利用できるユーザー関数）で解決したいのか、
- Excel 関数でも構わないのか

で要件が異なりそうだったのですが、既にVBAでの回答は hatena19さんのものでどちらの回答でもある状態でしたので、Excel関数でのものを回答しました。