- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：数値が入力されたら別の２つのセルに式を書き込みたい）
Excel VBAで数値入力時に式を書き込む方法
このQ&Aのポイント
- Excel VBAを使用して、数値が入力されたら別の2つのセルに式を自動的に書き込む方法を教えてください。
- マクロを使用して、B10に4桁の数値が入力された場合、C10に「=RSS|'入力された数値.t'!更新済」という式を書き込みます。また、同時にL10には「=E10*D10」という式を自動的に書き込みます。
- さらに、もしB10の数値が削除された場合は、C10からL10までのデータをすべて削除します。
- maamaa
- お礼率85% (274/322)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは！ 10行目限定だとして・・・ Private Sub Worksheet_Change(ByVal Target As Range) Dim str As String If Target.Address = "$B$10" Then If Target <> "" Then If IsNumeric(Target) And Target > 999 And Target < 10000 Then Application.DisplayAlerts = False str = "=RSS|'" & Target & ".t'!更新済" Range("C10").Formula = str Range("L10").Formula = "=D10*E10" Application.DisplayAlerts = True End If Else Range("C10:L10").ClearContents End If End If End Sub こんなんではどうでしょうか？m(_ _)m
お礼
tom04様 昨晩に引き続き教えてもらえて大変うれしいです。実は密かに期待しておりました 昨晩教えてもらったのと合わせて、これですべてのケースに対応できるようになりました お陰様でマクロは１００％完成です ２回続けて、しかも、あっという間に教えてもらえて大変恐縮です ありがとうございました。深く感謝いたします。