Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3109 / 76735

←次へ　｜　前へ→


	【79263】Re:チェックボックスがONの場合に選択している行文字を太くする

ペーターパン - 17/6/23(金) 17:59 -


	引用なし

	パスワード

もし、下記のコードをアドインにしようとした場合、どうすればよいでしょうか？
過去の質問に再質問で申し訳ありませんが、何卒宜しくお願い致します。

>▼β さん：
>ありがとうございます。
>
>モジュールレベルで変数を宣言する。
>if not構文で宣言する。
>どちらも今の私ではたどり着けない答えでした。
>
>Worksheet_SelectionChangeの場合、イベント発生の度に変数がどうなっているかよく考えなくてはいけないのですね。
>自分が試しに作ったものだと太字が延々と作られ続けた理由がよくわかりました。
>
>壁にぶつかってまた1つ成長できました。
>これからも精進します。
>
>>▼ペーターパンさん：
>>
>>元々アップしたコードの Cellsを必要行のみにするとどうでしょうか？
>>
>>
>>Option Explicit
>>
>>Dim bLine As Range
>>
>>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>>　　If Not bLine Is Nothing Then
>>　　　　bLine.Font.Bold = False
>>　　　　Set bLine = Nothing
>>　　End If
>>　　If CheckBoxes("ChkBx1").Value = xlOn Then
>>　　　　Selection.EntireRow.Font.Bold = True
>>　　　　Set bLine = Selection.EntireRow
>>　　End If
>>End Sub

1 hits

▼

【79010】チェックボックスがONの場合に選択している行文字を太くする ペーターパン 17/4/14(金) 12:07