エクセルマクロで管理番号と日付を付ける方法について
- エクセルのマクロを使用して、A2からA101に管理番号を振り、B2から順番に日付を付ける方法について教えてください。
- 管理番号に○を入力すると、3か月後のセルに色を付けるようにしたいです。
- 故障や修理の場合は、3か月後のセルには色がつかないようにしたいです。
- ベストアンサー
エクセル マクロ
A２～A１０１にNo１～１００までの管理番号が振ってます B2～順番に2016年1月・・・・・・2017年12月まで日付を付けています B2：Y１０１の間は入力規制のリストで○,故障,修理を入れれるようにしています 例えば 2016年1月 NO１（A2セル）に○を入力した時、次回の点検日（3か月後の2016年4月） にセルに色（黄色）を付ける 色がついているところに○が入力されると次の3か月後のところに色（黄色）を付ける を繰り返したいです。 もしも3か月を過ぎていて2016年5月に○を入力した際は4月の色がついてるのを白に戻し また3か月後のところに色を付けるを繰り返したいのです 故障or修理の時は3か月後のところには色が出ないようにしたいのですが できるでしょうか？ 説明が下手で申し訳ないですが 宜しくお願いします
- jikkenn
- お礼率58% (181/310)
- Excel（エクセル）
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
要するに「故障」や「修理」の有無には関係なく、兎に角B列～Y列の列範囲のどこかに「○」が入力されている行の中で、最新の日付の行から数えて3ヶ月後の日付のみが黄色に塗り潰されている様にしたいという事なのでしょうか? それでしたらマクロを使うまでもなく条件付き書式だけで実現する事が出来ますので、以下の様な操作を行って、A5～Y101のセル範囲に条件付き書式を設定して下さい。 A2セルを選択 ↓ Excelウィンドウの上の方に並んでいるリボンのタブの中から[ホーム]タブを選択してクリック ↓ 現れた「スタイル」グループの中にある[条件付き書式]ボタンをクリック ↓ 現れた選択肢の中にある[ルールの管理]をクリック ↓ 現れた「条件付き書式ルールの管理」ダイアログボックスの中にある[新規ルール]ボタンをクリック ↓ 現れた「新しい書式ルール」ダイアログボックスの「ルールの種類を選択して下さい」欄の中にある[数式を使用して、書式設定するセルを決定]をクリック ↓ 現れた「次の数式を満たす場合に値を書式設定」欄の中に次の数式を入力 =AND(COUNTIF($C2:$Y2,"○"),COUNTIF($C6:$Y$101,"○")=0) ↓ 「新しい書式ルール」ダイアログボックスの[書式]ボタンをクリック ↓ 現れた「セルの書式設定」ダイアログボックスの[塗りつぶし]タブをクリック ↓ 現れた背景色のサンプルの中にある黄色の四角形をクリック ↓ 「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック ↓ 「新しい書式ルール」ダイアログボックスの[OK]ボタンをクリック ↓ 「条件付き書式ルールの管理」ダイアログボックスの「適用先」欄を =$A$5:$Y$101 に変更（カーソルとマウスの左ボタンによる範囲選択が使えます） ↓ 「条件付き書式ルールの管理」ダイアログボックスの[適用]ボタンをクリック ↓ 「条件付き書式ルールの管理」ダイアログボックスの[OK]ボタンをクリック
関連するQ&A
- エクセル 条件式？マクロ？
B2に○と入力した際、E2のセルを黄色に変化させたい E2に○を入力されるとE2は白色に戻り、次の3ケ月後のH2の部分を黄色にしたいのですが 他のところも同じで○と入力されたら3か月後にセルの色を変化させたいのですが どうすればできるでしょうか？
- ベストアンサー
- Excel（エクセル）
- エクセル条件書式設定について
エクセル条件書式設定について エクセル条件書式設定について質問があります。 例えば、N1に入力規制を使用したA社～D社という選択肢があり、 A2～A6の縦のセルにA社～D社の名前が入っており、 B1:M1に4月～3月の文字。 B2:M6に実数が入っているとします。 そこでN1の入力規制セルでA～D社を選択した際に、 表のそれぞれの会社の4月～3月行の実数セル（A社選択ならB2:M2）の色を例えば黄色にしたい場合の 条件書式入力方法を教えていただけないでしょうか。 色は1色で構いません。 分かりづらい説明で申し訳ございませんが宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルの使い方を教えてください
下記のような表をエクセル2007で作成したいのですが、可能でしょうか。 （画像を参照ください） (1)エクセルのA1セルから、縦に0001、0002・・と昇順に数字を入力します（A1000セルまで）。 (2)エクセルのB1セルから、縦に2012/8/12（任意の日付）、2012/8/13・・と昇順に日付を入力します（B1000セルまで）。ただし、日付が欠けている場合もありますし、同じ日が続けて入力される場合もあります。 (3)毎週月曜日に、B列の日付がその1週間前の月曜から前日の日曜に該当する同じ行のA列のセルに自動的に色を付けます。例えば、今日が2012/8/20（月）としたら、B列の日付が2012/8/13（月）から2012/8/19（日）に該当する同じ行のA列のセルを自動的に黄色に塗りつぶします。そして、次の週の2012/8/27（月）が来たら、同様にB列の日付が2012/8/20（月）から2012/8/26（日）に該当する同じ行のA列のセルを自動的に黄色に塗りつぶします。そして次の週の月曜も同様です（以下、繰り返し）。 (4)作成したエクセルは毎日開きますが、次の月曜日が来るまでは、同じ場所に黄色が塗られた状態を維持します。例えば2012/8/21（火）～2012/8/26（日）に毎日エクセルを開いた時もB列の日付が2012/8/13（月）から2012/8/19（日）に該当する同じ行のA列のセルが自動的に黄色に塗りつぶされた状態を維持します。 いろいろ考えてはみたのですが、わかりませんでした。どうかお知恵をよろしくお願いいたします。 ●画像の文章が見づらいので、こちらに書いておきます （例） 2012/8/20（月）にB列が2012/8/13（月）～2012/8/19（日）に該当するA列の0002～0008が自動的に黄色に塗りつぶされる。2012/8/21（火）～2012/8/26（日）の毎日このエクセルを開いても0002～0008が黄色に塗りつぶされた状態が維持される。 ↓ 2012/8/27（月）にB列が2012/8/20（月）～2012/8/26（日）に該当するA列の0009～0015が自動的に黄色に塗りつぶされる。 2012/8/28（火）～2012/9/2（日）の毎日このエクセルを開いても0009～0015が黄色に塗りつぶされた状態が維持される。 （以下、月曜日毎に繰り返し）
- 締切済み
- その他MS Office製品
- エクセルのマクロを使用したコピー
仕事でよく使うデータを入力が簡単に出来るように色々と試しているのですが、Ａ１のセルに「Ａ・Ｂ・Ｃ」と入力されており、ボタンかリストボックスでＡ・Ｂ・Ｃのいずれかを選ぶと選んだ文字に図形の丸で囲うようにしたいのですが、当初はそれぞれに丸をつけたセルを表の外のセルに作っておいてそれぞれを選択したした時にコピー→貼り付けにしていたのですが、その選ぶ項目がかなりあるので一つ一つのセルをマクロに入力するのは時間がかかるので現在選んでいるセルに特定のセルを貼り付けるか丸を書くと言った事は出来ないでしょうか？
- ベストアンサー
- オフィス系ソフト
- （エクセルマクロ）複数の一連作業をマクロで行う処理について
以下の一連の処理についてマクロのコードを一式で教えてください。 【エクセルの構成】 1.シート名 日付だけ都度変更する形式 （例:YYYYMM_教えてGoo） 2.表 列 AからAAまでデータあり 行 1行目はタイトル。2行目以降からデータ。 【処理手順】 1.表全体のフォントを「MS Pゴシック フォント9」にする。 2.1行目から11行目と13行目を削除 3.A列とD列削除 4.一行目の項目行にオートフィルタを設定 5.ウインドウ枠の固定（先頭行（一行目の項目行)の固定） 6.H列に文字が入ってる行のみ削除 7.E列とF列を昇順に並び替え（優先順位は(1)F列、(2)E列） 8.データの最終行の次の行のU列からZ列に表を入れる。 （例）5行目が最終データ行の場合 A…U V W X Y Z 1 ・ 5 6 A =SUM() 7 B 8 C =SUM() (書式設定と詳細） セルU6 「文字列A」と入力し、背景は黄色、文字色は赤 セルV6 背景は黄色、文字色は赤 セルW6 背景は黄色、文字色は赤 セルX6 背景は黄色、文字色は赤 セルY6 背景は黄色、文字色は赤 セルZ6 数式入力（=SUM(Z$2:Z5（最終行））、背景は黄色、文字色は赤 セルU7 「文字列B」と入力し、背景は黄色、文字色は赤 セルV7 背景は黄色、文字色は赤 セルW7 背景は黄色、文字色は赤 セルX7 背景は黄色、文字色は赤 セルY7 背景は黄色、文字色は赤 セルZ7 背景は黄色、文字色は赤 セルU8 「文字列C」と入力し、背景は黄色、文字色は赤 セルV8 背景は黄色、文字色は赤 セルW8 背景は黄色、文字色は赤 セルX8 背景は黄色、文字色は赤 セルY8 背景は黄色、文字色は赤 セルZ8 数式入力（=SUM(Z6:Z7）、背景は黄色、文字色は赤 すべて掛け線なし 9.データ最終行（表も含む）から5行目全体をグレーにし、その行のA列に「データA」と入力。 10.I列に文字が入ってる行のみを切り取り、一番最後にデータが入ってる行から6行目（「データA」と入力した下の行から） から貼り付ける。（切り取った行は行削除し、上詰め） 11.データ最終行（切取貼り付けしたデータAを含む）から3行目全体を黄色にし、その行のA列に「データB」と入力。 12.X列の前に列を挿入し、挿入した列の一行目（項目行）に「タイトル」と記入。 13.挿入した列の2行目から前の列（W列）にデータが入ってる行まで数式（＝ROUND（W2/1.05,0)※2行目に入力した場合)をコピー。 14.セルAB1に「No.」と記入。 15.G列からW列とY列からAA列を非表示にする。 6と8以降からマクロの自動記録ではできませんでした。 ご教授お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ記述について
Ｊ列、Ｋ列に入力されている行まで下記処理を行うマクロの記述を教えてください。 Ｊ列のセルの文字列がにＳＨＡＰＥの場合、その行のＢ～Ｅ列のセルの色を黄色にする。 Ｋ列のセルの文字列がにＳＨＡＰＥの場合、その行のＦ～Ｉ列のセルの色を黄色にする。
- 締切済み
- Visual Basic
- Excel で 条件付き書式について
Excel 条件付き書式で以下の設定式を教えて下さい。 A1セルに0から50 の数値入力の場合は、B1セルが赤色に A1セルに51から70 の数値入力の場合は、B1セルが黄色に A1セルに71から100 の数値入力の場合は、B1セルが青色に 以上、よろしくお願いいたします。
- 締切済み
- Windows XP
- マクロ 列ごとの条件付き書式
マクロで列ごとの条件付き書式を作成したいです 条件としては ・列ごとに上限値が1行目に下限値が2行目に入力されている ・3行目以降に測定値が入力される ・その3行目位以降の測定値のセルの書式を上下限値から外れた値は色を変えたい ・50列ほどデータがある （例） A1 10 A2 5 A3～A100 数字 条件をA3～A100に設定 A1（10）より大きいもの、A2（5）より小さいものはセルの色を黄色 B1 15 Ｂ2 7 Ｂ3～Ｂ100 数字 条件をＢ3～Ｂ100に設定 Ｂ1（15）より大きいもの、Ｂ2（7）より小さいものはセルの色を黄色 こんな感じで列ごとにデータと規格値が入っているものが50列あります。 どうかよろしくお願い致します。
- 締切済み
- その他MS Office製品
- ＥＸＣＥＬでこういうことできますか。
関数と書式設定を使っていいところまではいったのですが、ダメでした。 たとえば、セルＡ１からＡ１２まで1月～12月を入れます、Ｂ1からＢ１２までは成績（適当な数字）が入ります、１番成績の良い月のセルを赤色に塗り、２番目を黄色１番悪い成績の月のセルを青色に塗る。 こんなことできますか、 教えて下さい。
- ベストアンサー
- オフィス系ソフト
お礼
返事ありがとうございます やってみましたが列の行は変わるのですが 全部変わってしまいます 画像を付けて再度投稿しています ありがとうございます