|
▼neptune さん:
こんばんは
>>1.任意のセルに入力後,別のシートのオートシェイプの塗りつぶしを実行する
>どのようなタイミングでと言うのが抜けていますが、これは問題ないのですね?
Private Sub Worksheet_Change(ByVal Target As Range)
色々調べて,上記で対応するのがよいのかなぁと思います.
>>2.どこに記述すると思ったように動くのか
>複数のシートから1つプロシージャを呼び出す場合はそのプロシージャの
>スコープをpublicにして普通標準モジュールに書きます。
>このプロシージャは引数を持つものになると思います。
>そうでない場合はワークシートモジュールに書いてもOKです。
ワークシートモジュールでOKのようです.
>#私は、自分からハイどうぞってソースは書きませんから、悪しからず。
>#ソースをUPしてくれたら相談には乗ります。
初回の質問に自分の描くコードを記載しておりました.
(これがソースかどうかは分かりませんけど)
--------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Cells(4, 48).value Then
Select Case Target.Cells
Case 1
Sheets("反映シート").Select
ActiveSheet.Shapes("pp001").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
End Select
End If
Application.EnableEvents = True
End Sub
--------------------------------------------
一つだけつくってみましたが,cells(4,48)に1が入力された後,
オートシェイプの塗りつぶしには反映されていません(>_<)
|
|