【Excel】VBAでMOD関数を使うには[]で関数を閉じるだけ

2022 9/09

2020年1月2日 2022年9月9日

Excelシート関数としてMOD関数はあるがVBAではMOD関数がない

[　]で囲むとExcelシート関数が使える

EXCELシート関数と同じ使い方（セル値を計算する場合）

Sub myMOD()
Dim RET As Variant
    Sheets("sheet1").Select
    RET = [mod(A1,B1)]      'ここでのA1,B1はsheet1のセルを指す
    MsgBox RET
End Sub

Excelシート（Sheet1）でＡ１に３、Ｂ１に２と入力しＣ１に=mod(a1,b1)と入力した値Ｃ１と同じ答えが返ってくる。セルのＡ１、Ｂ１の数値を変更した後にmyMODを動かすと答えも変化する。

EXCELシート関数と同じ使い方（正の数を入れて計算する場合）

Sub myMOD2()
Dim RET As Variant
    RET = [mod(3,2)]         '数値を入れてもＯＫ！
    MsgBox RET
End Sub

上記と違い固定値の正の数を入力しているのでmyMOD2を動かすと答えはいつも１

Excelシート関数を使うと難しい数式を考えなくてよい

計算結果をテストする必要がほとんどない
ほぼ全てのExcel関数を使うことができる（引数設定だけ考えればよい）

汎用的に使いたいならプログラムは自作した方が早い

VBA関数として作成する：Function myMOD3

Function myMOD3(a1 As Variant, b1 As Variant) 'As Variant
    'ここでのa1,b1はvbaでの変数を指す（セルではない）
    myMOD3 = -1 '判定不能
    If Not IsNumeric(a1) Then Exit Function
    If Not IsNumeric(b1) Then Exit Function
    If a1 <= 0 Then Exit Function
    If b1 <= 0 Then Exit Function
    '計算結果の余りを返す
    myMOD3 = a1 - (Int(a1 / b1) * b1)
End Function

Sub test_mymod3()
Dim RET As Variant
    RET = myMOD3(10, 3)
    MsgBox RET
End Sub

私は自作だけで良いのでmyMOD3を使っている（これだけなので実際はmyMODという名前）