4_入荷　アラート表示

Sub 個数アラート()
    If UserForm1.TextBox4.Text <> UserForm1.TextBox8.Text Then
            UserForm1.Label17.ForeColor = RGB(255, 0, 0)
            UserForm1.Label17.Caption = "相違"
    Else
            UserForm1.Label17.ForeColor = RGB(30, 144, 255)
            UserForm1.Label17.Caption = "OK"
End If
End Sub
Sub 個数相違メッセージ()
    If UserForm1.TextBox4.Text <> UserForm1.TextBox8.Text Then
            MsgBox ""
    Else
            UserForm1.Label17.ForeColor = RGB(30, 144, 255)
            UserForm1.Label17.Caption = "OK"
End If
End Sub

--------------------------------------------------------
Sub yesnomsg()
    Dim rc As Integer
    rc = MsgBox("処理を行いますか？", vbYesNo + vbQuestion, "確認")
    If rc = vbYes Then
        MsgBox "処理を行います"
    Else
        MsgBox "処理を中断します"
    End If
End Sub
Sub 重複メッセージ()
Dim i As Long
Dim 最終行 As String
Dim サーチ行 As Long
Dim 最終行2 As String

Sheets("未入荷").Activate
最終行 = Range("B3").End(xlDown).Row
サーチ行 = 0
For i = 2 To 最終行
If Range("A2") = Range("B" & i) Then  '送り状No
     If Range("S" & i) <> "" Then
       MsgBox "UNo" & UserForm1.TextBox12.Text & "送状No" & UserForm1.TextBox11.Text & "がすでに登録しています。" & vbCrLf & "登録を中止しました。", vbCritical
     Else
       MsgBox "重複していないため登録します。"
     End If
サーチ行 = i
Exit For
End If
Next
End Sub

--------------------------------------------------------------

Sub 大口表示()
Dim A As String
If UserForm1.TextBox3.Value = "Ｃ佐川急便" Then
    UserForm1.Label21.Caption = "F" & UserForm1.TextBox13.Value
    Else
If UserForm1.TextBox4.Value >= 10 Then
    UserForm1.Label21.Caption = "大" & UserForm1.TextBox13.Value
 Else
    UserForm1.Label21.Caption = UserForm1.TextBox13.Value
 End If
 End If
 
End Sub