[[20120123101851]]　『条件によって色を変える』（pc123）　ページの最後に飛ぶ

『条件によって色を変える』（pc123）

セル（N180）の条件によって、オートシェィプの枠の色の切替をしたいのですが、
ＷＥＢを検索してもよく分かりません、素人の説明で申し訳ありませんが、
分かる方、ご指導お願いします。

数値　1　枠を黒表示
　　　2　枠を白表示

オートシェィプをクリックするたび、色変更（下記参照）までは、作成したのですが
その次のステップが分かりません、よろしくお願いします。

Sub 色変更()

     With ActiveSheet.Shapes.Range(Application.Caller)
      Select Case .Line.ForeColor.SchemeColor
        Case Is = 9
          .Line.ForeColor.SchemeColor = 8
        Case Else
          .Line.ForeColor.SchemeColor = 9
      End Select
    End With
End Sub

WinXP Excel(2007or2003)

 N180セルの条件やオートシェイプ名がわからないので、
 N180の値が100以上、オートシェイプ名を「Rectangle 1」（四角形1）としています。

 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    With ActiveSheet.Shapes("Rectangle 1")
        If Range("N180") >= 100 Then
            .Line.ForeColor.SchemeColor = 8
        Else
            .Line.ForeColor.SchemeColor = 9
        End If
    End With

 End Sub

 VBEのThisWorkbook内に入れてください。

 (Miki)

(MiKi)さん
ありがとうございます。
動きました。

コードを書いて頂いてとても助かりました。

コメント返信：

[ 一覧(最新更新順) ]

[[20120123101851]] 『条件によって色を変える』（pc123） ページの最後に飛ぶ

[[20120123101851]]　『条件によって色を変える』（pc123）　ページの最後に飛ぶ