Excel VBA質問箱 IV

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

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


5109 / 76732 ←次へ | 前へ→

【77236】Re:ルーブ
発言  kanabun  - 15/6/25(木) 12:05 -

引用なし
パスワード
   ▼翔子 さん:

>Sheet(注文書)E2にコードを入れボタンを押すと
>Sheet(注文書)E3にコードの品名が出てくるようになっております。
>
>*Sheet(注文書)E2にコードを入れenterキーでしたいのですが
> 可能でしょうか教えてください

可能です。
いま標準モジュールにそのコードを書いていますが、
それを 注文書シートの シートモジュールに変更し、
たとえば、以下のようにコードを書けばいいです。

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address(0, 0) <> "E2" Then Exit Sub
  
  Dim Rg As Range
  Dim m As Variant
  With Worksheets("詳細") '別シートのコード照合セル範囲
    Set Rg = .Range("E2", .Cells(.Rows.Count, "E").End(xlUp))
  End With
  m = Application.Match(Target, Rg, 0) 'Match関数で「詳細」シート検索
  Application.EnableEvents = False
  If IsNumeric(m) Then
    Target.Offset(1).Value = Rg.Item(m, 2).Value
  Else
    Target.Offset(1).ClearContents
    MsgBox "入力されたコードはありません"
  End If
  Application.EnableEvents = True
  
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
は シートに入力があったとき 実行されます。

いまは [E2]セル以外は入力があっても、さっさと抜けるようにしてあります。

今はMatch関数で コードを検索していますが、
やりたいことは VLookUpなので それを使っても可能です。
249 hits

【77235】ルーブ 翔子 15/6/25(木) 11:10 質問[未読]
【77236】Re:ルーブ kanabun 15/6/25(木) 12:05 発言[未読]
【77237】Re:ルーブ 翔子 15/6/25(木) 12:37 質問[未読]
【77239】Re:ルーブ kanabun 15/6/25(木) 12:46 発言[未読]
【77240】Re:ルーブ kanabun 15/6/25(木) 13:01 発言[未読]
【77238】Re:ルーブ kanabun 15/6/25(木) 12:43 発言[未読]
【77241】Re:ルーブ 翔子 15/6/25(木) 14:38 質問[未読]
【77242】Re:ルーブ kanabun 15/6/25(木) 15:06 発言[未読]
【77243】Re:ルーブ 翔子 15/6/25(木) 15:22 質問[未読]
【77244】Re:ルーブ 翔子 15/6/25(木) 15:35 質問[未読]

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