質問: VBAについての質問です Sheet1にデータを登録するUserfoamを作り、登録ボタンを押すと登録する物を作っています
回答: 一例です。 「検索結果」シートは使ってません。 Private Sub CommandButton1_Click() If TextBox1.Text = "" Then Exit Sub Set fr = Worksheets("data").Columns(1).Find(what:=TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True, MatchByte:=True) If Not fr Is Nothing Then MsgBox "FIG-No.が重複しています", vbCritical, "Check" TextBox1.SetFocus Exit Sub End If End Sub