|
VBAの大先輩の皆さん よろしくお願いします。
sheet5に"商品マスター"を作成し、sheet3の"内訳明細"の
A列とB列の2つの条件が一致したら
C列とE列に呼称・単価を記入したいのです。
VLOOKUP関数ならだいたい出来るのですが
どうしても商品名が3千〜4千ありますので、VBAで作成したいのですが
sheet3内訳明細側
A B C D E
2 品名 形状 呼称 単価入力
3 ○○ ▲▲ m 550
4 ○○ ■■ 個 800
・
・
sheet5商品マスター側
A B C D E F
2 品名 形状 呼称 単価一般 同業単価 特別価格
3 ○○ ▲▲ m 550 450 350
4 ○○ ×× 個 220 200 180
5 ○○ ■■ 個 800 700 600
・
3000〜4000行あります
・
上記表のsheet5で解るように3種類(D列・E列・F列)の単価設定の必要があります。
よって
1.最初にinputboxで単価設定(1.一般チャンネル・2.同業チャンネル・
3.特別チャンネル)を実行したい。または(ファームのボタン選択可能にしたい)
2通り出来れば最高です
そのときに現在のチャンネルを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
条件が多くてすみません。
以上です、検討の程よろしくお願いします。
|
|