• ベストアンサー

Excel2016でオレンジ色のセルだけロック

Excel2016のVBAを教えてください。 例えば、A2がオレンジ色の場合はG2まで必ずオレンジで塗りつぶされています。 この時オレンジ色のセルだけロックするということをVBAで行いたい。 この場合のVBAを教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

Sub Test()   Dim c As Range   For Each c In Range("A1:G9")     If c.Interior.Color = 49407 Then       c.Locked = True     Else       c.Locked = False     End If   Next   'シートに保護をかけるのなら   'ActiveSheet.Protect End Sub オレンジ色の値を49407としましたがExcel2016でも確認してくださいね 以下を実行するとイミディエイト ウィンドウに表示されます。 Sub Test2()   Debug.Print Range("A2").Interior.Color End Sub

morinosatou
質問者

お礼

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

関連するQ&A

  • Excel2000 関数でセルに色をつけたい。

    Excel2000を利用しています。 セルの計算結果によってそのセルに色をつけたい(塗りつぶし)と思っています。 関数のみでセルに色をつけることは可能でしょうか? ユーザー関数(マクロやVBAを利用する?)を使わないと無理なのでしょうか。

  • Excel2010 セルのフォントの色

    Excel2010で、任意のセルのフォントの色が「赤」だったら、その列の空のセルに「赤」等のフラグを立てて、条件付きで列に色を付けたい。 VBA等マクロは使えません。 なんとか関数で対応したいと思っています。 ご教示方、よろしくおねがいします。

  • Excel2010 セル選択時の行番号のオレンジ色

    Excel2010使用者です(Windows7) セルを選択すると、行番号や列番号の背景がオレンジ色になりますよね。この色は別の色に変えられないのでしょうか。 ちょっと派手すぎて、目にチカチカくるもので… エクセルの問題でなく、Windowsの問題という予感もしますが。(^^;) お詳しい方、よろしくお願いします。

  • 空白セルと行に色をつけるVBA Excel2010

    VBAの超初心者です。 条件が一致した時に、セルの背景を黄色にしたいのですが、VBAで教えて下さいませんか? D1が空白セルの場合には、C1のみを黄色。 D1とB1の両方が空白の場合は、A1からC1を黄色にしたいのです。 尚、行はどんどん増えて行く予定です。 「条件付き書式」では考えておりません。 よろしくお願いします。

  • Excelのセルのロックについて

    Excel2000でワークシートとブックのロックはできますが 1つのセルの編集を不可にするということはできないので しょうか?VBAの知識があればできるのかなーとも思いますが、具体的な方法を誰か教えてください。

  • (EXCEL)CELLの条件付き書式で色をつけたセルをカウントする。

    (EXCEL)CELLの条件付き書式で色をつけたセルをカウントしたいのですが、適切なVBAはありますか?私はVBAは初心者中の初心者です。よろしくお願いします。

  • EXCEL2000ある条件で指定セルへ移動させたい

    EXCEL2000を使用しています。 行いたいことは、例えば、a2に"対象"と入力したら、d2にセルが飛び、セルの色が赤くなり、"対象にした理由を入力ください"とメッセージを出したいです。 VBAでも構いませんが、あまり得意ではなので、なるべくVBA以外の方法をお教え頂ければと思います。 どうぞよろしくお願い致します。

  • 特定のセルを選択すると別のセルを塗りつぶす方法

    ①セルC5:C36の範囲のどこかを選択していると、セルB3:E3(結合されたセル)とセルB4のセルをオレンジ色に塗りつぶし、範囲以外の場所になると塗りつぶしを解除するVBAなどはどの様にすれば宜しいでしょうか? ②セルE5:E36の範囲のどこかを選択していると、セルB3:E3(結合されたセル)とセルE4のセルをオレンジ色に塗りつぶす方法を追加する場合はどうすれば宜しいでしょうか?選択範囲外になると塗りつぶしは解除させます。 ③セルG5:G36の範囲のどこかを選択していると、セルG3:I3(結合されたセル)とセルG4のセルをオレンジ色に塗りつぶす方法を追加する場合はどうすれば宜しいでしょうか?選択範囲外になると塗りつぶしは解除させます。

  • セルの色で並び替えをするには

    Excel2003を使用し、セルの色で並び替えをする際の VBAの組み方かプログラムを教えて下さい。

  • Excel2003でセルの色で並び替え

    Excel2007ではセルの色で並び替えが出来るようになったようですが、2003では出来ないでしょうか?データを区別するのに、セルに色付け(一色)してたのですが、色付けしたものと処理してないもの、あるいは処理日付の新しいもの等で並び替えは出来ないでしょうか? 宜しくご教示下さい。

専門家に質問してみよう