[[20050704113823]]　『選択すると文字が太くなるように』（ぽこ）　ページの最後に飛ぶ

『選択すると文字が太くなるように』（ぽこ）

選択すると文字が太くなって、色が付くようにしたいのですが
どうしたらいいですか？

 選択とは？
 セルの書式設定 → フォント
 とは違うんでしょうね、、、

 （キリキ）(〃⌒o⌒)b

例えば、（有）：（無）だとすると、（有）をクリックすると太字になって色もつくようにしたいんです

 シートモジュールにコピペしてみてください。
 ダブルクリックで、赤の太字になります。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Target.Font.ColorIndex = -4105 Then
         Target.Font.Bold = True
         Target.Font.ColorIndex = 3  '←色は適当に変更してください。
     Else
         Target.Font.Bold = False
         Target.Font.ColorIndex = 0
     End If
 End Sub

 色は、とりあえず "赤" にしてあります。
 （キリキ）(〃⌒o⌒)b

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

コメント返信：

[ 一覧(最新更新順) ]

[[20050704113823]] 『選択すると文字が太くなるように』（ぽこ） ページの最後に飛ぶ

[[20050704113823]]　『選択すると文字が太くなるように』（ぽこ）　ページの最後に飛ぶ