Excel VBAユーザーフォーム - IsEmptyでない場合

Question

私は、ユーザーからの入力を求めるユーザーフォームを作成しています。

多くの入力がありますが、特に1つのセクションに問題があります。ユーザーがテキストボックス（SecondCompetitorという名前）に何かを入力した場合、私のエクセルワークシート（ws4という名前）の中にいくつかの値を置く必要があります。ここ

私が書かれているコードである：

With ws3 
    If Not IsEmpty(Me.SecondCompetitor.Value) Then 
     .Cells(iRow3, 14).Value = Me.Ticker.Value 
     .Cells(iRow3, 2).Value = Me.Rec1.Value 
     .Cells(iRow3, 3).Value = Me.Rec2.Value 
     .Cells(iRow3, 4).Value = Me.Rec3.Value 
     .Cells(iRow3, 5).Value = Me.Rec4.Value 
     .Cells(iRow3, 6).Value = Me.Rec5.Value 
     .Cells(iRow3, 7).Value = Me.Rec6.Value 
     .Cells(iRow3, 8).Value = Me.Rec7.Value 
     .Cells(iRow3, 9).Value = Me.Rec8.Value 
     .Cells(iRow3, 10).Value = Me.Rec9.Value 
     .Cells(iRow3, 15).Value = Me.FirstCompetitor.Value 
     .Cells(iRow3, 17).Value = Me.SecondCompetitor.Value 
     .Cells(iRow3, 19).Value = Me.Winner.Value 
     .Cells(iRow3, 20).Value = Me.Exploration.Value 
     .Cells(iRow3, 21).Value = Me.DateAdded.Value 
    End If 
End With 

を私は実際にコードを実行すると、値に関係なく、ユーザが実際SecondCompetitorテキストボックスに何も入力されているか否かの列に配置されています。

どのような問題が発生する可能性がありますか？

Answer 1

IsEmptyがアレイに使用されます。以下を使用してください：

With ws3 
    If Not Me.SecondCompetitor.Value = "" Then 'This line could also be Me.SecondCompetitor.Value = vbNullString 
     .Cells(iRow3, 14).Value = Me.Ticker.Value 
     .Cells(iRow3, 2).Value = Me.Rec1.Value 
     .Cells(iRow3, 3).Value = Me.Rec2.Value 
     .Cells(iRow3, 4).Value = Me.Rec3.Value 
     .Cells(iRow3, 5).Value = Me.Rec4.Value 
     .Cells(iRow3, 6).Value = Me.Rec5.Value 
     .Cells(iRow3, 7).Value = Me.Rec6.Value 
     .Cells(iRow3, 8).Value = Me.Rec7.Value 
     .Cells(iRow3, 9).Value = Me.Rec8.Value 
     .Cells(iRow3, 10).Value = Me.Rec9.Value 
     .Cells(iRow3, 15).Value = Me.FirstCompetitor.Value 
     .Cells(iRow3, 17).Value = Me.SecondCompetitor.Value 
     .Cells(iRow3, 19).Value = Me.Winner.Value 
     .Cells(iRow3, 20).Value = Me.Exploration.Value 
     .Cells(iRow3, 21).Value = Me.DateAdded.Value 
    End If 
End With