| |
セルの範囲を指定して，左側の列から1つずつ，セルに対しての条件分岐をして
その結果を別のシートのオートシェイプに反映したい（赤で塗りつぶす）と考えています．
動作としては，指定された範囲の任意のセルに数値が入力されると，その数値によって
オートシェイプの色が変わるということになるのですが，VBA初心者のため
functionまたはsubでの方法を含めて，教えていただけると幸いです．
自分なりに考えたコードを下に記述します．
Function pp(range1 As range) As String
Dim i As Interger
For i=1 to 9
Select Case range1.cells(i)
Case 1
Sheets("反映シート").Select
ActiveSheet.Shapes("pp001").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
End Select
Next i
End Function
range1については，1行指定で複数列となります．
このような感じで，反映シートのオートシェイプ（pp001〜009まで）の
塗りつぶしをしていきたいのですが・・・
分岐条件は1つしか書いていませんが，3つほど作る予定です．
マクロ記録をもとに作ってみましたが，間違いもあるかと思います．
それを含め，このコードをどの部分で活用すると思った処理に
なりますでしょうか？よろしくお願いします．
|
|
たけ
- 09/5/12(火) 13:11 -
