エクセルVBA、メッセージボックスについて教えて下さい。

画像

Visual Basic7閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

Private Sub Worksheet_Change(ByVal Target As Range) Dim aaa As String With Worksheets("入力シート") aaa = .Cells(Target.Row, Target.Column).Value End With If Target.Column = 1 Then If WorksheetFunction.CountIf(Range("E:E"), aaa) = 0 Then MsgBox "!!間違い!!", vbOKOnly + vbExclamation, "入力エラー" Exit Sub End If End If End Sub

ThanksImg質問者からのお礼コメント

ありがとうございました。 できました。 VBA中でif判定するのですね!

お礼日時:6/15 13:43