| |
▼ペーターパン さん：
もう、ご覧にならないかもしれませんが。
そういうことだったんですか。
要件をすっかり誤解していました。
であれば、以下の２つの方法が考えられます。
１．任意の行が選択されたときに、その時点のチェックボックスの選択の状態をみて
チェックが入っていたら、選択された行を太字にする。
チェックボックスにはマクロ登録をしません。していれば消してください。
で、シートモジュールに。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Font.Bold = False
If CheckBoxes("チェック 1").Value = xlOn Then '★
Selection.EntireRow.Font.Bold = True
End If
End Sub
★のところ、実際のコントロール名に直してください。
２．チェックボックスにチェックが入った時点で、その時に選択されていた行を太字にする。
（これは、やってみると、操作が面倒というか、スムーズじゃないなと思いましたが）
シートモジュールは使いません。記述があれば消してください。
標準モジュールに以下のマクロを書き、チェックボックスにマクロ登録します。
Sub Test()
Cells.Font.Bold = False
If ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn Then Selection.EntireRow.Font.Bold = True
End Sub
|
|
β
- 17/4/19(水) 17:07 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
