

エクセル2002で以下のようなシートがあります。
| A | B | C | D
---------------------------
1 | 1| 10| 100| =C1-1
---------------------------
2 | | | |
ここで、B2に文字が入力されると、A1とC1とD1をコピー、B2が消されるとA2とC2とD2を消去するマクロを書きました。
現在以下のように書いていますが、これでは入力位置がB2だろうがB3だろうかB20だろうが、D2と同じ数式になってしまいます。B5に入力されたならD5の数式はC5-1にしたいのですが、このような入力をするにはどうすればよいでしょうか。
ちなみにD列の数式は本当はもっと複雑です(この数式ならTarget.Offset(0, -4).Value = Int(Target.Offset(-1, -4).Value + 1でもたぶんいい・・・はず・・・)
オートフィルを使えば!と思いましたが、Target・・・では使い方がわかりません。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column <> 2 Then Exit Sub //B列以外への文字入力はマクロ停止(のつもり)
If Target.Value <> "" Then
Target.Offset(0, -1).Value = Int(Target.Offset(-1, -1).Value + 1) //A1に+1したものをコピー
Target.Offset(0, 1).Value = Target.Offset(-1, 1).Value //C2にC1をコピー
Target.Offset(0, 2).Formula = Target.Offset(-1, 2).Formula //D2にD1の数式をコピー◆ここが問題!
Else Range(Target.Offset(0, -1), Target.Offset(0, 4)).ClearContents
End If
Application.EnableEvents = True
End Sub
No.3ベストアンサー
- 回答日時:
通りすがりのものですが
Target.Offset(0, 2).Formula = Target.Offset(-1, 2).Formula //D2にD1の数式をコピー◆ここが問題!
の.Formulaを.FormulaR1C1にすると良いと思います
ありがとうございます。
昨日返信した後#1さんのレスを見てあーだこーだやってるうちにこのコードになり解決しました(R1C1?ナンダソレ?相対参照なのは分かるけど、で?どうやって使うの、ってなってるので気にしないでください(滝汗)
スッキリしました。ありがとうございました。
No.6
- 回答日時:
わざわざ、難しい事しなくても
マクロを使用するなら、マクロの中で計算した方が良いと思いますが、スキルが伴っていないようなので
A2へ =IF(B2<>"","",A1)
C2へ =IF(B2<>"","",C1)
D2へ =IF(B2<>"","",C2-1)
これをフィルで適当な行まで
A2へ =IF(AND(A1<>"",B2<>""),"",A1)
C2へ =IF(AND(C1<>"",B2<>""),"",C1)
D2へ =IF(AND(D1<>"",B2<>""),"",C2-1)
上の行も見てみました
外していたら、無視してください
No.5
- 回答日時:
忘れていました。
Application.EnableEvents = False
の位置ですが、現在の位置では
If Target.Column <> 2 Then Exit Sub
で、Exit Subした時
Application.EnableEvents = True
が実行されないので、これは拙いのではないでしょうか。
なんと。書く位置がまずかったのですね。
道理で他のセルを触った後マクロが動かなくなるわけですね。
教えてくださりありがとうございます。
No.2
- 回答日時:
単にコピーする方法もありかと。
Target.Offset(-1, 2).Copy Target.Offset(0, 2)
さらに言えば、行のチェック、B列の複数セルに同時に入力したときのチェックも付けた方がいいかも。
If Target.Column <> 2 Then Exit Sub
If Target.Row < 3 Then Exit Sub '●1行目見出しの場合
If Target.Count > 1 Then Exit Sub '●複数セルの入力は無視
Application.EnableEvents = False
それから、式が複雑なら、シートに式をいれるのではなくて
自身でも示しているようにコードで計算させた方がいいような気もしますが。。。
ま、式を見てないのでなんですが。。。
以上。
この回答への補足
コードで計算>
D1にあるのが =(REPLACE(C1,11,5,"")-25569)*24*60*60
一応
Target.Offset(0, -1).Value = Int(Target.Offset(-1, -1).Value + 1)
を書いた後で思いついてやってみたのですが、マクロ若葉マークの私にはヘルプ読むだけでは手に負えませんでした。全然動かないorz
回答ありがとうございます。
ヘルプでCopyを見たらファイルのコピーとかフォームのコピーとか言われて、使えないのかと思ってしまいました(^^;
け・・・ど、あら・・・動かない(汗)
>行チェック
汎用性を持たせるなら確かにそうですね。
一行目といわず既に10行ほど入力済みだったので、ナシでいいか!と(笑)
参考になります。
No.1
- 回答日時:
関数入力を自動記録してみてください。
D1でご質問の様な式を入力して記録すると、
ActiveCell.FormulaR1C1 = "=RC[-1]-1"
と、R1C1形式で記録されます。
R1C1形式をお使い下さい。
これは相対参照であり、Range("d1:d10").FormulaR1C1 = "=RC[-1]-1"
という様に、何行目かを考えずに使えるメリットがあります。
ちなみに途中でf4で絶対参照にして自動記録すると、
ActiveCell.FormulaR1C1 = "=R2C3-1"
となります。
回答ありがとうございます。
記録するとそのような形になるのは分かりますが、それをこのコードではどう書けばよいのかが分からないのです。
1つのセルの入力で複数のセルに一度で入力するマクロなので、ターゲットしたセルから数えて左右に何番目、上に何番目という指定になっているためです。
それで「単にコピーすればいいじゃん」→あれ?コピーする命令語って何?書式は?と、ここで止まってしまいました。
#ヘルプがヘルプにならないー・・・orz
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで、条件をつけて人数...
-
エクセルのセルで整数のみ選択...
-
excel VBA コピーした行を、指...
-
エクセルVBAで値だけをコピーペ...
-
エクセル 表の人数を計算したい...
-
EXCELで表組って?
-
エクセルの一覧からカードを作...
-
半角の引用符 “ ” の打ち方
-
半角で漢字を??
-
フォルダ名を並び替えても必ず...
-
エクセルの挿入図形で文字が隠...
-
キーボードで英数字の半角と全...
-
「“」と「”」について
-
Yを逆さにした「スターデルタ結...
-
パソコンでダウンロードしたmp4...
-
エクセルで空白を無視して一番...
-
シフトキーを押しての文字入力...
-
エクセルでセル内の0とOを区別...
-
マウスの左ボタンでファイルを...
-
ひらがな入力でのローマ字が全...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのセルで整数のみ選択...
-
エクセルで、条件をつけて人数...
-
エクセルの一覧からカードを作...
-
エクセルの範囲指定について
-
エクセル 表の人数を計算したい...
-
エクセルで複数行に渡ったセル...
-
excel VBA コピーした行を、指...
-
エクセルでテキストからコピペ...
-
AdvancedFilterを使って値のみ...
-
エクセルで一次線形補間する方法
-
エクセル集計ひと月を4週に分...
-
EXCELでコード別の数量・金額を...
-
エクセルで参加者一覧表から参...
-
エクセルで住所一覧から都道府...
-
エクセルVBAで値だけをコピーペ...
-
5円単位の切り上げ関数
-
エクセルのマクロで上のセルの...
-
関数の件
-
エクセルで条件付き書式での複...
-
Excel2007での記入後の英語の小...
おすすめ情報