• 締切済み

マクロ　エクセル

エクセルでボタンを押したらセルに色が付いてもう一度同じボタンを押したらそのセルの色が消えるというマクロは簡単に作れるものですか？ 教えてください！

みんなの回答

  • NCU
  • ベストアンサー率10% (32/318)
回答No.2

フォームのチェックボックスのリンクセルの値によって条件付書式で色を変えるようにすれば、マクロなしで可能です。

  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.1

操作を行いたいシートの見出しを右クリックして「コードの表示」で開かれる画面に下記のコードをコピーして閉じてください。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 6 Else Selection.Interior.ColorIndex = xlNone End If End Sub セルをダブルクリックすると黄色（ColorIndex = 6）になり もう一度ダブルクリックすると無色（ColorIndex = xlNone）になります。 上記をボタンで操作したいなら、ボタンを作成後にダブルクリックすると Private Sub CommandButton1_Click() End Sub というコードが作成されます。（CommandButton1は毎回違います。） ここに上記のマクロの中（If文）だけをコピーしてください。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルのマクロについて

    初心者の私ですが、エクセルでマクロについて教えていただきたいのですが、 質問1：コマンドボタン1をL6セルに作成。ボタン1(名称は”未”)をクリックするとF6からK6のセルが赤色反転する。さらにボタン名称が”済”に変わる。もう一度ボタン1を押すとセルの色は元に戻りボタン名称が”未”に戻る。このようなボタンは作成できますか？ 質問２：さらに、そのボタンをシート内に多数作成したいのですが、コマンドボタン2をL7セルに作成。ボタン2(名称は”未”)をクリックするとF7からK7のセルが赤色反転する。さらにボタン名称が”済”に変わる。もう一度ボタン2を押すとセルの色は元に戻りボタン名称が”未”に戻る。コマンドボタン3をL8セルに作成。ボタン3(名称は”未”)をクリックするとF8からK8のセルが赤色反転する。さらにボタン名称が”済”に変わる。もう一度ボタン3を押すとセルの色は元に戻りボタン名称が”未”に戻る。・・・くりかえし・・・コマンドボタン250をL255セルに作成。ボタン250(名称は”未”)をクリックするとF255からK255のセルが赤色反転する。さらにボタン名称が”済”に変わる。もう一度ボタン250を押すとセルの色は元に戻りボタン名称が”未”に戻る。という具合にコピーしたいのですが、簡単な方法はありますか？

  • エクセルのマクロでセルに色を付けたい

    エクセルでセルに色を付けるマクロを作る場合の 色の選択なのですが、特定の色を付けるのではなく、 そのマクロを実行した時に選択されている 「塗りつぶしの色」のボタンのバケツの色にするには どうしたら良いでしょうか？ よろしくお願いいたします。

  • エクセルでのマクロ作成

    エクセルで作成したボタンをクリックすると以下の事を行うマクロを作りたいと思っています。 (1)最初に貼り付けたいセルの範囲をドラッグで選択する。（手動） (2)マクロを登録したボタンを押す。 (3)マクロ内で指定したセル（たとえば $A$1）をコピーして、(2)でボタンを押してマクロを実行する前に(1)で選択したセルの範囲に貼り付ける。 ＶＢＡが分からないので難儀しています。 宜しくお願いします。

  • エクセルのマクロ

    エクセルのマクロを使いA行のセルの日付が今日の日付より30日以内のときはセルの色を赤くするにはどうすればよいのでしょうか？

  • エクセルのマクロについて

    エクセルのマクロ実行についてですが、 例えば、 E1セルの値が1ならばこうする（マクロ名　E1セル1） E2セルの値が2ならばこうする（マクロ名　E1セル2） E3セルの値が3ならばこうする（マクロ名　E1セル3） というマクロを別々に作りました。 これをボタンで実行する時に、 If Range("E1").Value = 1 Then ElseIf Range("E1").Value = 2 Then 2行目には作ったマクロを全部貼り付けないといけないのでしょうか？ それとも簡単にこの場合は、マクロ名E1セル1を実行するという命令することができるのでしょうか？ できるのであれば、入力方法を教えてください。 質問が分かりにくいと思いますが、よろしくお願いします。

  • エクセルのマクロに付いて教えてください。

    エクセルのマクロに付いて教えてください。 コマンドボタンで、A1セルに１と表示されたときにはSheet1へ、A1セルに２と表示されたときにはSheet２へ移動出来るようにしたいのですが、どうしても分かりません。 諸先生方のお知恵を拝借したいです。よろしくお願いします。

  • エクセルマクロ　「１０１」　ボタンをおして　「１０２」となるマクロ？

    エクセルです。 一つのセル（Ａ４）に「１０１」と書いてあります。それをVlookup関数で他のシートから一致する情報を取り出しています。次に同じセルに「１０２」とうつと、同じように一致する情報を取り出しています。 そこで、一回、一回、セルに１０２や１０３と打つのではなく、ボタンを押すと次の番号にうつるようなマクロを組みたいと思ってます。 ただ、１０１～１３０　次は、２０１～２３１みたいになってます。 一つのマクロでなくても良いので、よろしくお願いします。 最初は、 Range("A4").select　 セルＡ４を選択　だと思うのですが、この次から分かりません。

  • エクセルマクロのコードを隠す

    とあるExcel2003で開けるxlsファイルを貰いました。 セルに値を入力すると、セルの背景の色が変わります。 そういうマクロを組んでいるんだと思ったのですが、 シートに対して「コードを表示する」で見ても何も書かれていません。 プロジェクト欄にはこのシートと[ThisWorkbook]しかなく、 [ThisWorkbook]にも何も書かれていません。 組んだマクロのコードを何かして隠しているのでしょうか？ それともエクセルの設定でそのようなことが可能なのでしょうか。

  • エクセルのマクロについて教えてください

    エクセルで、その行の中に赤色のセルがある場合は、その行のA列のセルに"○"を入れるというのは、マクロで書く場合はどのように書けばよいでしょうか。 行は1～100まで、列はA～Zまであります。赤色のセルはB列～Z列の所々に点在します。

  • エクセル　ボタンへのマクロのやり方

    エクセルを使用して、エクセル内に作成した"ボタン"をクリックすると指定のURLへ飛べるようにしたいのですが、どうやったらいいのでしょうか？ 通常セル内に文字を入力してハイパーリンクをやればURLに飛べると思いますが、"ボタン"を付けた場合右クリックをしてもハイパーリンクの文字が出てきません。 マクロを使えば出来ると思うのですが、マクロもホントのホントに初心者なのでよく分かりません。 どなたか詳しく教えて頂けないでしょうか。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する