ベストアンサー Excel フォントを3色に分類してセルに表示 2013/03/08 15:13 添付図はシフト勤務表で質問の完成状態です。 62D~67Iの範囲で勤務日、勤務場所、勤務者をデータの「入力規則」からリスト作成し割り振ります。 確定したデータをA君の場合10D~10I、B君の場合14D~14I、C君の場合18D~18Iにそれぞれ自動的に表示するようにしたいと考えています。尚、その時、下の62~67の範囲の「昼」の時はフォントを黒で、「夜」の時は赤で、「昼」と「夜」通しの時は青のフォントで表示するようにします。「条件付き書式」では無理と考えますが、VBAになるのでしょうか。よろしくお願いします。 画像を拡大する みんなの回答 (2) 専門家の回答 質問者が選んだベストアンサー ベストアンサー mt2008 ベストアンサー率52% (885/1701) 2013/03/09 00:03 回答No.2 ANo.1です 補足読みました。 それでは、ANo.1の条件付き書式を設定したD10セルに以下の式を入れて見てください。 =IF(D64=D67,""&D64,""&D64&D67) 昼と夜の勤務地が異なる場合は質問にも無かったため考慮していません、あしからず。 質問者 お礼 2013/03/09 10:46 適切な回答ありがとうございました。今後もよろしくお願いします。 質問者 補足 2013/03/09 10:46 >昼と夜の勤務地が異なる・・・ とありますが問題なく実行できます。ありがとうございました。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 その他の回答 (1) mt2008 ベストアンサー率52% (885/1701) 2013/03/08 16:56 回答No.1 ルールを2つ設定すれば、条件付き書式でできますよ。 A君の場合、D10に以下の条件付き書式を設定して右側へコピーしてください。 =AND(D64=D10,D67=D10) フォントを青 =(D67=D10) フォントを赤 ルールの管理で見たとき、この順番に並ぶようにしてください。 画像を拡大する 質問者 補足 2013/03/08 18:13 早速回答ありがとうございます。質問内容に曖昧さがったようです。D10の行には64行または67行に入力と同時に自動的に表示されるようにしたいのです。回答では既に入力された内容と比較してフォント色を変えるようにしているように思います。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアその他MS Office製品 関連するQ&A エクセル2003 左のセル同一時フォント透明化 エクセル2003 左のセル同一時フォント透明化 お世話になります。 2003で条件付き書式でフォントを透明化したいのですが、 A1:D4に入力規則でリストより文字を選択するようにしてます。文字は3種類以上あり、選んだ文字によって色を付け、左のセルと同様であれば、文字を透明化し見えなくしたいのですが、2007では条件付き書式で表示形式を設定できるので可能なのですが、2003で行いため、VBAで行いたいのです。 どうかご教授のほどよろしくお願いします。 左のセルと同一であればフォントの色変更 VBA 左のセルと同一であればフォントの色変更 VBA お世話になります。エクセル2003を使用しています。 ある範囲(例 A1:D5)で左のセルと内容が同じであれば フォントの色を変えるVBAをご教授願いたい。 セルの書式設定ダイアログを表示するには エクセルVBAでセルの書式設定ダイアログを表示するショートカットキーはどうやって作るのでしょうか? 罫線、配置、パターン、表示形式、フォント、保護などの個別の表示方法は知っておりますが、その上位の「セルの書式設定ダイアログ」を表示するにはどうやったらよいのでしょうか? よろしくお願い申し上げます。 携帯料金を賢く見直す!格安SIMと端末選びのポイントは? OKWAVE コラム エクセル セルの表示形式についての質問です。 エクセル セルの表示形式についての質問です。 パーセンテージ表示で、且つマイナスの場合文字フォント赤で表示するにはどうしたらいいですか? セルの書式設定ではどちらかしか設定できません。 よろしくお願いします。 エクセル2000 異なるセルをくっつけて表示 こんばんは。 毎度どうもすみません。 「エクセル2000 異なるセルをくっつけて表示」について質問します。 次のような文字があり、日付、曜日、時間は書式設定により表示されてます。(設定を解除すると数字の羅列になる。) A列 B列 C列 D列 E列 1 09/20 木 10:00 山田 名古屋 2 この表あるそれぞれの文字をひとつのセルに改行して表示させるにはどうすればいいでしょうか? 09/20 木 10:00 に 山田 さん 名古屋 で 会いましょう 上記のようにしたいのです。 「&」記号とchar(10)記号を試してみましたが、日付などが数字になりうまく表示されません。関数では無理でしょうか? やはりVBAかな。 方法があれば教えてください。 Excelでファイルを保存して一旦閉じ、ファイルを開き直すと表示フォントが化ける Excelでファイルを保存して一旦閉じ、ファイルを開き直すと表示フォントが化けてしまいます。 セルの書式で、フォントを確認しても、保存前と変わってはいません。 また、印刷すると設定したフォント通りに印刷され、おかしくなるのは表示だけです。 すべてのファイルについて起こるわけではなく、比較的サイズの大きなファイルでよく起こりますが、どういうファイルで起こるか特定はできていません。 フォントを変更すると正常に戻ることもありますが、異常なままの場合もあります。 さらに、フォントを変更して正常に戻った場合も、保存して一旦閉じ、ファイルを開き直すと表示フォントが化けてしまうということを繰り返します。 どなたか解決策、ないし原因の判る方はいらっしゃいませんか? よろしくお願いします。 エクセル対象セルが埋まっていたらOKと表示させたい 拙い文章でわかりにくいかもしれませんが宜しくお願い致します。 勤務表を作成しており、早・2早・日・2日・遅・2遅・夜・×(休み)・有(有給)とあり、早・日・遅が埋まった場合「OK」と表示をさせたいです。 さらに対象セルがD13,D17:D24,D30:D34に分かれている場合の関数を教えて頂きたいです。 宜しくお願い致します。 エクセルVBA-複数の条件に一致する値をそれぞれ表示させたいのですが・ エクセルVBA-複数の条件に一致する値をそれぞれ表示させたいのですが・・・ エクセルVBAの超初心者です。 当初はVLOOKUP関数で作ってみようと思いましたが、データ量が多すぎるのもあり マクロを使ってボタンで一発表示が出来ないものかと思いました。 色々調べてみましたが、時間範囲の表示がわからず行き詰ってしまったので、 どなたか教えてください。宜しくお願いします。 社員区分、勤務種別、勤務開始時間を判別して、条件に一致した値を表示できる 表を作成しようとしています。 例えば、「社員区分が★で勤務種別が夜勤1、勤務開始時間が21:00~23:00の間 で入力した場合は区分1」のように表示したいのです。 シートでいうと次のような感じです。 A1 B1 C1 D1 ★ 夜勤1 22:05 ⇒ 区分1 ☆ 夜勤2 22:10 ⇒ 区分2 ★ 夜勤3 20:00 ⇒ 区分3 セルA1~C1までは手入力をし、その後ボタンを押すとD1のような 結果表示をするように作成したいのです。 社員区分は、★と☆の2通り、勤務種別は3通りです。 ここで面倒なのが、勤務開始時間の範囲です。 夜勤1の勤務開始時間は21:00~23:30の間 夜勤2の勤務開始時間は23:00~24:30の間 夜勤3の勤務開始時間は20:00~21:00の間 と、勤務開始時間が1分刻みに設定されていて、なおかつ夜勤1と夜勤2の 開始時間が23:00~23:30の間、かぶってしまっているのです。 VBAの記述で、時間の範囲表示はどのように記述したら良いのかわからず、 行き詰ってしまいました。。 分かりづらい質問になってしまい大変恐縮ですが、どうぞ良いアドバイスを お願いいたします。 Excelのセルのフォントサイズを自動調整 Excel97VBAの質問です。 セルの値が長すぎて表示しきれない場合は、フォントサイズを調整したい。 Sub Macro1() With Sheet1 .Columns("A").ColumnWidth = 1 .Range("A1").Value = 1 .Range("A2").Value = 12 .Range("A3").Value = 123 .Range("A4").Value = 1234 End With End Sub この場合、A2~A4の表示が潰れます。 フォントサイズを例えば、 Sub Macro2() .Range("A2").Font.Size = 7 .Range("A3").Font.Size = 5 .Range("A4").Font.Size = 3 End Sub と設定すれば潰れずに値が表示されます。 このようなフォントサイズの最適値を自動的に設定したい。 よろしくご指導お願いします。 Excelで最小フォントサイズを取得したい 会社でExcel2000、自宅でExcel2003を使用しております。 仕事でExcelを使って表を作成しているのですが、 フォントサイズを印刷倍率に気をつけながら作成しなければなりません。 その際に、VBAを使って下記のようなことは出来ないでしょうか? 1:表の範囲を選択する(印刷範囲を選択するような感じで。なぜなら、表中のデータはその時その時でどこから始まりどこで終わるかが異なっているからです) 2:表中に使われてる最小フォントサイズを取得する。 (その際、印刷倍率と実際使用されているフォントサイズを考慮。例えば倍率が90パーセント、フォントサイズが10の時は10×90%=9ポイント、というふうに) ※この際、もし表中に上付き文字などが入っていた場合、上付き文字のサイズは無視する。 ちなみに、表は以下のようなものです。 (実際には「-」の部分に数値が入っている事もあります。) Table1 --------------------------------------------------- Day 1 2 3 4 5 6 7 8 9 10 11 12 13 --------------------------------------------------- Date - - - - - - + - * - - - - - - --------------------------------------------------- *=an exception 当方、VBAは初心者です。 (記録~初歩的な構文は理解できます) とても困っております。 どうぞよろしくお願い致します。 エクセルVBAを使ってセルに日付+通し番号を入力したい Excel2003でVBAを使い、セルに[現在の日付および時間]+[3桁の通し番号]を文字列で入力したいのですが、なかなかうまくいきません。 例えばA列に データA データB データC ・・・ ・・・ のようにデータが200個ほどある場合、B列に yymmddhhmm001 ← 2009年12月13日3時25分に実行した場合は0912130325001 yymmddhhmm002 yymmddhhmm003 ・・・ ・・・ のように記載したいと思っています。 VBA初心者ですので、ものすごく簡単なことを質問しているかもしれませんがご教授頂ければ幸いです。 宜しくお願いします。 空白表示セルの内容を表示する。 excelシートで、広い範囲で空白表示のセルがあります。それらのセルには、数値と式がありますが、空白で表示されています。 これらを、数値(式は計算結果を)で表示することはできるでしょうか。セルの内容を変更することはできません。 例えば他のシートに書式変更などを伴ってコピーするとか。 その範囲にマウスをおいたときグラフ領域と出る場合もあります。推察としてそのシートにグラフがありますが、その表示データのセルかも知れません。 ヤバいパソコンが壊れたかも!?事前に知っておきたい3つの兆候と対策 OKWAVE コラム Excelで一つのセルに“べき乗”の式を表示する方法? 例えば、2ハットマーク(べき乘)3と一つのセルに表示するにはどう入力すれば良いのですか? Wordでは23と入力し3だけを範囲選択し「書式」→「フォント」→「文字飾り」で「上付き」にしたら出来ますが、Excelでは一つのセルに23と入力し、「書式」→「セル」→「上付き」ですると一時的には出来たように見えるのですが、確定する為、Enterキーを押すと、元に戻ってしまい、出来て無く、駄目なのです。参考ですが、2つのセルを使うとできますが・・・。また参考ですが“べき乘”の呼び名を“アクサンシルコンフレックス”or“ハットマーク”とも言うらしいですね。 エクセルのセルの文字列を表示する エクセルの1つのセルに箇条書きで(例えば5行) 表示したいのですが、その場合自動的に業が増えれば、 フォントが小さくなるようにしたいのですが。 「セル」の「書式設定」で「配置」の「セルを結合して」と「折り返して全体を表示」にすると数式バーには表示されますがシートを見たときに表示されません。 エクセルのシートに箇条書きを全部表示させる為の方法を教えて下さい。 行の高さは、変えれないのでその゛よろしくお願い致します。 エクセルで質問です。 数式か、VBA、どちらでも良いのですが、 A1=1で、なおかつB1=1の場合、C1からC10のDATAをD1からD10に表示する。 A1=1で、なおかつB1=2の場合、C11からC20のDATAをD1からD10に表示する。 ・ ・ ・ というように、"A1"は1~22まで、"B1"は1~6まで、各数字を組み合わせた時のDATAを表示したいのです。 組み合わせも多いのでどうして良いのか分かりません。 素人の浅知恵ではとても無理ですので、お助け下さいまし。。。 excelのセル参照 vba初心者です。 excelのvbaでセル範囲(rangeなど)を指定して数値の入力や参照をしますが vbaを使わずに元のワークシート側で行・列の挿入、削除した場合 vbaにはその分反映されません。(当然ですが) Range("C3:D4")の場合、B列に列を挿入したらRange("D3:E4") となるような。 vbaの修正を最小限に抑える簡単で良い方法はありますか。 VBAで非表示のセルに数字が入ると自動で表示できますか? お世話になります。 皆さんのお知恵をお借りしたく質問させていただきます。 タイトルのとおりなのですが、 例えば月ごとの売り上げ個数を表示させるために同シートの他のセルに範囲指定することで、関数で別シートの売り上げ個数が計算され表示されるようになっております。下の表だと1~3月までが入力してあり、次に4月までを範囲指定することで、4月の値が入った表を表示させたいのですが、エクセルで列D、Eが非表示されているとした場合、4月のデータがD列に入るとマクロを起動させることで自動表示(値が入った列のみ)してくれるVBAってありますか? よろしくお願いします。 A B C F G 1 1月 2月 3月 2 20 30 40 3 10 20 30 4 これを、 A B C D F G 1 1月 2月 3月 4月 2 20 30 40 50 3 10 20 30 40 4 このようにしたいです。 エクセルVBAでセルに色を付けるには エクセル2010の質問です。 例えばA列に入力した文字のバイト数が38より多い場合、セルに色を付けたいのです。 条件付き書式で =LENB($A2:$A1048576)>38 でもよかったのですが シート内のデータをクリアすると条件付き書式までクリアされてしまい困っています。 VBAで出来るのが一番なのかなと思っていますが、ご教授お願い致します。 Excel VLOOKUPをVBAでやりたいのですが、分からなくて困っ Excel VLOOKUPをVBAでやりたいのですが、分からなくて困ってます。 Sheet1のC列2行目行こうにSheet2のI列のデータを取得し (A列にデーターが入っている分、(時と場合により表示数が違う為)) なおかつ Sheet1のD列2行目以降にB-Cの差し引きをおこなう 以上のことをSheet1をアクティブにした時VBAでおこなうには、? 教えて下さい。宜しくお願い致します。 エクセルの代替フォントを指定する方法 使用しているパソコンにインストールされていないフォントがエクセルで使われていると、 代替フォントとして「MSP ゴシック」か「MSP 明朝」で表示されますが、 代替フォントをあらかじめ指定することはできないのでしょうか? ブックを配布して、配布先でフォントについては何も操作せずに、 「○○○」というフォントが無い場合は「MSP 明朝」で表示される、という動作です。 標準フォントの設定かと思いましたが違うようです。 VBAを使わない方法があれば教えてください。 注目のQ&A 「You」や「I」が入った曲といえば? Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市(長野県)在住でスキーやスノボをする方の用具 カテゴリ パソコン・スマートフォン ソフトウェア Excel(エクセル)Word(ワード)PowerPoint(パワーポイント)Access(アクセス)その他MS Office製品オフィス系ソフトPhotoshop(フォトショップ)Illustrator(イラストレーター)その他Adobe製品画像・動画・音楽編集ホームページ作成ソフト筆まめ・はがき作成フリーウェア・フリーソフトその他(ソフトウェア) カテゴリ一覧を見る OKWAVE コラム 突然のトラブル?プリンター・メール・LINE編 携帯料金を賢く見直す!格安SIMと端末選びのポイントは? 友達って必要?友情って何だろう 大震災時の現実とは?私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ!負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる! OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
適切な回答ありがとうございました。今後もよろしくお願いします。
補足
>昼と夜の勤務地が異なる・・・ とありますが問題なく実行できます。ありがとうございました。