この質問は、回答者のTさんの十八番ですが、私も考えてみました、というか、私は、考えすぎてしまいます。>(P〇〇〇)というところだけ赤色にしたいのですが、どーすれば良いでしょうか!以下のマクロは、(P〇〇〇)では、赤になりません。◯◯の所に数字が入っていないと赤になりません。画像をみると、そのように思えたからです。自動番号振りA列に会社の番号B列に会社名。C列の該当する会社の行に1を入力します(複数あり)入力と同時にD列に番号を表示。D4=002-5-2※D3,D4の番号について→002は固定です。5は会社の番号のA列から。2は行カウントの数字ですが、一番上にある行カウントを以下の1が入力された行に自動表示。次に、例1)で入力したC3とC4の1は削除して、次にC2、C5、C6に1を入力します。この時に、例1)で表示されたD列の番号はそのまま表示されてほしいです。D4=""複雑なのですが、vbaで上記の内容を実現することは可能でしょうか。可能でしたら教えてくださいませ。A列に会社の番号B列に会社名。C列の該当する会社の行に1を入力します(複数あり)入力と同時にD列に番号を表示。D4=002-5-2※D3,D4の番号について→002は固定です。5は会社の番号のA列から。2は行カウントの数字ですが、一番上にある行カウントを以下の1が入力された行に自動表示。次に、例1)で入力したC3とC4の1は削除して、次にC2、C5、C6に1を入力します。補足有難うございます.内容を読むとマクロは少なくとも2つ用意した方が良さそうですね.1Dのセルに出力するマクロ2Cのセルを判定するマクロ考え方から説明しますと・1はCのセルに値が入力された際に実行する.・入力されたセルの行の位置を引数に入れる.(例えばC3セルに入力したなら引数は3,C5セルに入力したなら引数は5)・上記引数とCellsを利用してD列に値を出力する.・2はEのセルにが入力された際に実行する.・入力されたセルの行の位置を引数に入れる.・上記引数とCellsを利用してCのセルの値を消す.次に確認ですが,行カウントについて同じグループというのは例えば質問文で考えるとA2,A5,A6は1で,A3,Aは5で,それぞれ同じグループという意味で良いですか.上記の内容が正しいならこのシートでは上から順に新規で入力された値に対して順々に数値を振り分けているという事になります.すなわち・会社番号が1→行カウントで1・会社番号が5→行カウントで2例えばA8に会社番号が6というのが入力された場合には行カウントは3になりますか?ここでの確認の意図は行カウントが上記内容で決定しているとするなら1つ作業列もしくは作業用シートを用意した方が良いと考えるためです.この作業というのは先ずA列の値で重複する値を削除したものをコピーし,上から1,2,3と番号振り(行カウントの値を決める)を実行するというものです.具体的には作業シートをSheet2に置くなら,A列の範囲で重複データを削除したものをシート2のA列にコピーすればSheet2のA1が1,A2が5になります.Dのセルの行カウントの値を出力する時はSheet1のAのセル値を検索値にSheet2のAのセル値と合致するセルの行番号として出力すれば良いという事になります.(つまり会社番号と行カウントを整理するマクロが別に必要)まだマクロを組んでテストをしていないので,実際のマクロの記述は回答できていませんが,ご参考までにあともう一つ確認ですが,質問者さんの立場でこのシートで入力するのはA~C列とE列ですよね?もしC列も自動化する場合にはE列に1が入力されているかどうかでC列の1の入力/削除も可能です.補足有難うございます.内容を読むとマクロは少なくとも2つ用意した方が良さそうですね.1Dのセルに出力するマクロ2Cのセルを判定するマクロ考え方から説明しますと・1はCのセルに値が入力された際に実行する.・入力されたセルの行の位置を引数に入れる.(例えばC3セルに入力したなら引数は3,C5セルに入力したなら引数は5)・上記引数とCellsを利用してD列に値を出力する.・2はEのセルにが入力された際に実行する.・入力されたセルの行の位置を引数に入れる.・上記引数とCellsを利用してCのセ...続きを読む他の回答も見るQ本日を基準に一定期間経過した日が分かるようにしたい本日を基準に、D列の日付に対して、K列に「3ヶ月前」「6ヶ月前」「期限切れ(1年経過)」のコメントが入るようにしたいと思っています。「3か月前」だけなら、IF関数で何とかできたんですが、3つにしようとするとうまくいきません。どのような式を入れたらいいのか教えていただけると助かります。お願いいたします!Aベストアンサー[No.3][No.5]ですが、大失敗でした。検証を怠っていて、申し訳ありませんでした。m(_._)m恐れ入りますが、下記をお試しください。下方にオートフィル他の回答も見るQユーザーフォーム、コンボボックスで重複せず選択リストを表示させるにはエクセル2003と2007VBAで使用します。Aベストアンサーこんばんは。するコードを見せてほしいと言っているわけですね。最近、コードは見せられない、だから文章の説明的な質問の人が増えてきたと思うのです。画像添付でも、相手に伝えられる情報ではないです。#3/#4さんの話も、#1/#2さんの話も熱心に正答をいただいているのに、解決に向かわないのは、残念です。>シートにリストを予め用意しておくと膨大なリストからたくさんスクロールしてから選択するようにになってしまう為2007のコマンドで、重複を排除する方法もありますし、両方なら関数で解く方法もあります。入れる以上は、千件以上のものを入れるというのは常識的にありえません。それに、掲示板の回答は、必ずしも、コピー&ペーストで動くコードを提供してくれるとは限りません。それだけは心得ておいてください。Functionこんばんは。するコードを見せてほしいと言っているわけですね。最近、コードは見せられない、だから文章の説明的な質問の人が増えてきたと思うのです。画像添付でも、相手に伝えられる情報ではないです。#3/#4さんの話も、#1/#2さんの話も熱心に正答をいただいているのに、解決に向かわないのは、残念です。>シートにリストを予め用意しておくと膨大なリストからたくさんスク...続きを読む他の回答も見るQExcel条件付き書式での指定した日付を塗りつぶす方法についてお世話になっております。添付画像を見本と致します。BセルからCセルの15日前を塗りつぶし処理をしたいのですがどの様に条件付き書式を構成すればよろしいのかご教示をいただきたい内容になります。書式より塗りつぶしの色を設定→「OK」→「OK」にすると希望通りに。他の回答も見るQエクセルで三つの条件での参照する方法。11エクセルで三つの条件での参照する方法。6合計このようなデータがあります。コードは1000くらいあります。小計も100くらいあります。別シートにこれよりも項目が多い表があります。この表に上記データを反映させたいです。作業列を作りコードと項目を&で合体させます。それを検索値とし、別シートの7月の列にvlookup関数にします。コードの列をフィルタ掛けし小計、合計を非表示にします。これを月別に貼り付けしようと思います。他に効率良い方法ありますか?言葉足らずな点は補足します。エクセルで三つの条件での参照する方法。6合計このようなデータがあります。コードは1000くらいあります。小計も100くらいあります。別シートにこれよりも項目が多い表があります。どのセルとどのセルとの小計になっているの?「あれは、単に書いたまでで、実はデタラメ!」なんて言わないでネ。※シート1のA1の数字が変われば(例えば5)、シート2のB列(B1~B5)に○○1、○○2、○○3・・・・○○5となるコードを教えて頂けないでしょうか?何度トライしてもうまくいきません。Aベストアンサーこんにちは!関数での一例です。しておき=IF(Sheet1!A$1<ROW(),"",ROW())という数式を入れフィルハンドルで下へコピーしてみてください。Inc.Q質問する(無料)Q&A検索goo検索gooIDで新規登録・ログイン新規登録する(無料)会員の方はこちら外部サービスのアカウントで新規登録・ログインYahoo!で新規登録・ログインGoogleで新規登録・ログインTwitterで新規登録・ログインFacebookで新規登録・ログインdアカウントで新規登録・ログイン※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。会員でない方、会員になるとあなたも質問や回答ができるようになります!!親切・丁寧な回答が集まる場30分以内に回答がもらえ回答数は平均3件!匿名(ニックネーム)での投稿なので。