Excel VBAで数値入力時に式を書き込む方法

2014/11/24 11:15

このQ&Aのポイント

Excel VBAを使用して、数値が入力されたら別の2つのセルに式を自動的に書き込む方法を教えてください。
マクロを使用して、B10に4桁の数値が入力された場合、C10に「=RSS|'入力された数値.t'!更新済」という式を書き込みます。また、同時にL10には「=E10*D10」という式を自動的に書き込みます。
さらに、もしB10の数値が削除された場合は、C10からL10までのデータをすべて削除します。

maamaa
お礼率85% (274/322)

Excel（エクセル）
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

tom04
ベストアンサー率49% (2537/5117)

2014/11/24 11:41 回答No.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

質問者

お礼 2014/11/24 12:02

tom04様昨晩に引き続き教えてもらえて大変うれしいです。実は密かに期待しておりました昨晩教えてもらったのと合わせて、これですべてのケースに対応できるようになりましたお陰様でマクロは１００％完成です２回続けて、しかも、あっという間に教えてもらえて大変恐縮ですありがとうございました。深く感謝いたします。

ログインすると、全ての回答が全文表示されます。