Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30847 / 76732 ←次へ | 前へ→

【51147】Re:値の検索と転記について・・・
回答  じゅんじゅん  - 07/8/30(木) 7:01 -

引用なし
パスワード
   ▼ヴィヴィ さん:
>まず、“メイン”で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

ご参考になれば。

0 hits

【51146】値の検索と転記について・・・ ヴィヴィ 07/8/29(水) 22:59 質問
【51147】Re:値の検索と転記について・・・ じゅんじゅん 07/8/30(木) 7:01 回答
【51156】Re:値の検索と転記について・・・ ヴィヴィ 07/8/30(木) 19:32 お礼

30847 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free