[[20160616130032]]　『ハイライトモードをトグルボタンでオン・オフ』（たぬき）　ページの最後に飛ぶ

『ハイライトモードをトグルボタンでオン・オフ』（たぬき）

下記コードが選択セルの行・列ハイライトコードです。

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

  Dim highlight As Integer

  highlight = 7
  Cells.Interior.ColorIndex = 0
  Rows(Target.Row).Interior.ColorIndex = highlight
  Columns(Target.Column).Interior.ColorIndex = highlight

End Sub

これをトグルボタンがオンの時に動作するようにしたいのですが、
トグルボタンの状態を取得するのが上手くできないです。

下記はトグルボタンのコードです。

Private Sub ToggleButton1_Click()

    With ToggleButton1
        If ToggleButton1.value = True Then
            'トグルボタンONの処理
            .Caption = "ON"
        Else
            'トグルボタンOFFの処理
            .Caption = "OFF"
        End If
    End With
End Sub

ハイライトのコードにも
If ToggleButton1.value = True Then　を追加すれば昨日するかと思ったのですが、うまくいきませんでした。

if分で構成するのは間違ってないかなと思うのですが、
どこを直すといいかわかる方よければ教えてください。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 そもそもトグルボタンはどこに設置しているのか？
（ねむねむ） 2016/06/16(木) 13:15

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

    Dim highlight As Integer
    If ActiveSheet.ToggleButton1.Value = True Then
      highlight = 7
      Cells.Interior.ColorIndex = 0
      Rows(Target.Row).Interior.ColorIndex = highlight
      Columns(Target.Column).Interior.ColorIndex = highlight
    End If
End Sub
（mm） 2016/06/16(木) 13:19

全てのシートにトグルボタンを置いたわけではないならば、こんなIf文で。

    If Sheet1.ToggleButton1.Value = True Then
（???） 2016/06/16(木) 13:24

コメント返信：

[ 一覧(最新更新順) ]

[[20160616130032]] 『ハイライトモードをトグルボタンでオン・オフ』（たぬき） ページの最後に飛ぶ

[[20160616130032]]　『ハイライトモードをトグルボタンでオン・オフ』（たぬき）　ページの最後に飛ぶ