ワークシートvbaの特定の列ヘッダーの1,2,3、および4番目のオカレンスを見つけよう

Question

ワークシートに特定の列ヘッダーのオカレンスを見つけようとしています。たとえば ヘッダー名payout dateの場合は、ワークシートの中で、第1発生セルアドレス、第2発生セルアドレス、第3発生セルアドレス、第4発生セルアドレスのように、payout dateを見つける必要があります。それがあれば感謝します。以下のコードは、それをOMMITまたはそれを作る、

Sub find() 
d = "Payout Date" 
Set r = ThisWorkbook.ActiveSheet.UsedRange.find(d) 
Debug.Print r.Address 
Set r = ThisWorkbook.ActiveSheet.UsedRange.FindNext(d) 
Debug.Print r.Address 
Set r = ThisWorkbook.ActiveSheet.UsedRange.FindNext(d) 
Debug.Print r.Address 
Set r = ThisWorkbook.ActiveSheet.UsedRange.FindNext(d) 
Debug.Print r.Address 
End Sub 

Answer 1

後は役に立つかもしれません。

Sub Demo() 
    Dim ws As Worksheet 
    Dim i As Long, cnt As Long 
    Dim rng As Range, rng2 As Range 
    Dim cellFound As Range 

    Set ws = ThisWorkbook.Sheets("Sheet1") 'change Sheet1 to your data sheet 
    Set rng = ws.Range("1:1") 'assuming headers are in row 1 else change 1 to row number with headers 
    Set rng2 = rng(1, Columns.Count) 
    cnt = 3    'number of occurrences to find 
    i = 1 
    With rng 
    Set cellFound = .find(what:="ID", After:=rng2, LookIn:=xlValues) 
     If Not cellFound Is Nothing Then 
      firstAddress = cellFound.Address 
      Do 
       Debug.Print "Occurrence " & i & " : " & cellFound.Address 
       i = i + 1 
       If i > cnt Then: Exit Do 
       Set cellFound = .FindNext(cellFound) 
      Loop While cellFound.Address <> firstAddress 
     End If 
     End With 
End Sub 

参照のために画像を参照してください。

Answer 2

FindNext方法はRangeタイプのオプションの引数を持つ正しく動作しません：

Set r = ThisWorkbook.ActiveSheet.UsedRange.FindNext(r) 

Answer 3

これはおそらく、私が一日数回やっものです。したがって、私は簡単に共有できるカスタム関数を作成しました。あなたが改善のためのアイデアを持っているなら、私はそれらを聞いて喜んでいます。

この

が関数である：あなたがアクティブシートの行1の最初の値を取得したい場合は、このように

Public Function fnLngLocateValueCol(ByVal strTarget As String,    
        ByRef wksTarget As Worksheet, _ 
        Optional lngRow As Long = 1, _ 
        Optional lngMoreValuesFound As Long = 1, _ 
        Optional blnLookForPart = False, _ 
        Optional blnLookUpToBottom = True) As Long 

    Dim lngValuesFound   As Long 
    Dim rngLocal    As Range 
    Dim rngMyCell    As Range 

    fnLngLocateValueCol = -999 
    lngValuesFound = lngMoreValuesFound 

    With wksTarget 
     Set rngLocal = .Range(.Cells(lngRow, 1), .Cells(lngRow, Columns.Count)) 
    End With   

    For Each rngMyCell In rngLocal 
     If blnLookForPart Then 
      If strTarget = Left(rngMyCell, Len(strTarget)) Then 
       If lngValuesFound = 1 Then 
        fnLngLocateValueCol = rngMyCell.Column 
        If blnLookUpToBottom Then Exit Function 
       Else 
        Call Decrement(lngValuesFound) 
       End If 
      End If 
     Else 
      If strTarget = Trim(rngMyCell) Then 
       If lngValuesFound = 1 Then 
        fnLngLocateValueCol = rngMyCell.Column 
        If blnLookUpToBottom Then Exit Function 
       Else 
        Call Decrement(lngValuesFound) 
       End If 
      End If 
     End If 
    Next rngMyCell  

End Function 

、あなたは次のように呼び出す：

fnLngLocateValueCol("valueToSearchFor",ActiveSheet) 

第二の値について、あなたは次のように呼び出す：

：あなたはこのように呼んで最後の値については

?fnLngLocateValueCol("valueToSearchFor",ActiveSheet,lngMoreValuesFound:=2) 

を

?fnLngLocateValueCol("valueToSearchFor",ActiveSheet,blnLookUpToBottom:=false) 

あなたが列にValueToSearchForを持っている場合は、値で始まるものを探すことにより、同様にそれを見つけることができます。あなたが探してされている

?fnLngLocateValueCol("Value",ActiveSheet,blnLookForPart:=True) 

行は、また、オプションのパラメータ（lngRow）で、それはトップではないとき値1

でlngRowためのオプションのパラメータは（もあります。このような行）またはblnLookForPart、あなたが部品を探しているとき。 -999は、値が見つからないコードです。

これまでのところ、いくつかのVBAアプリケーションで6ヶ月以上働いています。コード内で参照されるルーチンDecrementは、以下れる

---

：

Public Sub Decrement(ByRef value_to_decrement As Variant, Optional l_minus As Double = 1) 
    value_to_decrement = value_to_decrement - l_minus 
End Sub