| |
先ほど
こんな回答（原文のまま）を書き込んだ後、S1に「が」と入れたらろくに動かないんですよね？
--------------
里 さん、つんさん、ぴかるさん、こんにちは。
邪道でございますでしょうか？
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$S$1" Then Exit Sub 'つんさんのコピペ改
Application.EnableEvents = False
Range("IV1").Value = Range("S1").Value
Range("IV1").AutoFill Destination:=Range("IV1:IV5"), Type:=xlFillDefault
Range("A3").Value = Range("IV2").Value
Range("B3").Value = Range("IV3").Value
Range("B4").Value = Range("IV4").Value
Range("IV1:IV5").ClearContents
Application.EnableEvents = True
End Sub
--------------
試しにセルに「が」と入れてフィルしたら全部「が」でした。
あれっ、もしかしたら自分で「オプション→ユーザー設定」に追加したんだっけと思って、即効で消させてもらいました。
いや〜、
自分のＰＣで出来るからといって（設定変更したのを忘れて）まんま回答するのはまずいですよね！
あぶないあぶない。
話し変わっちゃいますが、
りん様へ
もうすぐ５月になっちゃいますけど....。
|
|
