|
セルの範囲を指定して,左側の列から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つほど作る予定です.
マクロ記録をもとに作ってみましたが,間違いもあるかと思います.
それを含め,このコードをどの部分で活用すると思った処理に
なりますでしょうか?よろしくお願いします.
|
|