|
▼ヴィヴィ さん:
>まず、“メイン”でInputboxで品名を入力します。
>その品名を“品名台帳”から検索して、同じ品名が見つからない場合は「新しい品名です」とメッセージを表示し、台帳の最終行に品名を転記する、という処理をしたいのですが・・・。
見つからない時は「品名」を追加します。
見つかった時は何も処理をしてません。
Sub TEST()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim v As Variant, st As String
Dim r As Range
Set ws1 = Worksheets("メイン")
Set ws2 = Worksheets("品名台帳")
ws1.Activate
st = InputBox("品名")
If st = "" Then
MsgBox "品名は入力されていません"
Exit Sub
End If
With ws2
Set r = .Range(.[A2], .Cells(Rows.Count, "A").End(xlUp))
End With
On Error Resume Next
v = WorksheetFunction.Match(st, r, 0)
On Error GoTo 0
If IsEmpty(v) Then
MsgBox "新しい品名です"
r.Item(r.Cells.Count).Offset(1).Value = st
End If
End Sub
ご参考になれば。
|
|