[[20090521163423]]　『フォームのチェックボックスを使って、シートの見』（とらきち）　ページの最後に飛ぶ

『フォームのチェックボックスを使って、シートの見出しの色を変えたい』（とらきち）

 フォームのチェックボックスを使って、チェックを入れたら、sheet2のタブの色が赤に変わり、
 チェックをはずすと、sheet2のタブの色が「色なし」に戻るには、どうしたら良いでしょうか？？

 コントロールツールボックスのチェックボックスではなくて、
 フォームのチェックボックスを使用したいです。

 よろしくお願いします。

 たとえば、リンクするセルをA1セルにしておくなら
 チェックの状態を確認するコード
Sub 確認()
    With Sheets("Sheet2")
        .Tab.ColorIndex = IIf(Range("A1"), 3, -4142)
    End With
End Sub

 チェックボックスのクリックで色を切り換えるなら
 リンクするセルの設定は不要で
Sub タブ色()
    With Sheets("Sheet2")
        .Tab.ColorIndex = IIf(.Tab.ColorIndex = 3, -4142, 3)
    End With
End Sub

 いずれも、チェックボックスを右クリック→マクロの登録
 で登録して下さい。

 クリックで色を切り換える場合、チェックの状態と反対にしたい場合は
 一度、手作業でタブ色を逆にして下さい。

 (HANA)

ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20090521163423]] 『フォームのチェックボックスを使って、シートの見』（とらきち） ページの最後に飛ぶ

[[20090521163423]]　『フォームのチェックボックスを使って、シートの見』（とらきち）　ページの最後に飛ぶ