| |
▼neptune さん：
こんばんは
>>１．任意のセルに入力後，別のシートのオートシェイプの塗りつぶしを実行する
>どのようなタイミングでと言うのが抜けていますが、これは問題ないのですね？
Private Sub Worksheet_Change(ByVal Target As Range)
色々調べて，上記で対応するのがよいのかなぁと思います．
>>２．どこに記述すると思ったように動くのか
>複数のシートから１つプロシージャを呼び出す場合はそのプロシージャの
>スコープを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が入力された後，
オートシェイプの塗りつぶしには反映されていません(>_<)
|
|
たけ
- 09/5/12(火) 21:27 -
