VBAでは、メソッドのオーバーロードができなかった

やってみた。

準備

標準モジュールのコード

Private Sub makeUserSick()                       '……(1)
  MsgBox "    　＿＿＿＿＿＿＿＿_" & vbCrLf & _
         "　／　　　　　　　　  ＼ " & vbCrLf & _
         "／　／・＼　　／・＼　  　＼" & vbCrLf & _
         "|　　￣￣　　　￣　　 　　|　ち～んｗ" & vbCrLf & _
         "|　　　　（＿人＿）　　 　|" & vbCrLf & _
         "|　　　　　＼ 　   |   　    　 |" & vbCrLf & _
         "＼　　　　 　＼＿|　　   ／"
End Sub

Private Sub makeUserSick(ByVal msg As String)               '……(2)
  MsgBox msg & vbCrLf & _
         "    　＿＿＿＿＿＿＿＿_" & vbCrLf & _
         "　／　　　　　　　　  ＼ " & vbCrLf & _
         "／　／・＼　　／・＼　  　＼" & vbCrLf & _
         "|　　￣￣　　　￣　　 　　|　ち～んｗ" & vbCrLf & _
         "|　　　　（＿人＿）　　 　|" & vbCrLf & _
         "|　　　　　＼ 　   |   　    　 |" & vbCrLf & _
         "＼　　　　 　＼＿|　　   ／"
End Sub

説明

• (1)の「makeUserSick」プロシージャは、引数なし。
• (2)の「makeUserSick」プロシージャは、引数「msg」がある。

同じプロシージャ名で、違うのは引数の構成だけなので、これができるんなら、メソッドのオーバーロードが可能、ということになる。

実行

では、実行してみよう。

実行用のコード

Sub test()
  Call makeUserSick                     '……(1)
  Call makeUserSick("アホｗｗｗ")       '……(2)
End Sub

コードの説明

• (1)は、引数なしで呼び出し。
• (2)は、引数として文字列「アホｗｗｗ」を渡して呼び出し。

果たして、実行結果は……？？？

実行結果

実行以前にコンパイルエラーｗｗｗ

結論

VBAでは、メソッドのオーバーロードはできません。

え？　当たり前、ですか？

そら知らなんだｗ　サーセンｗｗｗ

@akashi_keirin on Twitter