VBAは今日始めたばかりのド素人です。
ネットで勉強しながら、簡単なものを作ってますが、関数が呼び出されていないような感じがします。
どこに問題があるのか一緒に考えていただけませんか?
実装したいのは、
・C2の値が変更・編集されたとき
・C2の値を取得して
・E列の2行目以降の値と一つずつ比べて
・同じものがあったら
・同じ行のF列の値を取得して
・A2に書き込む
という作業です。
C2とE列の値は全てIntegerです。
私が書いたコードはこれです。
VBA
1Private Sub Worksheet_Change(ByVal Target As Range) 2 3 If (Target.Column = 2) And (Target.Row = 3) Then 4 c = Range("c2").Value 5 Set a2 = Range("a2") 6 i = 2 7 While (Not Range("e" & i).Value = "") 8 If Range("e" & i).Value = c Then 9 a2.Value = Range("f" & i).Value 10 End If 11 i = i + 1 12 Wend 13 End If 14End Sub
エディタ画面はこちらのサイトの方法をそのまま使っています。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。