• ベストアンサー

excel2007VBA 日付参照 列表示

シート1の締日が ”AA3” ~ 表記されていく表があります。     ”AA4”以下は、各顧客の合計金額が記録されています。(月毎に 列、行、共に増えます。) 同じシート内で、”K1”に表記した日付の列を、金額のみ”k4”以下に表記したいのですが、 いろいろ方法を考えてもどうしてもできません。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • kkkkkm
  • ベストアンサー率65% (1646/2496)
回答No.2

同じような質問が他の方からも出てますがどこかの練習問題なのでしょうか・・・ Sub Example() Dim MyColumn As Long, MyLastRow As Long On Error Resume Next With Sheets("Sheet1") Range(Cells(4, "K"), Cells(100, "K")).Clear '↑100はデータが最大となるであろう最終行を指定 MyColumn = WorksheetFunction.Match(.Range("K1").Value2, .Range("3:3"), 0) '↑もしくはws2.Range("C1").Value2をws2.Range("C1")に MyLastRow = .Cells(Rows.Count, MyColumn).End(xlUp).Row .Range(Cells(MyLastRow, MyColumn), Cells(4, MyColumn)).Copy .Range("K4") End With End Sub

musti
質問者

お礼

何度もすいません。 ありがとうございます。 出来ました!

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (2)

  • kkkkkm
  • ベストアンサー率65% (1646/2496)
回答No.3

No2です。 > 同じような質問が他の方からも出てますが と思ったら同じ人でしたか(笑)

全文を見る
すると、全ての回答が全文表示されます。
  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.1

VBA使う必要無いように感じます。HLOOKUP関数でいいのでは? K4に =IFERROR(HLOOKUP($K$1,$AA$3:$CZ4,ROW()-2,FALSE),"") で、下方に必要分コピー

musti
質問者

お礼

本当ですね! 簡単に表示出来て助かります。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • EXCEL2010で月ごとの合計を出したいのですが

    一つの行に日付(2014/1/15のような表記です)と別の列に金額があり、年間で約1000行あります。 行を日付順に並べて同じ月の最後の行に月ごとの金額合計を出したいのですが・・・・・ 日付が月までの表記でしたらデータタブから並び替えでできると思うのですが日まで表記されていますので日にちごとの合計になります。日にちまでのデータで月単位の合計を出す方法を教えていただけませんか。 2014/1/15         5000 2014/1/16         12300 ↓        2014/1月の合計      17300 のように      2014/2/1 800 ↓               2014/2月の合計       800

  • Excel2016で文字列の一括置換を行うVBA

    Excel中級者です。Windows10, Excel2016で、別の「マスタ」シートにある表に従い、「Data」シートにある文字列を一括置換するVBAを教えていただけますと幸いです。マスタ表は2列 100行で1列目に置換前の語、2列目に置換後の語があります。dataシートは1顧客1行で、20列に商品名が入っており、同シートで一括置換を実行したく存じます。どうぞよろしくお願い申し上げます。

  • Excel2003 検索して値の参照

    お世話になります。 掲題の件で ご相談が御座います。 添付のような表がありまして、シートが2枚に分かれております。 数式を入れたいシート(表示用シート)に参照元シート(入力用シート)を図で貼り付けました。 ピンクの表が入力用シートになります。 入力用の「C列"エリア"」を「D列"更新日"」を参照して 日付が横並びになっている 表示用シートに各項目を反映させたいのですが、どのような数式を入れたら良いのか、 また そもそも表の作りに無理があるのか?と ちょっと煮詰まってしまっている状態です。 入力用シートは更新日と備考以外はプルダウンで選択するようにしています。 反映させたい表示用シートには「A列」に「エリア」が北海道~沖縄まであります。 日付は10月~3月まで用意されており 3行目、15行目、27行目、39行目、52行目に「月」が入っており、 4行目、16行目、28行目、40行目、53行目に「日」が入っております。 さすがに 2行にまたがった日付を参照するのは無理があるだろうと思い 1行目にフォントの色「白」で「2009/9/25」等 該当する列に日付を入れました。 しかし、その後に 入力用シートのC列D列を参照して どうやって 表示用シートに反映させたら良いかで困っております。 作業列を作るにしても どうやったら良いものやら、、 そもそも 全部横並びになっている所に無理があるのでしょうか? どなたか お分かりになる方がいらっしゃいましたら宜しくお願い致します。 説明不足等 御座いましたら何なりとお申し付けください。 宜しくお願い致します。

  • excel2003の月次項目合計の計算式

    excel2003です。 現在A1~W100 までの表があります。100行は各項目の合計が入ります。B列は日付(803は8月3日)で飛び飛びの昇順です。 今後新しい日付が100行目の直前に追加されることはもちろん、過去行も追加されたり削除されたりします。 ここで新しく各月ごとの項目ごとの合計を103行以下に新設したいのです。 例えばD104セルのbb2は2月次の項目2の合計を示します。A列、B列は手入力します。 月次項目の合計はどのような計算式にすればよいか教えてください。 マクロを使えば見通しよくできるはずですが、ここでは計算式でやります。 (表がわかりづらいところはお許しください。---は表示桁の調整です) A ---- B --- C -- D -------  W 名前 日付 項目1 項目2 ----  項目n 2 --- 101 100 200 ---- 300 3 --- 102 100 201 ---- 101 -- 10 --- 131 -- ---------------------- 11 --- 202 ------------------------- -- 50 --- 830 ------------------------ 51 --- 903 ------------------------- -- -- 100 -------- 計1 -- 計2 -----   計n 101 102****以下が新設したい表です 103 1  aa1 aa2 ---- aan 104 2  bb1 bb2 ---- bbn -- -- 110 8  hh1 hh2 ---- hhn

  • EXCEL2000:ピボットテーブルから参照

    EXCEL2000で質問があります。 ピボットテーブルで作成した集計表に表示される値を参照して、別の集計表を作成したいのですが、ピボットテーブルを更新した際にデータに変更があるとその参照先セルの位置が変更してしまいます。 常にその項目(データの合計部分など)を参照するように設定することは可能でしょうか? ご回答よろしくお願い致します。 詳細は以下の通りです。 ●基本テーブル(sheet1:データ) 業績集計表です。 A列:契約者 B列:担当者 C列:売上げ(金額) D列:契約成立月 ●ピボットテーブル集計表(sheet2:集計表1) 行:担当者 列:契約成立月 データ:売上げの合計 ●計算式がある集計表(sheet2:集計表2) 各月の実績欄=集計表1の「契約成立月」ごとの「売上げの合計」 以上です。

  • EXCELのマクロ 列の非表示

    1行目に日付、2行目に金額が記載された表があります。 「2行目にある金額が0の時、その列を非表示にする」ということを、B列からAL列まで適用したいのですが、 どうすればよいか、また、お教えいただけませんか? どうぞよろしくお願いします

  • EXCEL:複雑なデータの参照

    お世話になります。 現在顧客の予約を管理する表をEXCELで作成しています。 簡単なものでしたらVLOOKUPで参照すればよいのですが、結構複雑なものになってしまい、どうしても横向きの参照だけでなく縦向きの参照も同時に行わなければ出来そうにありません。 そこでINDEX関数を利用してやってみましたが、それでも出来ない部分が出てきてしまいご相談です。 シート1にお客様にお渡しする年間予約表を作成、シート2に元データを置きます。 やりたいことは、お客様にお渡しする予約表に顧客コードを入力すると自動的にそのお客様の表にデータが入るようにすること。 それと、途中で内容変更をしてもそれに対応した表が出来る事が条件です。 シート2の元データには、A列に顧客コード、B列に指名、C列に品名(1人に対して6種類の商品があるのでC1に商品1・C2に商品2・・・といった形で6行分で一人のデータとなっています。)、D~Gには、各商品には同じオプションが4つずつあるので、Dにオプション1・Eにオプション2・Fにオプション3・Gにオプション4となっており、Hに各商品の数の合計、Iにすべての合計金額があり、D~Iまでで1月分となります。 以降、J~O、P~Uは2月、3月のデータとなります。(画像参照) 現在問題なのは、オプションの参照とその数の参照がうまくいきません。 顧客コード1つに対して6列(6種類の商品)あり、そのどこかの商品+オプションに数字が入った時、お客様にお渡しする表にオプションとその数を表示するようにしたいのです。 IFやOR、ANDを駆使しても私の頭ではどうしても参照できませんでした。 何か良い方法があればご教授頂きたいと思います。

  • EXCEL関数 週計テクニック

    sheet1に売上日計表があります。 A列=日付(yyyy/mm/dd) B列=商品名 C列=売上金額 D列=顧客名 となっていて、縦に1年間の売上データが並んでいます。 sheet2に下記の週計表を作りたいのですが。各行に適した関数を教えてください。 A列=1回以上購入した顧客名の一覧(1顧客1行) B列=1月にA列の顧客が来店した日数 C列=1月のA列の顧客の売上合計 以降右に、D、E列=2月 F、G列=3月、という具合に月別週計をしたいです。 宜しくお願い致します。

  • 【Excel VBA】条件を満たすデータを順に抽出

    Excel2003を使用しています。 CSVでExcelに取り込んだデータの中から、条件を満たすものを順に抽出して一覧表を作成するマクロを作りたいのですが。。。 ・Sheet2のB列に“コード”と入力されている行のC列のデータ → Sheet1のC列2行目以下 ・Sheet2のC列に“合計”と入力されている行のD列のデータ → Sheet1のD列2行目以下 に順に表示させたいのですが、うまくいきません。 以前、いただいた回答で参考になりそうなものを見てみたのですが、手順というか何かヒントのようなものをいただけたら、自分でどうにかできそうなので、質問させていただきました。 よろしくお願いします。

  • Excel/違うシートの中の同じ日付(数値)を探す

    みなさま。 少し困っております・・どうぞよろしくお願い致します。 Excelのシート1に日付の入った日程表があります。 日付の列は、納品があった日のみが記載されており 規則性がありません。 例えば、日付の列の3月15日の行に「○」と入っていた場合 隣のシート(納品管理簿)から3月15日の行を探し、同じ行の納品時間に 数値をいれないとセルが赤くなるように、また数値を入れると 色が消えるように設定したいと考えています。 セルの色を自動的に変えるのはいろいろ調べてみてできそうだったのですが 違うシートから同じ数値を探し出して、その行の別のセルに反映させるのが どうしても複雑でわかりません・・ 詳しい方がいらっしゃいましたらぜひ教えてください。 よろしくお願い致します。

このQ&Aのポイント
  • カッティングマシンScanNCut SDX1000を使用して、シールラベルのハーフカットをする方法について相談します。
  • Windows10で接続し、購入前の状態で使用する予定です。
  • 関連するソフト・アプリや電話回線については特にありません。
回答を見る

専門家に質問してみよう