Excel VBAユーザーフォームの更新ボタン

Question

更新ボタンは、ターゲットセルの横のセルに値がある場合に機能します。 はこのコードで問題を検出できません。

Private Sub CommandButton3_Click() 
Dim irow As Long, _ 
wS As Worksheet, _ 
NextRow As Long, _ 
cF As Range 
Set wS = Worksheets("stock") 
With wS 
    With .Range("A:A") 

     Set cF = .Find(What:=Me.ComboBox2.value, _ 
       After:=.Cells(1, 1), _ 
       LookIn:=xlValues, _ 
       LookAt:=xlWhole, _ 
       SearchOrder:=xlByRows, _ 
       SearchDirection:=xlNext, _ 
       MatchCase:=False, _ 
       SearchFormat:=False) 
    End With 

If Not cF Is Nothing Then 
    If cF.Offset(0, 1) <> vbNullString Then 
     Set cF = cF.End(xlToRight).Offset(0, 25) 
     cF.value = Me.TextBox2.value + .Cells(cF.row, "AA").value 
    End If 
Else 
    .Cells(cF.row, "AA").value = Me.TextBox2.value + .Cells(cF.row, "AA").value 
End If 

エンド End Subの

により標的細胞がAA2であるならば、Z2またはB2の値があるはずそれ以外の場合は何も起こりません。

だけ追加ELSE文ではなく、私がやった

Answer 1

ないAAの列AB内の他のその更新値を持つことだけでヒットしたn個のトライアルに基づいて、それは私が

`Private Sub CommandButton3_Click() 
    Dim irow As Long, _ 
    wS As Worksheet, _ 
    NextRow As Long, _ 
    cF As Range 
    Set wS = Worksheets("stock") 
    With wS 
    With .Range("A:A") 

    Set cF = .Find(What:=Me.ComboBox2.value, _ 
      After:=.Cells(1, 1), _ 
      LookIn:=xlValues, _ 
      LookAt:=xlWhole, _ 
      SearchOrder:=xlByRows, _ 
      SearchDirection:=xlNext, _ 
      MatchCase:=False, _ 
      SearchFormat:=False) 

.Cells(cF.row, "AA").value = Me.TextBox2.value + .Cells(cF.row, "AA").value 
End With 
End Sub`