public void method1(){
Class0 obj0 = new Class0();
obj0.method0(Class0.FLAG1);
}
}
// 共通クラス public class Class0 { public static final intFLAG1 = 1; public static final intFLAG2 = 2; public static final intFLAG3 = 3; public static final intFLAG4 = 4;
Public Sub method1() Dim obj0 As New Class0 Call obj0.method0(FLAG1) End Sub
Class0(クラスモジュール)
'' 共通クラス Option Explicit
Public Sub method0(flag As Integer) Select Case flag Case FLAG1 ' 業務処理1 Case FLAG2 ' 業務処理2 Case FLAG3 ' 業務処理3 Case FLAG4 ' 業務処理4 Case Else ' エラー Call Err.Raise(5, , "flag=" & flag) End Select End Sub
Module0(標準モジュール)
Option Explicit
Public Const FLAG1 As Integer = 1 Public Const FLAG2 As Integer = 2 Public Const FLAG3 As Integer = 3 Public Const FLAG4 As Integer = 4
Microsoft 、Windows 、Visual Basic および Excel は米国Microsoft
Corporationの米国およびその他の国における登録商標または商標です。
ここではExcel® をエクセル、Visual Basic® for Applications をVBAと表記する場合があります。
Mac 、Mac OS
、Mac OS
X は米国Apple
Computer,Inc.の登録商標または商標です。
OMG、UML、Unified Modeling Languageは、Object Management Groupの商標または登録商標です。
Sun、Sun Microsystems、サンのロゴマーク、Java、及び、Sun/Solaris/Java に関連するすべての商標およびロゴマークは米国 Sun Microsystems, Inc. の米国およびその他の国における商標または登録商標です。
その他、社名および商品名、システム名称などは、一般に各社の商標または登録商標です。