Excel VBA質問箱 IV

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

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


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

40042 / 76732

←次へ　｜　前へ→


	【41794】VBAで商品マスターから入力

kazuo - 06/8/23(水) 2:08 -


	引用なし

	パスワード

VBAの大先輩の皆さん　よろしくお願いします。
sheet5に"商品マスター"を作成し、sheet3の"内訳明細"の
A列とB列の２つの条件が一致したら
C列とE列に呼称・単価を記入したいのです。
VLOOKUP関数ならだいたい出来るのですが
どうしても商品名が3千～4千ありますので、VBAで作成したいのですが

sheet3内訳明細側
　 A　　　B　　　C　　D　　　E
2 品名　形状　　呼称　　　　単価入力
3 ○○　▲▲　　ｍ　　　　　　550
4 ○○　■■　　個　　　　　　800
　　・
　　・

sheet5商品マスター側
　 A　　　B　　　　　C　　　　　D　　　　　　E　　　　　　F
2 品名　形状　　　　呼称　　　単価一般　　　同業単価　　　特別価格
3 ○○　▲▲　　　　　ｍ　　　　550　　　　　450　　　　　　350
4 ○○　××　　　　　個　　　　220　　　　　 200　　　　　　 180
5 ○○　■■　　　　　個　　　　800　　　　　 700　　　　　　 600
　　　・
　　　3000～4000行あります
　　　・

上記表のsheet5で解るように３種類（D列・E列・F列）の単価設定の必要があります。
よって
1.最初にinputboxで単価設定（1.一般チャンネル・2.同業チャンネル・
　3.特別チャンネル）を実行したい。または（ファームのボタン選択可能にしたい）
　２通り出来れば最高です
　そのときに現在のチャンネルをsheet3"内訳明細"の"L1"に表示。
2.その後sheet3"内訳明細"の入力を開始。
3.[#41557]のcase3の条件を満たしたい。
　　　Case 3
　　　　If .Value = "式" Then
　　　　　Application.EnableEvents = False
　　　　　.Offset(, 1).Value = 1
　　　　　.Offset(0, 2).Select
　　　　　Application.EnableEvents = True
　　　　End If
4.[#41638]下記です。
　　'C列に値が入ったかどうかのチェック
　　With Cells(Target.Row, 3)
　　　If .Value <> "" Then
　　　　.Offset(, 1).Activate
　　　Else
　　　　.Activate
　　　End If
　　End With
条件が多くてすみません。
以上です、検討の程よろしくお願いします。

0 hits

▼

【41794】VBAで商品マスターから入力 kazuo 06/8/23(水) 2:08

≪