VBA追加列検索

コバー

以下のコード、つまりRDG1、PW、Sewer Works、PassにPWを追加する必要があります。余分な列は列Dになります、乾杯。

With ThisWorkbook.Sheets(1)
    .Range("D5").Value = Counts("RDG1", "Sewer Works")
    .Range("E5").Value = Counts("RDG1", "Sewer Works", "PASS")
    .Range("F5").Value = Counts("RDG1", "Sewer Works", "FAIL")

    'other counts here

End With



'Get row counts from sheet2
'  Optional 3rd parameter for PASS/FAIL
Function Counts(v1 As String, v2 As String, Optional v3 As String = "") As Long
    Dim rng1 As Range, rng2 As Range, rng3 As Range
    With ThisWorkbook.Sheets(2)
        Set rng1 = .Range("C7:C10000")
        Set rng2 = .Range("G7:G10000")
        Set rng3 = .Range("I7:I10000")
        If Len(v3) > 0 Then
            Counts = Application.CountIfs(rng1, v1, rng2, v2, rng3, v3)
        Else
            Counts = Application.CountIfs(rng3, v1, rng2, v2)
        End If
    End With
End Function
ティムウィリアムズ

テストされていません-一般的なパターンを取得する必要があります...

With ThisWorkbook.Sheets(1)
    .Range("D5").Value = Counts("RDG1", "PW", "Sewer Works")
    .Range("E5").Value = Counts("RDG1", "PW", "Sewer Works", "PASS")
    .Range("F5").Value = Counts("RDG1", "PW", "Sewer Works", "FAIL")

    'other counts here

End With



'Get row counts from sheet2
'  Optional 4rd parameter for PASS/FAIL
Function Counts(v1 As String, v2 As String, v3 As String, Optional v4 As String = "") As Long
    Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range
    With ThisWorkbook.Sheets(2)
        Set rng1 = .Range("C7:C10000")
        Set rng2 = .Range("D7:D10000")
        Set rng3 = .Range("G7:G10000")
        Set rng4 = .Range("I7:I10000")
        If Len(v4) > 0 Then
            Counts = Application.CountIfs(rng1, v1, rng2, v2, rng3, v3, rng4, v4)
        Else
            Counts = Application.CountIfs(rng1, v1, rng2, v2, rng3, v3)
        End If
    End With
End Function

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]

編集
0

コメントを追加

0

関連記事

分類Dev

VBA openweathermapXML検索

分類Dev

Vba ExcelVlookup検索値は文字列です

分類Dev

Excel VBA検索#N / A

分類Dev

VBA-ExcelCTRL検索

分類Dev

jQueryDatatable列検索

分類Dev

日付範囲検索への名前の追加。MS Access VBA

分類Dev

文字列を検索し、追加の列を作成します

分類Dev

.find VBAマクロ1つの列でテキストを検索し、隣接する列に条件付きテキストを追加します

分類Dev

.find VBAマクロ1つの列でテキストを検索し、隣接する列に条件付きテキストを追加します

分類Dev

VBAのInStrを使用した複数の文字列検索

分類Dev

VBAは文字列の最後の出現を検索します

分類Dev

vbaで複数の文字列を検索する

分類Dev

InStr()vbaを使用して文字列内の3 "を検索する

分類Dev

Excel-VBA-ワークシートで配列値を検索

分類Dev

VBA配列変数で効率的に検索/ vlookupする方法

分類Dev

VBA、Excelの数式内の検索文字列

分類Dev

列VBAで日付値を検索する

分類Dev

VBAを使用して列を検索して置換します

分類Dev

特定のパターンの後の列の値のVBA検索

分類Dev

VBA:部分文字列の検索と行全体の削除

分類Dev

VBA、HTMLElementIDでテキスト文字列を検索

分類Dev

vbaは以外の文字列を検索します

分類Dev

文字列jsに追加された文字を検索する

分類Dev

Matlab:列を検索して値を追加する

分類Dev

検索に別の列を追加するVLookup

分類Dev

別の行に個別の列検索を追加する

分類Dev

mysqljson列で検索

分類Dev

BeautifulSoup文字列検索

分類Dev

列の検索値

Related 関連記事

ホットタグ

アーカイブ