いつも皆様には大変お世話になっております。

早速ですが、VBAでセルをクリック(もしくはダブルクリック)するとそのセルの色が変わるといったようなマクロが組めるでしょうか。
色を変えたいのは、A1~A4までの4個のうち1個だけなのでA1がクリックされればA2~A4までは『色なし』にしたいのです。
そんなことは出来るでしょうか?
よろしくお願いいたします。

A 回答 (2件)

「クリックすると」というイベントを拾う方法がわからないので、ダブルクリックすると、にしてみました。



シートタブを右クリックして「コードの表示」を選択するとVBAの画面が出るので、右の白いところに以下のマクロをコピーして貼り付けてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim Rng As Range, myRng As Range
 Set Rng = Range("A1:A4")
 Set myRng = Intersect(Target, Rng)
 If myRng Is Nothing Then Exit Sub
 Rng.Interior.ColorIndex = xlColorIndexNone
 myRng.Interior.ColorIndex = 5
 Cancel = True
End Sub

これで、A1からA4までのどれかをダブルクリックすると、そのセルが青くなります。色を変えたいときは、上の「5」という数字を適当に変えてください。(VBAのヘルプで「ColorIndex」で検索すると、数値と色の対応表が出てきます)

なお、普通はダブルクリックするとそのセルは入力状態になりますが、上のマクロではならないようにしています。ダブルクリックして色を変えた後、そのセルを入力状態にするのであれば、最後の
 Cancel = True
を削除してください。
    • good
    • 0
この回答へのお礼

早速のお返事ありがとうございます。
皆様すごいですね 『普通はダブルクリックするとそのセルは入力状態になりますが』
これを止めることが出来るとは思っていませんでした
またこれを参考にがんばってみます
ありがとうございました。

お礼日時:2007/03/30 09:59

こんにちは。



1. シート選択タブ上で右クリック[コードの表示]
2. 下記のコードをコピー&ペースト

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  ' 動作させるセルのアドレス
  Const ADDR As String = "A1:A4"
  ' 着色するセル背景色のカラーインデックス
  Const CIDX As Long = 36
  
  If Union(Target, Range(ADDR)).Address(0, 0) = ADDR Then
    If Target.Count = 1 Then
     Range(ADDR).Interior.ColorIndex = xlColorIndexNone
     Target.Interior.ColorIndex = CIDX
    End If
  End If

End Sub
    • good
    • 0
この回答へのお礼

早速の返事ありがとうございます
お~!! すごいです!!
ばっちり望んでいたものです!!
またこれを参考に色々と作ってみます!
本当にありがとうございました

お礼日時:2007/03/30 09:55

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

今、見られている記事はコレ!

  • 縦書きと横書きはどちらが読みやすい?

    普段何気なく読んでいる文章ですが、縦書きか横書きか、意識したことはありますか?制作側としては読み手はどちらの方が読みやすいと思うかはとても大きな問題です。教えて!gooには、 「『横書き』と『縦書き』、...

  • 昭和の日ってどういう日?

    ゴールデンウィーク初日の4月29日は「昭和の日」です。今や平成生まれの人も多い時代ですが、「なぜ昭和の日があるの?」という疑問をもったことはありませんか?和暦を挙げるのなら、大正の日、明治の日、平成の日...

  • Excelの意外な使い方とは?

    会社のパソコンに必ず入っている、と言っても過言ではない、Office系ソフトの「Word」と「Excel」。PCを使う職場にいた方なら、一度は触ったことがあるかと思います。Wordは仕事以外に使う方法がすぐ浮かびそうです...

  • 既婚者なのに他の女性に手を出すダメ男を好きになりました

    不倫やダメ男との交際など、幸せになれない恋愛に悩む人は多い。「教えて!goo」にもとある女性より、「ダメ男を好きになりました!!彼のダメなとこ!」というタイトルの質問が寄せられていた。相手はバイト先の上司...

  • せきらら女子会:第109話「英会話を習っている理由」

    恋愛、結婚、お金、夜の営み...いろんなことに対して、赤裸々にトークする女の子達のお話。考え方の違う4人が、今日も居酒屋に集まります。

おしトピ編集部からのゆる~い質問を出題中

お題をもっとみる

このQ&Aを見た人が検索しているワード


このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ