test1は、A~X列に数字と条件付き書式をセットするマクロですが、途中のセルから色化けします。
原因がお分かりの方はご教授ください。どうもExcel2010のバグのように思われます。
バグならMicrosoftのどこに報告あるいは問い合わせれば良いでしょうか。

Sub test1()
Dim aRow As Long
Dim aCol As Long

With ActiveSheet
For aRow = 1 To 3
For aCol = 1 To 25
.Cells(aRow, aCol).Value = aCol
Call SetFormatConditionOfColor(aRow, aCol, "=1")
Next
Next
End With
End Sub

Public Sub SetFormatConditionOfColor(ByVal aRow As Long, ByVal aCol As Long, ByVal aFormula As String)
With ActiveSheet.Cells(aRow, aCol)
.FormatConditions.Delete

'一致するセル
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:=aFormula
With .FormatConditions(1)
.Font.Color = 0
.Interior.Color = 13434879
End With

'一致しないセル
.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:=aFormula
With .FormatConditions(2)
.Font.Color = 16777215
.Interior.Color = 16767843
End With
End With

End Sub

OS: MS WindowsXP Professional Service Pack3
Excel: Microsoft Office Professional Plus 2010 14.0.5128.5000(32ビット)

このQ&Aに関連する最新のQ&A

A 回答 (2件)

2010のバグでしょうね。



#ver2007では発生しないようですが
#2007以降の条件付き書式はバグの温床みたいで個人的には鬼門認定してます。:)

同じ処理をするには
Sub test2()
  With ActiveSheet.Range("A1").Resize(3, 25)
    .Formula = "=column()"
    .Value = .Value
    With .FormatConditions
      .Delete
      With .Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:="=1")
        .Font.Color = 0
        .Interior.Color = 13434879
      End With
      With .Add(Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=1")
        .Font.Color = 16777215
        .Interior.Color = 16767843
      End With
    End With
  End With
End Sub

のように、同条件で範囲をまとめて設定できる場合はできるだけ
まとめて処理してLoop処理を繰り返さないほうが良いでしょうね。
でも、このtest2自体も
Sub tes3()
  Dim i As Long
  For i = 0 To 30
    With ActiveSheet.Range("A1").Resize(3, 25).Offset(i * 3)


と繰り返してしまうと同じ現象が発生してしまいますね。

で、他の事例で通用するかどうかわかりませんが
一旦、Addしてしまった後に、Index指定で設定したほうが良さそう。
Sub SetFormatConditionOfColor(ByVal aRow As Long, _
               ByVal aCol As Long, _
               ByVal aFormula As String)
  With ActiveSheet.Cells(aRow, aCol).FormatConditions
    .Delete
    .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:=aFormula
    .Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:=aFormula
    With .Item(1)
      .Font.Color = 0
      .Interior.Color = 13434879
    End With
    With .Item(2)
      .Font.Color = 16777215
      .Interior.Color = 16767843
    End With
  End With
End Sub



>バグならMicrosoftのどこに報告あるいは問い合わせれば良いでしょうか。

[マイクロソフト サポート オンライン]
https://support.microsoft.com/oas/default.aspx?& …
参照してください。
>マクロや VBA、Excel ピボットテーブル、サーバー製品との連携機能に関するお問い合わせは、
>無償サポートの対象外となります。
>コミュニティ サイト Microsoft Answers
>または 有償プロフェッショナル サポート をご検討ください。
http://www.microsoft.com/japan/services/support/ …
とあります。

インシデント制ですが、
http://support.microsoft.com/kb/875474/ja
『お客様のお問い合わせの内容が弊社製品の不具合によるものだった場合、インシデントは消費されません。』
だそうです。
私は利用した事がないので、経験談が必要なら他の方のレスを待ってみてください。
    • good
    • 1
この回答へのお礼

詳細なご回答ありがとうございます。
条件付き書式がバグの温床とは初めて知りました。
実際のプログラムではFormulaの部分が"=1"ではなく相対参照を使ったちょっと複雑な数式になっています。
ここで質問した色化けの不具合とは別に、セルをコピーすると相対参照のはずが絶対参照として書式がコピーされてしまうという不具合も生じています。
したがって条件付き書式を使うのは諦めることにしました。レスポンスは落ちますが他の方法を考えることにします。いろいろとありがとうございました。

お礼日時:2011/04/26 14:41

こんにちわ


 
条件付書式をVBAで操作するときは、セルをSelectしないと変になった経験があります。

でも、エクセル2000でしたから参考になるかどうか?
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。
問題のプログラムはエクセル2003までは正常に動作することを確認しています。
2007については未確認です。

お礼日時:2011/04/26 14:43

このQ&Aに関連する人気のQ&A

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

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

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

このQ&Aと関連する良く見られている質問

Q退職願いの書き方

6月に上司がかわりいじめにあっています。夜眠れず会社にいこうとすると吐き気がするようになったので、今日診察したら胃潰瘍かもということで、検査をすることになりました(今日会社近くまでいったときについにもどしてしまい会社に行くことができなくて医者にいったさいに)退職願のかきかたはいつどのようにかけばいいのでしょうか

Aベストアンサー

一身上の都合で、○月○日をもって退社させていただます。と社長あてにだせばよいのです。、○月○日は出す日付の14日後にすればよいのです。就業規則があれば、指定された日付にする。出せば自動的に会社がなんといっても退職がきまります。会社がだめといっても、とりけされることはありません。退職は労働者の保護でもあるのですから。体をこわしてまで仕事する必要はありません。あなかの変わりはありません。会社の変わりはいっはいあります。

Q【EXCEL】条件付き書式、A列、C列、D列、E列が同じ値の時にB列の背景色を変えたい

お世話になります。

エクセルの条件付き書式の数式の使い方について教えて下さい。
A列、C列、D列、E列の値が同じ時にB列のセルの背景を青に
塗りつぶしたいと思っています。

なので、「数式を使用して、書式設定するセルを決定」、
「次の数式を満たす場合に値を書式設定」で、数式を
「=A1=C1=D1=E1」と入力し、書式、塗りつぶし、青、
を選択して、条件付き書式を設定しました。
すると、、、画像のような結果になります。

私の感覚だと画像でセルの値が「11」~「15」の時だけ
B列が青になると思うのですが実際の結果は画像の通りです。

先の話の通りA列、C列、D列、E列の値が同じ時だけ
B列のセルの背景を青にしたい場合はどうい数式になるのでしょうか?

すいませんが、詳しい方、数式(関数?)で説明できる方よろしくお願い致します。

追記
可能でしたらA列、C列、D列、E列が空白の時はB列の背景色をなしにしたいと思っております。
→A列、C列、D列、E列に値があって、かつ同じ値の場合のみB列の背景を青にしたいです。

お世話になります。

エクセルの条件付き書式の数式の使い方について教えて下さい。
A列、C列、D列、E列の値が同じ時にB列のセルの背景を青に
塗りつぶしたいと思っています。

なので、「数式を使用して、書式設定するセルを決定」、
「次の数式を満たす場合に値を書式設定」で、数式を
「=A1=C1=D1=E1」と入力し、書式、塗りつぶし、青、
を選択して、条件付き書式を設定しました。
すると、、、画像のような結果になります。

私の感覚だと画像でセルの値が「11」~「15」の時だけ
B列が青にな...続きを読む

Aベストアンサー

AND関数を使えば判定ができるのでは?
 =AND(A2<>"",A2=C2,C2=D2,D2=E2)

A列には常に判定する数値が入っているなら「A2<>""」は不要です。

参考サイト
http://www.relief.jp/itnote/archives/003940.php

Qセクハラとパワハラが原因の退職願いの書き方

Wハラスメントで「抑うつ状態」に陥り、休業中です。

本社も巻き込んで、調査を進めていましたが「事実は無い」
と判断した会社に愕然としました。
本人や営業所長は、「訴えの事実の一部は忘れてしまってるが
事実です。慰謝料も自己負担で払いますので勘弁してください」と
主人にも謝罪にわざわざ来ておきながら、次の週には
一転!!
「俺も股間を触られた」などありえない言いがかりを本社に
言ってたようで、事実確認を私にせずに「ハラスメントの
事実は無かった!!」と逆に私が悪いように言われました。


なぜ早く相談できなかった?
普通そんな思いを抱いてまで会社に勤務してるのか?
貴方が股間を触ったのは誰も見てもいないけど、本人の
言い分だ!!

そう支店のK次長から言われました。
一方的な調査で、何が調査なんでしょう????

愕然とし、均等室の方と相談し、今後慰謝料を求めて
行くかも検討しましたが、根も葉もない言いがかりを
つけてくる係長、そして係長の意見を最大に聞き入れた
支店や本社には、今後何を言っても無駄だし
治る鬱も治らなくなると思い、慰謝料請求はやめておきました。
悔しいけど・・・
結構会社と争うって精神的に苦労するものです。
ましてやこんな馬鹿げた会社を相手に!!

ただ、許せるものではないので行政指導はしてもらう
事にしました。均等室の方と相談しそうしました。
均等室の方は「強制力はないけどやらせてみてください」と
おっしゃいましたが、精神的に参ってる私を傍らで見てる
主人には申し訳なくて・・・。昇格の目前に控えてる時に
家ではドンヨリした私のお世話・・・
「腹が立って仕方ない!!」と思わせてしまってること。

私さえ元気になれば主人も自分の仕事に集中できるだろうに
こんな事があって、私が眠れない時は夜中の2時3時まで
話を聞かされて、主人にまで大変な思いをさせてしまった事も
あり・・・。
私自身も、それに執着しちゃう自分が恐ろしいことばかり
考えてしまったり、いち早くさっさと忘れて開き直り鬱状態を
治して、転職したほうが利口だと考えました。


そんな会社を辞めるわけですが雇用均等室の方は「退職理由は
会社都合にするよう取り合ってみます」と言ってるのですが
会社からは「退職届を自分で書いてください」と言われました。

通常「一身上の都合」とでも書くのでしょうけど
納得いきませんし「自己都合退社」扱いでは失業手当の待機期間も
あるので困ります。
今は傷病手当のお世話になってますが、いずれ回復し就活を
始めたら困ります。

このような場合、退職届けにはどう書くのが良いのでしょうか?

良いお知恵をくださいませ。

Wハラスメントで「抑うつ状態」に陥り、休業中です。

本社も巻き込んで、調査を進めていましたが「事実は無い」
と判断した会社に愕然としました。
本人や営業所長は、「訴えの事実の一部は忘れてしまってるが
事実です。慰謝料も自己負担で払いますので勘弁してください」と
主人にも謝罪にわざわざ来ておきながら、次の週には
一転!!
「俺も股間を触られた」などありえない言いがかりを本社に
言ってたようで、事実確認を私にせずに「ハラスメントの
事実は無かった!!」と逆に私が悪いように言われました...続きを読む

Aベストアンサー

前の続きですね。具体的に何て書いたか忘れました。リンクを貼ってもらえると。

それはさておき、原則、退職届は出しません。出したら負けです。
出した時点で会社都合は消滅しますから、均等室の努力も無になります。
休職中でしたっけ?
何にしても放置でしょう。
会社の不法行為により出社できません、かなんか言って、休職でも単なる欠勤でもしてればいいです。
そのうちに会社は解雇せざるを得なくなります。社会保険料払わなければならないし、欠勤している人間をいつまでも残しておく事もできませんし、退職届が出ない以上、自己都合による退職にもできません。
欠勤が続けば合法的に解雇できますから、解雇にするでしょう、順当に行けば。(時々へそ曲がりの社長がいますけどね)

あなたはやめたつもりで構いません。傷病手当金が終わったら、求職活動するなり、もう少し静養するなり好きにしていいです。
会社が離職票とかすんなり送ってくるかどうかは何ともですが、五分五分で書類仕事だけはするでしょう。

QExcel2010 条件付き書式の 列コピーについて

下記の表は、年間の中で週ごとの売上指数を示したものです。
(表は行に52週、列に果物300品が続きます)
指数の上位20%がどこの週で 売上が上がるのかわかるよう、色づけしたいと考えています。
そして果物が300個(列)あるので、条件書式を1つづつ付けるはつらいです。

なので、コピーしたいのですが、うまくいきません。

どのようにコピーしたらよいでしょうか。

先週から色々調べているのですが、わからず、質問させていただきます。
どうぞよろしくお願いいたします。

Aベストアンサー

書式のコピーはセルをコピペすれば済みますよ。

A1セルに「=A1>1」と数式を使って書式設定をしている場合は、
B1セルにコピーすると自動的に「=B1>1」になります。
 ※相対参照と絶対参照の関係を理解しておきましょう。
…てかこの場合はA1セルとB1セルを選択して、A1セルに入力できる状態で数式を使って書式設定をすればB1セルには適切な数式で書式設定されるようになる。

Q退職願いの書き方

以前質問した者です(1984765)要約するとそのときはこんな感じでした。
「今勤めている会社を辞めることになりました。最初は時給制のパートの事務員として入りましたが、固定給に変更になり今に至ります。が、業績不振により社長から「今まで固定給だったけど、1日5時間の時給制にして欲しい」と言われました。給料が今の3分の2以下になってしまいます。これでは、とても生活していけるだけの給料は望めないので辞めることにしました。社長から「解雇」されたわけではないので「会社都合」ではなく「自己都合」になってしまうようです。調べてみたところ「賃金が従前の額の85%未満に低下しために自ら離職した場合」という項は「会社都合」として認められる場合もあるので私としてはここで一度はハローワークにかけあってみようと思います」
こんな感じで終わりました。

今日社長から「この通り退職願いを書いて欲しい」と言われて見本の紙をもらいました。その用紙には普通の退職願のように「一身上の都合により」とありました。
この退職願を私が書いてしまったらもう会社都合と認められるということは絶対になくなってしまうのでしょうか?
往生際が悪くてすみませんが、わかる方いましたら教えて下さい。

以前質問した者です(1984765)要約するとそのときはこんな感じでした。
「今勤めている会社を辞めることになりました。最初は時給制のパートの事務員として入りましたが、固定給に変更になり今に至ります。が、業績不振により社長から「今まで固定給だったけど、1日5時間の時給制にして欲しい」と言われました。給料が今の3分の2以下になってしまいます。これでは、とても生活していけるだけの給料は望めないので辞めることにしました。社長から「解雇」されたわけではないので「会社都合」ではなく「自己都...続きを読む

Aベストアンサー

辞めてしまってからでは、後の祭りですし
社長さんから言われて書くような物でもないですね。
お近くのハローワークで労働基準法について詳しくお話を
聞いて、現状に当てはまるかどうか相談した方がよさそうです。
また、最近では無料で相談に乗ってくれる市の機関も有りますので
そちらに相談されてはどうでしょうか?

Q同列に重複した数字があり、その重複した数字の中の最後の行に条件付き書式で色を付けたいです。 重複数字

同列に重複した数字があり、その重複した数字の中の最後の行に条件付き書式で色を付けたいです。
重複数字はひとつだけでなく、いくらかあります。
写真のようにしたいのですが、、ご教示お願いいたします。

Aベストアンサー

こんにちは

>重複した数字の中の最後の行に条件付き書式で色を付けたいです。
「重複」というよりも「連続して同じ値」の最後のものに色を付けるという解釈をしました。(セルが離れて重複している場合は、その最後を探しはしません)
ただし、一つだけ(連続?)の場合、これを対象とするのか否かは考え方によると思いますので、どちらかわかりませんのが、とりあえず両方について。

◇一つだけの値でも連続と考える場合
条件付き書式の条件式に
 =前のセル<>該当セル
として、書式を設定する

◇一つは連続と見なさない場合
条件式を
 =AND(前のセル=該当セル,次のセル<>該当セル)

とすればよろしいと思います。
(前のセルとは一つ上側のセル、次のセルとは下側のセルの意味です)


>テーブルの行の色付けが希望です。
条件が同じで、行全体に書式を設定なさりたいという意味と理解しました。
条件付き書式の設定内容は同じですが、条件式で列が固定されるように式を作成してください。(列に関して、絶対指定で$を付しておく表記法にしておく)

Q一身上の都合ではない「退職願い」の書き方

先月、子会社が営業譲渡で突如売却されました。私は本社在籍だった為に解雇の対象にはならなく、一日で仕事の大半を失う事だけになってしまいました。(私の8割強の仕事内容はその子会社関連の仕事だったからです。)只今、全くといっていいほど仕事が無くただボーとする状態が続いています。
私にとって日々のする仕事が無いということは最も辛く、直ぐにでも退職をしたいと思っていますが、退職願いには「一身上の都合」と書かなければならないのでしょうか? 
責任を取るべき時(譲渡説明会)に自分達だけ避難して出社しなかった社長と専務の不誠実さに今でも腹が立っています。
このようなまま退職願いに私の一身上の都合とは書きたくありません。
自分の都合ではなく売却に伴った仕事の激減による退職として(会社側の都合として)なにか良い書き方がないでようか?
教えてください。よろしくお願いいたします。

Aベストアンサー

まずは、業務の割り当てを行うように、上司に相談すべきでは?
相談の内容や日時はしっかり記録します。
割り当て業務が見つかるまで休職とか、別の部署や会社に出向などの選択肢もあると思います。
その上で、質問者さんの責でなく業務の割り当てが行われない、問題が解決しないので、止むを得ず退職したと言う方向に持っていけば、会社都合の退職として処理する事も可能です。

会社に労働組合があるのなら、まずはそちらに相談して下さい。
労働組合が無い、機能していないなどでしたら、社外の労働者支援団体に相談する事をお勧めします。

Yahoo!トップ>ビジネスと経済>労働>労働組合
http://dir.yahoo.co.jp/Business_and_Economy/Labor/Unions/

の、
全国労働組合総連合(全労連)
全国労働組合連絡協議会(全労協)
など。

Qエクセルの条件付き書式で列に色をつけたいのですが。

エクセルは完璧に独学なのですが、こんな表を作ってみました。
 A     B    C    D   E    F
1注文番号 品名   客先  納期  納入日 
2
.
.
Aの列に入力をすると元の受注データからBからDが出るようになりました。(VLOOKUP)Eは手入力です。
更にやりたいこととしては、
(1)E列の納期を1月と6月はピンク色、2月と7月は黄色というように条件付き書式を設定したいのですが、やり方がわかりません。(元の受注データは、年・月・日とセルがわかれているため、&でつないでひとつのセルに表示しています。)
(2)納期から納品日が何日遅れたか、前倒ししたかをFに求め、前倒しの場合には青、納期通りの場合には緑、納期が遅れた場合には赤と色つけをしたいです。(F列にのみ)

わかりづらいかもしれませんが、初心者ですので、なるべく簡易的な方法でご教授いただければと思います。
よろしくお願いします。

Aベストアンサー

(1) 納期の条件付き書式

納期の日付は、ANo.1さんのご指摘の通りに変更する必要があります。

その上で、セルE2を選択して、「書式」→「条件書式」を開いて、「数式が」に続いて、「=IF(E2="","",OR(MONTH(E2)=1,MONTH(E2)=6))」を入力し、「書式」ボタンを押して「ピンク」を指定します。

「追加」ボタンを押して、同様に「=IF(E2="","",OR(MONTH(E2)=2,MONTH(E2)=7))」を入力し、「書式」ボタンを押して「黄色」を指定します。

ただし、条件書式は最大3種類の条件しか設定できませんので、すべての月に色を付けることができません。

従って、1,4,7,10月を「ピンク」、2,5,8,11月を「黄色」などに変更する必要があります。

その場合、上記の数式を「=IF(E2="","",OR(MONTH(E2)=1,MONTH(E2)=4,MONTH(E2)=7,MONTH(E2)=10))」のように変更します。

他のセルには、オートフィルで「書式のみコピー」をします。

「条件付きの書式を設定する」
http://www.sharp-pcstudio.com/disp.asp?cno=5&tbno=0&dno=85
「Excel(エクセル)基本講座:条件付き書式の使い方」
http://www.eurus.dti.ne.jp/~yoneyama/Excel/jyo-syo.html

(2) 納入日の遅れ/前倒しの条件付き書式

セルF2を選択して、「書式」→「条件書式」を開いて、「数式が」に続いて、
「=IF(F2="","",E2>F2)」→書式「青」
「=IF(F2="","",E2=F2)」→書式「緑」
「=IF(F2="","",E2<F2)」→書式「赤」

のように入力して、下にオートフィルして「書式のみコピー」します。

なお、数式中の「IF(F2="","",」の部分は、納期・納入日のセルが空白(未入力)の場合、色を表示しないための数式です。

「IF関数 完璧マスター!」
http://kokoro.kir.jp/excel/if.html
「IF関数で「空欄」を表現」
http://kokoro.kir.jp/excel/if-blank.html

(1) 納期の条件付き書式

納期の日付は、ANo.1さんのご指摘の通りに変更する必要があります。

その上で、セルE2を選択して、「書式」→「条件書式」を開いて、「数式が」に続いて、「=IF(E2="","",OR(MONTH(E2)=1,MONTH(E2)=6))」を入力し、「書式」ボタンを押して「ピンク」を指定します。

「追加」ボタンを押して、同様に「=IF(E2="","",OR(MONTH(E2)=2,MONTH(E2)=7))」を入力し、「書式」ボタンを押して「黄色」を指定します。

ただし、条件書式は最大3種類の条件しか設定できませんので、すべての...続きを読む

Q書式設定の貼り付け

パワポはエクセルのように、書式設定の貼り付けだけってできないですか?
スライドマスターの画面で
「マスター タイトルの書式設定」の書式をページ番号の部分で使いたいのですが
書式の貼り付けができません。

サンプル画像は簡単な書式のみしかつけていませんが
実際はこだわった書式をつけたので、そのままページ番号に書式の貼り付けをしたいです。

Aベストアンサー

> パワポはエクセルのように、書式設定の貼り付けだけってできないですか?

PPT2007~2013ですと、「ホーム」タブの「クリップボード」グループに「書式のコピー/貼り付け」がありますが、使えないのですか?
Word,Excel,PowerPointなどに共通の機能です。

[書式のコピー/貼り付け] を使用して書式をコピーする
http://office.microsoft.com/ja-jp/powerpoint-help/HA102749116.aspx

Q条件付き書式 日曜ならAからD列まで下線を赤色

条件付き書式 日曜ならAからD列まで下線を赤色にしたいです。
画像のようにA列の値が日曜なら、AからD列まで下線を赤色にするにはどうすればいいでしょうか?

Aベストアンサー

No.1です
画像添付忘れで追加回答


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

人気Q&Aランキング