' 部署名をキーとしたDictionaryデータを作成する' 引数:EmployeeClassのCollection' 参照設定できた場合FunctionCreateDepartmentDictionary(ByValemployeeListAsCollection)AsDictionaryDimemployeeDataAsEmployeeClassDimlistAsCollectionDimdicAsDictionary' 参照設定できた場合Setdic=NewDictionary' 参照設定できた場合ForEach...
Public Function HPC_Initialize() Range("A:A").Value = "" SentRecords = 0 RcvRecords = 0 StartTime = Timer CalculationComplete = False UpdateStatus End Function 注: ここで行っていることは、(1) 2 つのカウンターをクリアし、0 に設定することです。(2) "StartTime" 値を現在の時刻...
End Sub、End Function または End Property 以降には、コメントのみが記述できます クラス モジュールのパブリック プロシージャのパラメーターまたは戻り値、またはパブリックのユーザー定義型のフィールドとして使用できるのは、パブリック オブジェクト モジュールで定義されたパ...
Sub SJIS判定() Dim i As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 4).Value = Asc(Cells(i, 1).Value) If isSJIS(Cells(i, 1).Value) Then Cells(i, 6).Value = "Shift_JIS" Else Cells(i, 6).Value = "環境依存" End If Next End Sub Function isSJIS(...
Sub CallFunction() Dim Ret As Integer Ret = MyFunction(3, "test") End Sub Function MyFunction(N As Integer, T As String) As String MyFunction = T End Function ここでミスマッチエラーが発生する可能性はいくつかあります。戻り値変数Retは整数として定義されていますが、関数は文字列を...
Public Function filterR(ByRef data As Variant, ByRef flg As Variant) As Variant 下は整数列から3の倍数だけ抽出する単純な例ですが、フラグを作るのに関数合成を使っています。 a = iota(0, 30) ' 0から30までの整数列 f = p_equal(p_mod(, 3), 0) ' (x Mod 3) = 0 を表す関数...
Sub Send_Mail() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .to = "test@test.com" .Subject = "Test Email" .Body = "Message Body" .Attachments.Add ActiveWorkbook.FullName .Display End ...
'受け取った文字列のカンマをコロンに置き換える 'ダブルクォーテーションで囲まれているカンマは置き換えない Function replaceColon(ByVal str As String) As String Dim strTemp As String Dim quotCount As Long Dim l As Long For l = 1 To Len(str) 'strの長さだけ繰り返す strTemp ...
VB コピー Sub Workbook_Open() Dim comAddIn As Office.comAddIn ... 'Set reference to COM add-in by using its ProgId property value. Set comAddIn = Application.COMAddIns("RhythmOfTheBusiness.Connect") comAddIn.Connect = True ... End Sub ...
Sub CalculateAmount() Dim Quantity Quantity = Cells(2, 2).Value Dim UnitPrice UnitPrice = Cells(2, 2).Value Cells(2, 4).Value = Quantity * UnitPrice End Subそこで、8行目に「ブレークポイント」を設定してみます。操作方法指定した行で、プログラムの実行をいったん止めることができ...