Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20673 / 76732 ←次へ | 前へ→

【61472】任意のセルに入力後、オートシェイプに反映させたい
質問  たけ  - 09/5/12(火) 13:11 -

引用なし
パスワード
   セルの範囲を指定して,左側の列から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つほど作る予定です.

マクロ記録をもとに作ってみましたが,間違いもあるかと思います.
それを含め,このコードをどの部分で活用すると思った処理に
なりますでしょうか?よろしくお願いします.

0 hits

【61472】任意のセルに入力後、オートシェイプに反映させたい たけ 09/5/12(火) 13:11 質問
【61473】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/12(火) 13:51 発言
【61474】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/12(火) 14:03 発言
【61475】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/12(火) 16:34 回答
【61477】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/12(火) 21:27 発言
【61479】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/12(火) 23:02 回答
【61488】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/13(水) 12:18 発言
【61492】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/13(水) 14:46 発言
【61502】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/13(水) 22:00 回答
【61512】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/14(木) 9:59 発言
【61522】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/14(木) 13:07 発言
【61524】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/14(木) 13:37 発言
【61528】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/14(木) 16:35 発言
【61539】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/15(金) 13:19 発言
【61543】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/15(金) 16:52 発言
【61564】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/18(月) 21:15 お礼

20673 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free