Excel VBA スタンダード・ワークシート関数について

Excel VBAのワークシート関数、WorksheetFunctionを使用すると、Excelのワークシート関数をVBAで呼び出すことができます。

Excel VBA WorksheetFunction.Sum

Sub SumFunctionExample()
    Dim sumResult As Double
    
    ' 数値の合計を計算するためのセル範囲を指定してSum関数を呼び出す例
    sumResult = WorksheetFunction.Sum(Range("A1:A10")) ' セル範囲A1からA10までの合計を計算
    
    ' 合計を表示
    MsgBox "合計値は: " & sumResult
End Sub

WorksheetFunction.Sumを使用して、セル範囲A1からA10までの数値の合計を計算しています。計算された合計値は MsgBox を使用して表示されます。セル範囲内に数値以外の値がある場合、それらの値は無視されます。

Excel VBA WorksheetFunction.CountIf

Sub CountIfFunctionExample()
    Dim countResult As Long
    
    ' 条件に一致するセルの数をカウントするための範囲と条件を指定してCountIf関数を呼び出す例
    countResult = WorksheetFunction.CountIf(Range("A1:A10"), ">50") ' A1からA10のセル範囲で50より大きいセルの数をカウント
    
    ' 結果を表示
    MsgBox "条件に一致するセルの数: " & countResult
End Sub

WorksheetFunction.CountIfを使用して、セル範囲A1からA10までの条件（ここでは">50"）に一致するセルの数を数えています。条件に一致するセルの数が`MsgBox`で表示されます。

Excel VBA WorksheetFunction.SumIf

Sub SumIfFunctionExample()
    Dim sumResult As Double
    
    ' 条件に一致するセルの値の合計を求めるための範囲、条件を指定してSumIf関数を呼び出す例
    sumResult = WorksheetFunction.SumIf(Range("A1:A10"), ">50", Range("B1:B10")) ' A1からA10のセル範囲で50より大きい場合にB1からB10の値を合計
    
    ' 結果を表示
    MsgBox "条件に一致するセルの合計: " & sumResult
End Sub

Excel VBA WorksheetFunction.Large

Sub LargeFunctionExample()
    Dim largeResult As Variant
    Dim rng As Range
    Set rng = Range("A1:A10") ' 範囲を指定
    
    ' 指定した位置の大きな値を取得するための範囲と位置を指定してLarge関数を呼び出す例
    largeResult = WorksheetFunction.Large(rng, 2) ' A1からA10までの範囲で2番目に大きな値を取得
    
    ' 結果を表示
    MsgBox "2番目に大きな値は: " & largeResult
End Sub

WorksheetFunction.Largeを使用して、セル範囲A1からA10までの範囲で2番目に大きな値を取得しています。指定した位置の大きな値が MsgBox で表示されます。取得したいランクの位置を変更する場合は、2番目の引数に別の位置を指定します。

Excel VBA WorksheetFunction.Small

Sub SmallFunctionExample()
    Dim smallResult As Variant
    Dim rng As Range
    Set rng = Range("A1:A10") ' 範囲を指定
    
    ' 指定した位置の小さな値を取得するための範囲と位置を指定してSmall関数を呼び出す例
    smallResult = WorksheetFunction.Small(rng, 3) ' A1からA10までの範囲で3番目に小さな値を取得
    
    ' 結果を表示
    MsgBox "3番目に小さな値は: " & smallResult
End Sub

Excel VBA WorksheetFunction.Vlookup

Sub VlookupFunctionExample()
    Dim lookupResult As Variant
    Dim lookupValue As Variant
    Dim lookupRange As Range
    Dim resultRange As Range
    
    ' 検索値と検索範囲を指定
    lookupValue = "apple" ' 検索値
    Set lookupRange = Range("A1:B10") ' 検索範囲（A1からB10までの範囲）
    Set resultRange = Range("B1:B10") ' 結果を返す範囲（B列）
    
    ' Vlookup関数を呼び出し、検索値に対応する値を取得する
    lookupResult = WorksheetFunction.VLookup(lookupValue, lookupRange, 2, False)
    
    ' 結果を表示
    If Not IsError(lookupResult) Then
        MsgBox "検索値に対応する値は: " & lookupResult
    Else
        MsgBox "検索値が見つかりません"
    End If
End Sub

Excel VBA WorksheetFunction.MatchとIndex

Sub MatchAndIndexFunctionsExample()
    Dim matchResult As Variant
    Dim indexResult As Variant
    Dim searchValue As Variant
    Dim dataRange1 As Range
    Dim dataRange2 As Range
    
    ' 検索値とデータ範囲を指定
    searchValue = "Banana" ' 検索値
    Set dataRange1 = Range("B1:B5") ' 検索する範囲
    Set dataRange2 = Range("A1:A5") ' 検索する範囲
    
    ' Match関数の例: 指定された値の位置を検索する
    matchResult = WorksheetFunction.Match(searchValue, dataRange1, 0) ' 完全一致で検索
    
    If Not IsError(matchResult) Then
        MsgBox "検索値の位置は: " & matchResult
    Else
        MsgBox "検索値が見つかりません"
    End If
    
    ' Index関数の例: 特定の位置から値を取得する
    indexResult = WorksheetFunction.Index(dataRange2, matchResult, 1) ' Match関数で取得した位置の値を取得
    
    If Not IsError(indexResult) Then
        MsgBox "検索値に対応する値は: " & indexResult
    Else
        MsgBox "エラー：検索値が見つからないか、INDEXの範囲外です"
    End If
End Sub

Excel VBA WorksheetFunction.EoMonthとDateSerial

Sub EDateAndDateSerialExample()
    Dim originalDate As Date
    Dim newDateByEDate As Date
    Dim newDateByDateSerial As Date
    
    ' 初期の日付を設定
    originalDate = DateSerial(2023, 12, 1) ' 2023年12月1日の日付
    
    ' EDate関数を使用して日付を変更
    newDateByEDate = WorksheetFunction.EoMonth(originalDate, 2) ' 2ヶ月後の末日を取得
    
    MsgBox "EoMonth関数で2ヶ月後の末日は: " & newDateByEDate
    
    ' DateSerial関数を使用して日付を変更
    newDateByDateSerial = DateSerial(Year(originalDate), Month(originalDate) + 2, Day(originalDate)) ' 2ヶ月後の日付を取得
    
    MsgBox "DateSerial関数で2ヶ月後の日付は: " & newDateByDateSerial
End Sub