ElseステートメントがExcelVBAユーザーフォームのデータの最後の行に対してのみ機能する場合

debugcn 投稿 Dev

Mari2212

非常に単純に聞こえる問題に苦労していますが、コードに問題があります。

テキストボックス1に「シリアル番号」を入力すると、2つのテキストボックスを持つユーザーフォームがあります。シリアル番号がシートの「RMA」列の既存のフィールドと一致すると、テキストボックス2の「RMA番号」が自動的に入力されます。

一致しない場合は、textbox2をクリアするか、「一致しません」と言います。

If-Then-Elseタイプのコードを実行しましたが、現時点では最後のエントリでのみ機能するようです...

すべてのエントリに一致し、シリアル番号が一致しない場合にクリアできるように、コードで何を変更する必要がありますか？

    'Autopopulate RMA# with Serial Number

     Private Sub SN_TextBox1_Change()


     Dim serial1_id As String
     serial1_id = UCase(Trim(SN_TextBox1.Text))
     lastrow = Worksheets("RMA Tracker").Cells(Rows.Count, 1).End(xlUp).Row


       For i = 1 To lastrow
          If UCase(Worksheets("RMA Tracker").Cells(i, 4).Value) = serial1_id Then
          RMA_TextBox1.Text = Worksheets("RMA Tracker").Cells(i, 1).Value
    
    
          Else
    
           RMA_TextBox1.Value = ""
   
    
    
          End If
    

       Next i


      End Sub

ハルン24HR

Find()メソッドを使用して目的を達成できると思います。以下のコードはTextBox1、RMA列から値を検索します(D:D)。一致するものが見つかった場合Column A:A、一致する行の値をから返しますTextBox2。一致するものがない場合は、にNo Matchメッセージが表示されTextBox2ます。

Private Sub CommandButton1_Click()
Dim RMA As String
Dim Rng As Range

RMA = Me.TextBox1
    If Trim(RMA) <> "" Then
        With Sheets("RMA Tracker").Range("D:D") 'D:D for column 4
        Set Rng = .Find(What:=RMA, _
                     After:=.Range("A1"), _
                     Lookat:=xlWhole, _
                     LookIn:=xlFormulas, _
                     SearchOrder:=xlByRows, _
                     SearchDirection:=xlPrevious, _
                     MatchCase:=False)
            If Not Rng Is Nothing Then
                Me.TextBox2 = Rng.Offset(0, -3)
            Else
                Me.TextBox2 = "No Match"
            End If
        End With
     End If
End Sub

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]

編集2021-06-12

コメントを追加

サインイン

分類Dev

Related 関連記事

記事

ElseステートメントがExcelVBAユーザーフォームのデータの最後の行に対してのみ機能する場合

ElseステートメントがExcelVBAユーザーフォームのデータの最後の行に対してのみ機能する場合

Ansibleコマンドはrootの場合は機能しますが、デフォルトのユーザーの場合は機能しません。デフォルトユーザーとしてのみpythonPyYAMLエラーをスローしますが、rootに対しては機能します

Symfony：LDAPサーバーに対してユーザーを認証しますが、ユーザー名がカスタムデータベーステーブルにある場合にのみログインを許可します

LocalStorage変数が存在しますか：要素の再読み込み後にステートメントが機能しない場合（再読み込みされたフォームを送信した後にページが再読み込みされます）

ExcelVBAの列の最後にユーザーフォームを出力する方法

else ステートメントが機能しない場合の 1 行

elseステートメントが機能しない場合に私の最後の2つがなぜ機能しないのか誰かに教えてもらえますか？ここでJavaScriptを初めて使用する

ステートメントが機能しない場合にjQueryの複数のelseを修正する方法

ステートメントが機能しない場合のJQueryフォームの検証

Javaのステートメントが機能しない場合のユーザー入力

Postgresql：データが変更された場合にのみ、各ステートメントの更新後にトリガーを実行します

else部分が機能しないelseステートメントの場合

文字列の最後のN行を切り抜いて、ユーザーフォームのテキストボックスに表示します

現在のユーザーの子にフィルターが適用されたFirebaseスナップショットがある場合、データベース内のすべてのユーザーに対してどのようにそれを行うことができますか？

Windows 10デスクトップショートカットキーは、Windowsフォルダーが開いている場合にのみ機能します

ユーザー定義関数のreturnステートメントが機能しない場合があるのはなぜですか？

ステートメントが true の場合、フォームを送信する

C ++でconstオブジェクトを宣言するには、ユーザー定義のデフォルトコンストラクターが必要です。可変メンバー変数がある場合は、どうしてですか？

これが機能する理由：式の結果としてのC ++の最後のステートメント

これが機能する理由：式の結果としてのC ++の最後のステートメント

Windowsバッチifステートメントは、すべてが1行にある場合にのみ機能します

MySQLタイムスタンプフィールドのデフォルトCURRENT_TIMESTAMPが既存の行に対して機能しない

コマンドボタンを選択すると、ユーザーフォームが開きます。フォームのテキストボックスにデータを入力して、別のシートの行に挿入するにはどうすればよいですか？

ExcelVBAユーザーフォームチェックボックスを使用して複数の行にデータを入力する

ステートメントが機能する場合にelseを作成する際の問題

ユーザーがAPIプラットフォームに接続されていない場合にのみpostメソッドを許可する

テンプレートのIfおよびElseステートメントが機能していません。ユーザーがプロフィール画像を持っていなくても、ダミー画像が表示されていない場合は常に

エラー13：同様のvbaステートメントが機能するユーザーフォームのテキストボックスのタイプの不一致

Python If == trueステートメントはreadlineの最後の行でのみ機能します

Python If == trueステートメントはreadlineの最後の行でのみ機能します