質問: エクセル クリックして塗りつぶし 希望のセルの所を、1度クリックすれば黄色、2度目クリックすると青、 3度目のクリックで解除と言ったことは可能でしょうか? 可能であれば方法を教えてください。
回答: 「セルのクリック」と言うイベントが無いので、ダブルクリックの場合です。 対象シートのモジュールにコピーしてください。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = xlColorIndexNone, 6, IIf(Target.Interior.ColorIndex = 6, 5, xlColorIndexNone)) End Sub