Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5185 / 76807

←次へ　｜　前へ→


	【77235】ルーブ

翔子 - 15/6/25(木) 11:10 -


	引用なし

	パスワード

よろしくお願いします。

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

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

2 hits

▼

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