エクセルのマクロで青色のシートを残す方法
- エクセルのマクロを使用して、青色のシートを残しながら黄色のシートを更新する方法を探しています。毎日更新される当日のデータをSheet2に添付し、Sheet1には価格の表示を行い、経過日数に対応する列に価格を表示します。しかしながら、Sheet2に当日のデータしか添付しないため、黄色のシートは表示されますが青色のシートは消えてしまいます。そこで、VBA等を使用して、データを更新する前に青色のシートを残しつつ黄色のシートを更新する方法を模索しています。
- エクセルのマクロによる処理で、黄色のシートを更新しながら青色のシートを保持する方法を探しています。Sheet2には毎日更新される当日のみのデータが添付され、Sheet1には価格の表示が行われます。経過日数に対応する列に価格が表示されますが、Sheet2には当日のデータしか添付されないため、黄色のシートは表示されますが青色のシートが消えてしまいます。そこでVBAなどを使用して、データを更新する前に青色のシートを残しつつ黄色のシートを更新する方法を模索しています。
- エクセルのマクロを使用して、黄色のシートを更新しながら青色のシートを保護する方法を探しています。Sheet2には毎日更新される当日のみのデータが添付され、Sheet1には価格の表示が行われます。経過日数に対応する列に価格が表示されますが、Sheet2には当日のデータしか添付されないため、黄色のシートは表示されますが青色のシートが消えてしまいます。そこでVBAなどを使用して、データを更新する前に青色のシートを保護しながら黄色のシートを更新する方法を模索しています。
- ベストアンサー
エクセルのマクロについて
いつもお世話になっております。 次のような表をエクセルで作成出来ないものか？？…と考えています。 ※添付ファイルを見てください。 Sheet1（価格の推移） Sheet2（DLデータ） の二つのシートがあります。 (1)Sheet2には毎日更新される当日のみのデータを添付します。 (2)Sheet1には、C列に当日の価格を表示し、発売日とデータ抽出日の差から、1日目、2日目…と経過日数に対応する列（黄色）に価格を表示するようにします。 単純な表なので、ここまでは私の関数に関する知識で対応可能なのですが、(1)のSheet2に当日のみのデータしか添付しないため、Sheet1には黄色のシートは表示されますが、青色のシートは消えてしまします。（当然ですが・・・） そこで、VBA等の方法で、データを更新する前に、青色を残して、黄色を更新していく方法は無いかを考えています。 分かりずらい文章で申し訳ありませんがどなたかよろしくお願いいたします。
- genta1019boston
- お礼率70% (114/161)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんばんは！ なかなか回答がつかないようなので・・・ セルの色云々は関係なく、単にE列以降に入っているデータはそのままで D列の「発売日」からB1セルが何日後で、その列に「価格」を表示すれば良い訳ですかね？ 一応そういうコトだと解釈しての一例です。 Sheet1のシートモジュールです。 Sub Sample1() Dim i As Long, j As Long For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row j = Range("B1") - Cells(i, "D") Cells(i, 5 + j) = Cells(i, "C") Next i End Sub こんな感じでよいのでしょうかね？ ※ 関数でないので、データ変更があるたびにマクロを実行する必要があります。m(_ _)m
関連するQ&A
- VBAでセルの条件に合致したセルの選択
いつもお世話になっております。 エクセルで毎日更新されるデータを使って添付ファイルのように表を更新していきたいと考えています。 (1) Sheet1（含損益の推移）Sheet2（DLデータ）の二つのシートを作り、毎日更新されるデータをDLデータに添付します。（当日データのみ） (2) Vlookup関数でDLデータからNOに対応した、価格を表示します。 (3) E列以降は、データ抽出日と発売日の差から、対応する日数目に価格が表示されるように、IF関数を使った数式を入れています。（黄色セル） 上記だと、DLデータに当日データのみを添付するため、例えば2月2日のときは黄色セルは表示されるけど、青色セルは表示されません（当然ですが・・・） そこで、VBA等でデータ更新する前に、青色セルの部分を自動で選択して、関数式⇒値に変換出来ないかと考えています。 そのような事は可能でしょうか？ どなたかお知恵を貸してください。よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- マクロについて教えてください
エクセルで作った表のマクロを作りたいと思っています。 抽出した新規のデータと更新データを比較して、 重複することのないデータを作りたいのです。 抽出したデータのファイル名は、どちらも「EXCELデータ」となっています。 シート名はどちらも「データ」です。 表はどちらのシートとも、A列からJ列まであります。 （データの並び順は同じです。） 両方のシートから、下記１～３の条件のデータを取り出して、 新しいシートに書き出したいと思っています。 A B C D E F G H I J 番号 名前 区分 ジャンル 決定日 締切日 コード 社名 価格 区分 １ Ｃ列とＧ列を削除する ２ Ｊ列に「１」が記入してあるものを抽出する ３ Ｂ列に「初回」と言う文字が含まれているものを、抽出する。 新規分と更新分のデータをＡ列で比較し、 重複しているものについては色をつける。 というようなものを作りたいのです。 出来れば、ファイルやシートの名前を変えないで作りたいのですが、 変更をすることも可能です。 どなたか教えてください。宜しくお願いします。
- 締切済み
- オフィス系ソフト
- エクセル2010 条件書式について
添付しました表の Sheet1が過去のデータ Sheet2が更新されたデータ この場合条件書式で 変更箇所は赤色 追加されている所を青色 という方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ
お世話になります。 どなたか知恵をおかしください! ”Sheet1”にある表 A列 B列（役職） 田中 総務 藤田 会計 桂山 人事 松田 仕入れ 谷本 生産 鈴木 販売 ”Sheet２"にある表 田中 森田 河合 池田 佐々木 谷本 ・・・ " Sheet2に入力した氏名がSheet1に存在する時。 該当するSheet１のA列（氏名）・B列（役職）の背景を黄色に 色付けするマクロを教えてください。 来週には仕上げなければならないのですが、ヒントがみつからず。 宜しくお願い申し上げます。
- 締切済み
- その他([技術者向] コンピューター)
- Excel 2007 マクロ AdvancedFilterについて（再
Excel 2007 マクロ AdvancedFilterについて（再投稿） 先ほど同じ質問を投稿したのですが、画像を添付していませんでした。削除できないため再度投稿しました。 元データ（Sheet1）の表が4つあります。元データは画像に添付しました。 この表で製品名かぼちゃで「空白」と「-」以外の数値が入っている行をSheet3にコピーして貼り付けるマクロを作成しています。 <Sheet2> 製品名その他 かぼちゃ<> かぼちゃ- 下記マクロを実行したところ、Sheet3にはA列の番号のみ表示されます。 Sub Test1() Sheets("Sheet1").Range("A1:E34").AdvancedFilter xlFilterCopy, _ Sheets("Sheet2").Range("A1", Sheets("Sheet2").Cells.SpecialCells(xlCellTypeLastCell).Address), _ Sheets("Sheet3").Range("A1") End Sub <Sheet3> A列は空白です。 B列からE列は表示されていません。 どのように修正すればよろしいでしょうか。
- ベストアンサー
- その他MS Office製品
- エクセルのマクロを知りたい
エクセルで，たくさんのデータが入力された【シートａ】があります。 新しく【シートｂ】を作成して，そこに空白の表(1)～(10)までを作成します。 （ちなみに表(1)は１行から始まり１００行まで，表(2)は１０１行から始まり２００行まで・・・・といった感じです） 【シートｂ】の表(1)には，【シートａ】でＡ列に「１」が入力されているデータを抽出して，それをＢ列の昇順に並べて記入しなさい。同様に，表(2)には，【シートａ】でＡ列に「２」が入力されているデータを抽出して，それをＢ列の昇順に並べて記入しなさい。・・・というのを表(10)まで続けます。 上記のような命令をボタン一つで操作できるようなマクロを教えて欲しいのです。 お願いします。
- 締切済み
- オフィス系ソフト
- エクセル２０００マクロについて
シートにデータベースの表を作っています。 このデータベースを元にピボットで５つの作られたシートがあります。 データーベースのシートの中のデータが更新されたら、自動的に ５つの作られたシートもデータを自動更新したいマクロを作る場合は どうすればいいのか教えてください。 ５つのシートをそれぞれ選んでピボットのデータ更新ボタンを押さないと ５つのシートのデータが更新されない。 これをマクロで自動で5つのシートのデータを更新したい。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- （エクセルマクロ）複数の一連作業をマクロで行う処理について
以下の一連の処理についてマクロのコードを一式で教えてください。 【エクセルの構成】 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以降からマクロの自動記録ではできませんでした。 ご教授お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロで出来るでしょうか。
マウスでクリックしたセル位置の入力内容を、別のセル位置に表示するようなマクロは出来るでしょうか？。 考えているのは、弁当注文の集計表の作成です。 Ａ列に氏名、Ｂ列に店名、Ｃ列に品名、Ｄ列に金額と、予め入力してある表で、 当日注文する分を、個人毎に、氏名・店名・品名・金額・とクリックすれば、 同じシート内に作成した集計表に、クリックした順番に表示していくというようなものです。 予めの入力は、各列5行目から行っています。 また集計表は、Ｆ列、Ｇ列、Ｈ列、Ｉ列の5行目から下に、クリックした順番に表示できればと思っています。
- ベストアンサー
- オフィス系ソフト
- エクセルで別シートから一つのシートに低い数字を表示
エクセルで同一形式の８枚の別シートから１枚のシートへ一番価格が低いものを表示させたいんです。さらに表示させたシートの色に表示させる様にしたいです。 例 シート１ シート色赤 A 100 B 200 C 300 シート２ シート色青 A 200 B 100 C 300 シート３ シート色黄 A 300 B 200 C 100 合計シート A 100 赤 B 100 青 C 100 黄 数字だけでも表示できると助かるのですが やはり色もつけるとなるとマクロを組まないといけないのでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました。