レコードが検索された場合はそれを検索するための公式1その他のレコードは新しいレコード

Question

Excelには新しくありません。

私は、ユーザーがすべてAでユーザー名のユーザー名に

forumla検索を入力します単純な公式たい：細胞を、それはそれを見つけることができれば、それは上のセルに1を追加しますそうでなければ、下のオープンセルにユーザー名を作成します。

example here

Answer 1

これは、式と同じことを行いますマクロです：

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Address = "$F$4" Then 'assuming the name you are searching is in F4 
    Dim i As Integer 
    Dim check As Integer 

    Dim LastRow As Long 
    With ActiveSheet 
     LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
    End With 

    For i = 2 To LastRow 
     If Cells(i, 1).Value = Target.Value Then 
      Cells(i, 1).Offset(0, 1).Value = 1 
      check = 1 
     End If 
    Next i 

    If check > 0 Then 
     Exit Sub 
    Else 
     LastRow = LastRow + 1 
     Cells(LastRow, 1).Value = Target.Value 
    End If 
End If 
End Sub