先ほど、testシートのD列(D2以下)に値が入力されるとC列に計算式A列*B列が入っておりその答えが入力されます。
同時に、D列に値を入力するとC列に入力される値をその下の行のB列に自動反映させたいのです。
例D2=10.5 C2=10(A2)*5(B2) B3=C2の答えの50
の質問をさせていただきまして、以下の回答をいただいたのですが、すいません。
C2の値が変更になった場合に自動でB3の数字も変更したいのですが、今のままだとD2を入力しなおしてEnter押さないと変わってくれません。
もう一度教えてくださいませ。
宜しくお願いいたします。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D:D")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Row > 1 Then
If .Value <> "" Then
.Offset(1, -2) = .Offset(, -1)
Else
.Offset(1, -2).ClearContents
End If
End If
End With
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは!
C列には数式が入っているのですよね?
結局A・B・D列のデータ変更があればマクロが実行されれば良い!という解釈です。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A,B:B,D:D")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
Application.EnableEvents = False
If .Column = 4 Then
.Offset(1, -2) = .Offset(, -1)
ElseIf .Value <> "" Then
Cells(.Row + 1, "B") = Cells(.Row, "C")
End If
Application.EnableEvents = True
End With
End Sub
としたらどうなりますか?m(_ _)m
こんばんは!!!
早速ご回答いただきましてありがとうございました!
なるほど!!そういう風に考えれば良いのですね!
ありがとうございます。
おかげ様で出来ました!
何度も申し訳ございません。ありがとうございました。
No.2
- 回答日時:
どうやら、質問の意味を取り違えていたようですが、その例題から、そういうコードには解釈はできませんでしたね。
D列の入力と、C列との直接の関係はないように思います。>例D2=10.5 C2=10(A2)*5(B2) B3=C2の答えの50
D2 は、文字でも何でもよいということのようですが。
ここの質問に提示されたコードの
.Offset(1, -2) = .Offset(, -1)
以下のように変えれば済むのではありませんか?
ふたたび、勘違いしているかもしれませんが。
.Offset(1, -2).Formula = "=R[-1]C[1]"
まあ、既存のものは、書き換えないといけませんが、まあ、どちらでもよい話かもしれませんが。
お返事が遅くなり申し訳ございませんでした。
私の説明不足で勘違いさせてしましましてすいません・・・。
参考になりました!ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) VBAで重複した値のセルに色付けをしたい 1 2022/11/02 16:12
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
データが入力されている隣のセルに当日日付と時刻を入力するExcel VBAプログラム
Visual Basic(VBA)
-
-
4
あるセルに特定の文字列を打つと、他のセルに決められた文字が自動入力するように
Excel(エクセル)
-
5
VBA A1セルが空白になったら隣のセルも空白に
Excel(エクセル)
-
6
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
7
[初心者です]VBAで指定列からAを検索し、発見したら隣のセルに値0を入れるマクロ。
Access(アクセス)
-
8
ある条件を満たすセルに対応する行のセル内容をコピーして・・
Visual Basic(VBA)
-
9
エクセルで条件に一致したセルの隣のセルを取得したい
その他(Microsoft Office)
-
10
VBAで入力の結果を他のセルに反映させたい
Visual Basic(VBA)
-
11
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
12
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
13
(Excel)あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには?
Excel(エクセル)
-
14
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
15
セルの値が変ると自動でマクロが実行される。
その他(Microsoft Office)
-
16
Excelで、「特定のセル」に入力したら→「別のセル」に「○」を自動表示する方法
Excel(エクセル)
-
17
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
18
【Excel VBA】先頭の「0」飛びを埋める方法
Visual Basic(VBA)
-
19
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
20
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
精子が黄色?
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
EXCELで条件付き書式で空白セル...
-
中出しをするとお腹が痛い・・・。
-
小数点以下を繰り上げたものを...
-
エクセル指定した範囲からラン...
-
甲状腺が腫れているが血液検査...
-
EXCELで式からグラフを描くには?
-
2つの数値のうち、数値が小さい...
-
精子に血が・・・
-
これって喉仏ですか? 私は女性...
-
値が入っているときだけ計算結...
-
ある範囲のセルから任意の値を...
-
【Excelで「正弦波」のグラフを...
-
一番多く表示のある値(文字列...
-
筋トレするとチンコが縮んじゃ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
精子が黄色?
-
EXCELで条件付き書式で空白セル...
-
至急!尿検査前日にオナニーし...
-
これって喉仏ですか? 私は女性...
-
中出しをするとお腹が痛い・・・。
-
甲状腺が腫れているが血液検査...
-
2つの数値のうち、数値が小さい...
-
尿検査前日に自慰行為した時の...
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
ある範囲のセルから任意の値を...
-
口の中に黒い血の塊
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
おすすめ情報