[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ハイライトモードをトグルボタンでオン・オフ』(たぬき)
下記コードが選択セルの行・列ハイライトコードです。
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
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 Sheet1.ToggleButton1.Value = True Then (???) 2016/06/16(木) 13:24
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.