各値の代わりに最後の値を見つけよう

Question

だから、私はこのコードを使って、誰が自分の名前を選択するためにユーザーフォームを使うときはいつでも、誰がサインインしているのかを見つけ、NOW =（）をG列に入れます。私が抱えている唯一の問題は、人がシート上にいれば、最後のものではなく、行Gのすべてのエントリを置き換えることです。 B列の技術者名の最後の反復のG列にnow =（）関数を配置したいだけです。技術者の最後の発生を取得するには

Visual of description

Private Sub CommandButton1_Click() 

    Dim rngFound As Range 
    Dim strFirst As String 
    Dim strID As String 
    Dim strDay As String 

    strID = techname1.Value 
    strDay = "" 

    Set rngFound = Columns("B").Find(strID, Cells(Rows.Count, "B"), xlValues, xlWhole) 
    If Not rngFound Is Nothing Then 
     strFirst = rngFound.Address 
     Do 
      Application.Worksheets("SignOut").Cells(rngFound.Row, "G").Value = Now() 
      Set rngFound = Columns("B").Find(strID, rngFound, xlValues, xlWhole) 
     Loop While rngFound.Address <> strFirst 
    End If 

    Set rngFound = Nothing 

    Unload Me 


End Sub 

Answer 1

は、列をループする必要はありません名前を付けます。コードの下に試してみてください。

Private Sub CommandButton1_Click() 
    Dim rngFound As Range 
    Dim strFirst As String 
    Dim strID As String 
    Dim strDay As String 

    strID = techname1.Value 
    strDay = "" 

    'below line will give you the last occurrence of strID 
    Set rngFound = Columns("B").Find(strID, Cells(Rows.Count, "B"), xlValues, xlWhole, , xlPrevious) 
    If Not rngFound Is Nothing Then 
     Application.Worksheets("SignOut").Cells(rngFound.Row, "G").Value = Now() 
    End If 

    Set rngFound = Nothing 

    Unload Me 
End Sub 

Find関数の構文は次のとおりです。

Range_Object.Find（何を、した後、のlookin、ルックアット、SearchOrder、SearchDirection、MatchCase、MatchByte、SearchFormat）

ここでは、SearchDirectionは、範囲とcで検索する際の検索方向を指定するオプションのパラメータです>範囲内の次のマッチング値の探索

xlPrevious - - これら両者の>範囲内の前のマッチング値の探索

• xlNext：follwing 2つの値の一方を取りますxlNextがデフォルトです。あなたがそれを言及しないときは、を見つけるxlNextを使用し、範囲が列であるあなたのケースで上から下を検索します。だから最後の文字列の使用を取得するxlPreviousこれは、列の下から上を検索します。