Excel VBA質問箱 IV

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

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


5110 / 76732 ←次へ | 前へ→

【77235】ルーブ
質問  翔子  - 15/6/25(木) 11:10 -

引用なし
パスワード
   よろしくお願いします。

下記のモジュールは
Sheet(注文書)E2にコードを入れると
Sheet(詳細)E列”コード”、F列”品名”
1行目はタイトル、2行目から”1から最終行”、”品名”が
入っています。

Sheet(注文書)E2にコードを入れボタンを押すと
Sheet(注文書)E3にコードの品名が出てくるようになっております。

*Sheet(注文書)E2にコードを入れenterキーでしたいのですが
 可能でしょうか教えてください

Sub 部署コード検索() 'ボタン検索
  Dim i As String '注文書シート(E2)
  Dim s As String '詳細シート
  Dim r As String '詳細シート 部署コード2行目
  Dim m As Integer 'MsgBox
  
  i = Worksheets("注文書").Range("E2")
  r = 2: m = 1
  Do While Worksheets("詳細").Cells(r, 5) <> ""
    s = Worksheets("詳細").Cells(r, 5)
    If StrComp(i, s) = 0 Then
      Worksheets("注文書").Range("E3").Value = Worksheets("詳細").Cells(r, 6)
      m = 3
      Exit Do
    End If
    r = r + 1
  Loop
    
  If m = 1 Then
    MsgBox "入力されたコードはありません"
  End If
End Sub
200 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 質問[未読]

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