ioa********

2022/7/6 15:52

22回答

Excelで、F列にお客様番号と使用料を入力し、F列のお客様番号とB列のお客様番号が一致した時、F列に入力した使用料がC列に転記されていくようにしたいです。

Excelで、F列にお客様番号と使用料を入力し、F列のお客様番号とB列のお客様番号が一致した時、F列に入力した使用料がC列に転記されていくようにしたいです。 添付画像の例だと、使用料「20」がC4に転記されるようにしたいです。 関数でも、VBA（ユーザーフォーム？）でも構わないのですが、何か方法はありますでしょうか？ VLookupなど考えてみたのですが、良い方法に辿り着けず… お知恵をお借りしたいです。 よろしくお願いいたします。

画像

Excel | Visual Basic・57閲覧・xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0
lgk********

2022/7/6 21:59

関数では無理です。関数は変更後を残しておくことができません。F2のお客様番号を変更するとＣ列の使用量は消えます。 VBA ならできます。 ' Private Sub Worksheet_Change(ByVal Target As Range) '     If Target.Address <> "$F$3" Then         End     End If '     Set Target = [B:B].Find([F2], LookIn:=xlValues, LookAt:=xlWhole) '     If Target Is Nothing Then         MsgBox "お客様番号がありません", vbCritical         End     End If     Application.EnableEvents = False     Target.Offset(, 1) = [F3]     Application.EnableEvents = True End Sub シートモジュールに入れて下さい。 SheetBのシート名の所を右クリック、コードの表示を選び、そこに入力して下さい。

ThanksImg質問者からのお礼コメント

お二方、どちらの方法でもできました！ 自分では考えつかなかったVBAでの方法をご教授くださった方をベストアンサーとさせて頂きます。 ありがとうございました。

お礼日時：7/7 9:44

その他の回答（1件）

0
mit********

2022/7/6 16:13

F２セルのデータとF３データが変わるごとにC列の表示が変わってしまいます。VBAでなければ対応できません。 関数式で対応することが出来るようにするにはF２セルから下方にお客様番号、G２セルから下方に使用量を入力して行くことです。 その上でC４セルには次の式を入力して下方にドラッグコピーすればよいでしょう。 =IFERROR(VLOOKUP(B3,F:G,2,0),"") F列やG列のデータは消すのではなく残しておくことです。データは下方に追加していきます。