• 締切済み

エクセルVBAセルの色

前回の作成の作業スケジュールで、作業時間をセルの色で塗りました。 そこで、空白の時間帯を非表示にしたいと思います。 エクセルVBAにて、セルの色が空白ならその列を非表示にすることは可能でしょうか。 EntireColumn.Hidden = True　あたりで表現できないでしょうか。 よろしくお願いします。

noname#106445
noname#106445

みんなの回答

  • kenpon24
  • ベストアンサー率64% (66/102)
回答No.1

セルの背景色は Rangeオブジェクト.Interior.ColorIndexで取得できるので、空白セルの 背景色を取得してみれば条件をつけれるんじゃないですか？ 非表示のコードはそれで合ってるので。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. Windows
  4. Windows XP

関連するQ&A

  • エクセル　VBA　ある条件でセルに色をつけたいのですが、

    エクセル　VBA　ある条件でセルに色をつけたいのですが、 例えば、A2からA50に文字列が入っていて、ある処理を終えると、空白を除くセルに薄い水色（33）をつけます。ここまでは、VBAで作成できました。 次に、空白を除くセルが、すべて薄い水色になったら、A1を薄い黄（36）にしたいのです。 教えてください。よろしくお願いします。

  • エクセルVBAで非表示にする方法

    エクセルのVBAを使って表示・非表示の切り替えをする方法を教えてください。 マクロは初心者のため、コードを書いていただけると嬉しいです。 (1)6～9行目、11～14行目、16～19行目…151～154行目まで を表示・非表示 (2)合計列・差額列 (列に名前を入れています。ABCなどどの列に入るかはケースによりかわります) 今のところ、 Rows("6:9").Hidden = True Rows("11:14").Hidden = True Rows("16:19").Hidden = True . . . Columns("Q:R").Hidden = True で誤魔化していますが、時間がかかりますし、列はその都度設定している状況です。 ご指導お願いします。

  • エクセルVBA・空白セルのある列を非表示にするには？

    エクセルのVBAについてです！ 表で上から2行目（G2:CX2）に空欄があった場合、その列を非表示にする、 というマクロを組みたくて、以下のように書いてみました。 一応、ちゃんと動くのですが、止まる（結果が出る）までにやたらと時間がかかり、これでは使えません。。 本を見ながら何となく書いたので、自身では詳しくわかりません。 どこ（何）がおかしくて、どう書き換えたらよいか、お分かりになる方、ぜひ教えてください！ よろしくお願い致します。 ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・ Sub 空欄のある列を非表示にする() Dim cl As Range Range("G2:CX2").SpecialCells(xlCellTypeBlanks).Select For Each cl In Selection r = cl.Column 'MsgBox r Columns(r).EntireColumn.Hidden = True Next End Sub ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

  • エクセル2003 VBAで　セル内を　一発呼び出し

    エクセル2003 オートフィルタではなく　VBAで　セル内を　一発呼び出ししたいので。　 よろしく　お願いします。 表　列A~E（結合２行）　：商品名と内容　　　列H~K（結合２行）　住所氏名電話番号を記載してます。 １年分を　オートフィルターで　　氏名　や　商品名で　探すのは　結構　時間がかかります。 同じものが　ほぼ少ないため。。。 そこで　　たまに　同じ氏名　　同じような　品を　検索する　セルを　２個ほど作って　　そこへ セル１へ　商品名を入力すると　　該当する　行のみ　表示される。 セル２に　名前をを入力すると　　該当する　行のみ　表示される。 また、セルを赤色に塗った部分の結合行（２～３行）を　赤色に塗りつぶした行のみ　表示も できれば　うれしいです。 コマンドボタン等を使ってもいいので　お願いします。 そんな　VBAを　作っていただけませんでしょうか＾＾； お手数おかけしますが どなたか よろしく　お願いします。　

  • エクセル2007です。セルの塗りつぶしを自動に実行するＶＢＡについて、

    エクセル2007です。セルの塗りつぶしを自動に実行するＶＢＡについて教えてください。システム日付でＶＢＡを使用したいのですが横軸に日付（2010/1/1～2015/12/31）、縦軸に時間（0～24まで）があるシートです。日付と時間がマッチしたところのセルを緑色に塗りつぶしたいと思います（スケジュール表を作成中です）。ＶＢＡ初心者ですが、記述等教えていただきたいと思います。よろしくお願いします。

  • エクセルＶＢＡでセルに色を付けるには

    エクセル2010の質問です。 例えばＡ列に入力した文字のバイト数が38より多い場合、セルに色を付けたいのです。 条件付き書式で　=LENB($A2:$A1048576)>38　でもよかったのですが シート内のデータをクリアすると条件付き書式までクリアされてしまい困っています。 ＶＢＡで出来るのが一番なのかなと思っていますが、ご教授お願い致します。

  • エクセルVBAで該当するセルに色をつけたい

    ご覧いただき、ありがとうございます。 当方、VBA初心者です。 エクセルVBAで、「対象の社名」に該当するセルに色をつけたいと思っています。 それぞれ別シートになります。 たとえば、abc(株)が対象なら、 1.(株)は(株)や株式会社など表記がバラバラなので取る⇒abcの文字列が検索対象 2.「検索シート」にあるabcを検索 3.対象のセルに色をつける 4.文字列がある限り（この場合は○がついている部分はずっと）検索続ける ※○の数式はつけた方が探しやすいと思って作ったので、なくても構いません わかりづらい文章ですみません。 ぜひお知恵を貸してください＞＜

  • エクセルで縦方向のオートフィルタはできないので、

    E4～Z4セルに、その列を表示させる場合は１を、させない場合は０が立つようにして If Range("E4").Value = 0 Then Columns("E:E").Select Selection.EntireColumn.Hidden = True End If If Range("F4").Value = 0 Then Columns("F:F").Select Selection.EntireColumn.Hidden = True End If とZまで繰り返したマクロにしてみたらできましたが、 例えばDD列まであるような横長の表の場合、とても長いマクロになってしまいます。 もっとすっきりとしたものにできるでしょうか。 エクセル2003使用のマクロ初心者です。 よろしくお願いします。

  • 二つの行のうち、どちらかが、セルの値がゼロのとき、その列を非表示にする

    二つの行のうち、どちらかが、セルの値がゼロのとき、その列を非表示にする windows7 excelでマクロ作成中の初心者です。 以下のコードで27行目のセルの値が0のとき列を非表示にします。 Private Sub 列非表示_Click() Dim 列番号 As Long 'シートが保護されていたら保護を解除 Worksheets("最新明細").Activate If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect End If For 列番号 = 4 To 33 If Cells(27, 列番号).Value = 0 Then Cells(27, 列番号).EntireColumn.Hidden = True End If Next 列番号 ActiveSheet.Protect End Sub ------------------------------------------------- Private Sub 列表示_Click() Dim 列番号 As Long 'シートが保護されていたら保護を解除 Worksheets("最新明細").Activate If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect End If For 列番号 = 4 To 33 If Cells(27, 列番号).Value = 0 Then Cells(27, 列番号).EntireColumn.Hidden = False End If Next 列番号 ActiveSheet.Protect End Sub この27行と、もう一行の28行、どちらかの行が、0のときに列を非表示・表示したいのですが、出来ません。 試行錯誤してもできないのです。どうかよろしくおねがいします。 For 列番号 = 4 To 33 If Cells(27, 列番号).Value = 0 or Cells(28, 列番号).Value = 0 Then or( Cells(27, 列番号).EntireColumn.Hidden = True, Cells(27, 列番号).EntireColumn.Hidden = True) End If

  • Excel VBAでセルの整列

    Excel VBAでセルの整列 現在、VBAを勉強中の者です。 最近、勉強を始めたばかりですが、この前何とかVBAを用いてセルの塗り潰しが出来る様になりました。 そこで、今度は色が塗り潰されたセルを添付した画像のように整列したいと考えていますが、どんな風にすれば良いのか見当がつきません。 誰か、教えてください。 やりたい事は、A列に結合されているセルがいくつか存在していて、B列を挟んでC列にA列に関連する文字が入力されています。 そして、C列には予めセルが塗り潰されている箇所がありますが、今回、C列において塗り潰されているセルのみを、結合されているセルの最終行に移動させたいのです。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する