- 締切済み
エクセル 初心者。
tom04の回答
- tom04
- ベストアンサー率49% (2537/5117)
No.4・5です。 補足に ＞計算表は１日集計にしております。 （シート１が１日の売り上げ、シート２が２日の売り上げ） とありますが、一番肝心なところです。 どのSheetに書き出すか？によって当然コードは変わってきます。 補足にも「どのSheetに書き出すか」が明記されていませんので、 一応最後のSheetに書き出す場合のコードにしてみました。 Sub Sample2() 'この行から Dim i As Long, k As Long, str As String, wS As Worksheet Set wS = Worksheets(Worksheets.Count) '←Sheet見出しの最後のSheet i = wS.Cells(Rows.Count, 1).End(xlUp).Row If i > 1 Then wS.Rows(2 & ":" & i).ClearContents End If str = InputBox("担当者名を入力してください。") For k = 1 To Worksheets.Count - 1 '←Sheet見出しの一番左側から最終Sheetの一つ前まで With Worksheets(k) .Range("A1").AutoFilter field:=3, Criteria1:=str i = .Cells(Rows.Count, 1).End(xlUp).Row If i > 1 Then .Rows(2 & ":" & i).Copy wS.Cells(Rows.Count, 1).End(xlUp).Offset(1) End If .AutoFilterMode = False End With Next k End Sub 'この行まで ※ VBAの場合Sheet順・各シートの行・列の配置が一つ違っただけでも めちゃくちゃな表示になってしまいますので、実際のデータに合わせて適宜変更してみてください。m(_ _)m
関連するQ&A
- あるエクセルシートにＡ行に顧客名、Ｂ行に売上が日付順に羅列されているの
あるエクセルシートにＡ行に顧客名、Ｂ行に売上が日付順に羅列されているのですが、ある特定の顧客だけの売り上げのみを指定の日付の範囲で集計したい場合の手段についてお教え下さい。どのような手段があるでしょうか？ よろしくお願い申し上げます。
- ベストアンサー
- その他MS Office製品
- エクセル
シート１～５まであります。別に情報シートを作成しています それぞれ同じ原本から作成しています 全部のシートにＡ１～Ａ１０のセルに日付、B1～B10のセルに文字など入力がするところがあります 入力はＡ１から順番に入れていきます 例えば 保存ボタンを作成しておく シート１のA1に日付、B１に”文字”を入力し、保存ボタンをおす 情報シートに日付と内容が一致する情報がなければ、 情報シートのＡ列にシート名、Ｂ列に日付、C列に入力した内容が 空白のところに出力される こんな感じに作成できないでしょうか？
- ベストアンサー
- Excel（エクセル）
- エクセル関数について
エクセルで複式簿記の為に現金元帳と預金元帳を作成しました。 現金元帳と預金元帳を参照して売上元帳を作ろうと考えています。 現金元帳と預金元帳は A B C D E F 日付 勘定科目 摘要（企業名など） 借方 貸方 残高 となっており1月～12月のシートを作ってあります。 売上元帳を A C D 日付 摘要（企業名など） 借方（売上） このような表にしたいのですが 企業名を検索値にして VLOOKUPで作成しようとしたのですがその場合、D列の借方（売上）金額は表示できるのですが C列の左側のA列はエラー表示になってしまいます。 LOOKUPでも試しましたが日付がすべて同じ日付になってしまいます。 どのようにしたら上手く行くのか知恵を貸してください。 因みに 現金元帳で1ファイル（12シート） 預金元帳で1ファイル（12シート） 売上元帳で1ファイル（12シート） で作成しようとしています
- 締切済み
- その他(業務ソフトウェア)
- エクセルで複数シートをまとめる
エクセル初心者です。店舗ごとにシートを分けて現金出納を入力しています。 日付 科目 入金 出金 残高 ２／１ 普通預金 １ １ ２／１ 売上 1 ２ ２／２ 売上 １ ３ 上記のように店舗が１６あるので１６シートづつ入力してしています。これを一つのシートにそのまま自動転記させ１枚で印刷したいと思っています。できれば、自動転記させたものを日付ごとに印刷したいと思いますがエクセルで可能でしょうか。初心者の私にはできませんでした。どうか詳しい方教えてくださいお願いします。
- 締切済み
- オフィス系ソフト
- エクセルについての質問です。
エクセルについての質問です。 Ａとういうブックから（以後Ａ）Ｂというブック（以後Ｂ）にデータを吸出し、Ａに入力されているデータのうち数個をＢに集めた際、 Ｂに吸い出したデータの中から、セルに入力されたデータの右から3個の文字がこの文字だったらシート2へとか左から幾つめがこの文字だったらシート3へとかって出来るのでしょうか・・・？分かりづらいかもですが例を挙げさせて頂きます・・・ 例） ブックＡ←毎日データを入力（フォーマット等が専用で有り、会社として使用方法が決められているブック） ブックＢ←Ａに入力されたデータのうち幾つかを集め他店と共有して情報を読み取る Ａのシート1に入力されているデータ ↓ Ｂのシート１へ＝'[ブックＡ]シート１'!$A1等を使用しデータの吸出し Ａ Ｂ Ｃ Ｄ Ｅ Ｆ １ 日付 氏名 伝票No. 品番 品名 数量 ２ 10/1 山本 001 123 aaa a 2 ３ 10/2 佐藤 002 122 aaa b 1 ４ 10/3 加藤 003 213 a ccc 1 ←ＡからＢのシート１に集められるデータの内容 ５ 10/4 田中 004 312 a ddd 1 （投稿の仕様上？でスペースが無くなって行列が合わなくなってますが・・・） ： ： ： ： ここからＥ列に入力されたデータを判別してシート２以降に振り分けをしていきたいのですが・・・ aaaという商品にはaaa a、aaa b、aaa cがあり、aという商品にはa ccc、a dddとある場合、 E列に入力されていくデータの前後の文字列を判別して、D、E、Fをシート２以降に振り分けていくことは可能なのでしょうか・・・？ E列に入力された文字列の前3つがaaaだった場合、同一行のD、E、Fをシート２へとか、 E列に入力された文字列の後ろ3つがcccだった場合、同一行のD、E、Fをシート3へ等の 振り分けをしたいのですが・・・・ 質問の仕方が悪すぎてとても分かりづらいですが、これかなって思われる方・・・ご回答お願いします・・・ 補足 品名に半角スペースありだったり半角スペースなしで10文字くらいの文字だったりとランダムです・・・ LEFT、MID、RIGHT関数を使用しようと思ったのですが上手くいかずで・・・
- ベストアンサー
- オフィス系ソフト
- エクセル複数シートの検索とVBA
エクセルVBA初心者です。 今エクセル2007で、下画像の上段・中段のような売上げシートを ブックの中に複数シート作成しています。 シートは売上げのあった日毎に作成しており、シート名は「1.1」のように日付にしています。 売上日はシートの左上のA１セルに入力しています。 ここでしたい処理なのですが、画像の下段のように検索用の シートを1枚作り、そこに売上内容を入力し、マクロコードを実行すれま、自動的に 該当するデータ（売上内容から支払い方法まで）を表示するコードはあるのでしょうか。 今は手作業で、シートを目視で確認しているので大変になってきました。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル関数
エクセル２０１０を使っていますが、１つのシートAには販売時の日付、品番、数量、単価、販売額が記されており、同一ファイル内には別のシートBで指定した日付の売上明細を表記したいと思っていますが、うまく関数が組めません。どのような関数を組めば表記できますでしょうか？ちなみにシートAは１か月継続して使うため最大ラインがおおよそ１０００行くらいで、シートBは最大５０行くらいの表記が可能である必要があります（A5～A55行目） 指定した日付の売上明細（シートB)に表記が必要なので品番、数量、金額になります 指定する日付ですが、シートBの先頭行A1かB1に日付を入力し、A5行目から開始しようと思っています。A５は品番、B5は数量、C5は数量、D5は単価、D6は合計を表記したいと思っています
- ベストアンサー
- Excel（エクセル）
- 他のシートへコピーしたときの文字化け
EXCELで、ほかのシートのセルに書き込んだ文字をシート１のセルに反映するようにしました。文字と数字は、ちゃんと反映されているのですが、日付を入力するとシート１のセルには、よく解らない数字の羅列が表示されます。 日付がきちんと表示されるようにするには、どうしたらよいのでしょうか。
- 締切済み
- オフィス系ソフト