- 締切済み
エクセルシートのコピーとシート名の変更&集計表
エクセルの集計に関して初心者です。1シートに同じ内容で各顧客のデータを同じフォームで入力しています。これを新しい顧客が出てくるたびにシートコピーしているのですが、VBAでボタンでコピーできるようにしたいです。 /Users/inouehirotaka/Desktop/スクリーンショット 0030-09-17 11.55.37.jpg さらにこれらの各シートの内容を集計表で一覧にしたいのですが、良い関数もしくはVBAでの転記方法をお教えください。 /Users/inouehirotaka/Desktop/スクリーンショット 0030-09-17 11.56.28.jpg 色々VBAで試してみたのですが、どうもうまくいきません。ご教授よろしくお願いいたします。
- Naho0922
- お礼率11% (1/9)
- Visual Basic
- 回答数3
- ありがとう数0
- みんなの回答 (3)
- 専門家の回答
みんなの回答
- masnoske
- ベストアンサー率35% (67/190)
説明用の画像がアップできていないのではないでしょうか。言葉だけだと、いまいち状況が掴めません。 シートコピーが目的なのか、集計が目的なのかも判りづらいです。 集計が目的なら、顧客シートとデータシートを別にして、集計はSUBTOTAL関数というのが鉄板かと思うのですが…
- watabe007
- ベストアンサー率62% (476/760)
>さらにこれらの各シートの内容を集計表で一覧にしたいのですが、良い関数もしくはVBAでの転記方法をお教えください。 こんなこと? http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/prog/prog01.html
- watabe007
- ベストアンサー率62% (476/760)
>VBAでボタンでコピーできるようにしたいです。 デスクトップ上のjpgをシートに取り込みたいのか シートの一定範囲をjpgでデスクトップにエクスポートしたいのか? >色々VBAで試してみたのですが、どうもうまくいきません。 この過程を教えてもらうと推測しやすいんだけど とりあえずアクティブシートのA1:H30の範囲をデスクトップ上に jpgでエクスポートしてみました。 Sub Test() Dim FilePath As String Dim myRang As Range Dim cht As Chart FilePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _ "\スクリーンショット " & "00" & Format(Now, "e-mm-dd hh.mm.ss") & ".jpg" '図形でエクスポートする範囲を設定 Set myRang = ActiveSheet.Range("A1:H30") 'セル範囲を画像としてコピーする(CopyPictureメソッド) myRang.CopyPicture appearance:=xlScreen, Format:=xlPicture '空白のチャート作成 Set cht = ActiveSheet.ChartObjects.Add(0, 0, myRang.Width, myRang.Height).Chart 'チャートにセル範囲の図形を貼付け cht.Paste '図形をエクスポート cht.Export Filename:=FilePath, filtername:="JPG" 'エクスポートが済んだのでシート上のChartObjectsを削除します。 cht.Parent.Delete End Sub
関連するQ&A
- エクセル 複数シートの同一セルを別シートへ集計
エクセルで複数sheetの同一セルを集計sheetへコピーしてきて一覧にし、集計するという作業を行なっています。 1~20のsheet(sheet数sheet名は変動します)を作り、一番右側に集計sheetがあります。 集計sheetのA5へsheet1のF10、A6へsheet2のF10・・・(内容は文字列) 集計sheetのB5へsheet1のG10、B6へsheet2のG10・・・(内容は数値) とコピーしていき、B30にはB5~B29の合計がSUM関数で入っています。 VBAで、集計sheetから左側のsheetの指定セルを一気に集計sheetへコピーしてくる方法はないでしょうか。 ただし集計sheetから左側のsheet21とsheet22は集計に入れたくないという式も教えて頂きたいです。 お時間のある方、ご教授下さい。 または別の質問で参考になるようなものがあればアドレスを教えて下さい。 説明が下手で申し訳ないですが、どうぞよろしくお願いします。
- ベストアンサー
- Visual Basic
- 集計シートに自動で集計されるようにしたい
シート1.1には、 日付 会社名 2014/1/1 AAA会社 2014/1/1 BBB会社 のようなデータが入っていて、 シート1.2には、 日付 会社名 2014/1/2 CCC会社 2014/1/2 DDD会社 のようなデータが入っています。 同じようにシート1.1から1.31まで、日付+会社名が入っています。 最後に集計シートに全ての日付のデータを転記しています。 フォーマットは同じです。 現在は手作業で集計シートに全ての日付のシートを一つずつコピーして貼り付けていますが 自動で行う方法はないでしょうか? VBAは禁止されています。 各シート毎、リスト化したり名前を付けてみたのですが、そこからどうすればいいでしょうか?
- ベストアンサー
- Excel(エクセル)
- Excel2003で、複数のシートに記入されたアンケートの解答欄を、集計用シートに転記し一覧表を作りたい。
Excel2003を使用中です。複数のシート(700シート以上)に同一フォームで記入されたアンケートの解答欄(設問により、シート内での解答欄の列はばらばらです)のみを、一枚の集計用シートに転記し、一覧表を作りたいのですが、何か良い方法はありませんでしょうか?どなたかご存知の方、いらっしゃいましたら教えてください。
- 締切済み
- オフィス系ソフト
- EXCEL VBA 保護したシートを読込みしたい
お世話になります。 EXCEL VBAで「データ」というシートあります。ここの100件ほどのデータが入っており、もう1つの「集計」というシートにフォームを作成してそのフォームからVBAを使って集計するのですが、この「データ」シートはユーザーにいじられたくないので保護もしくは非表示にしたいと思っています。 しかし「データ」シートを保護してしまうとVBAで「データ」シート読み込む際にエラーになってしまいます。 何かよい方法はありますでしょうか? 環境 WindowsXP SP3 Excel2003
- ベストアンサー
- その他MS Office製品
- VLOOKUPを使って多数シートからの集計について
VLOOKUP('C:\Users\uhtwq\Desktop\[出席者.xlsx]担当田中'!$I$3,リスト!$A$2:$B$25,1,FALSE) 上記の関数でこの後50シートほどの集計をするのですが、一つずつの関数入力でなく一括して集計をしたいのですが、関数をどのように変更したらよいかわかりません、教えていただけませんか。 INDIRECTとROW関数をつかうとよいのでしようが、代入の仕方がわかりません。よろしくお願いします。いわゆる串差しというらしいのでが、よろしくお願いします。 VLOOKUP(INDIRECT("Sheet" & ROW() & "'!$I$3",INDIRECT("Sheet" & ROW() & "'!$I$2:$L$7",1,FALSE)
- ベストアンサー
- Excel(エクセル)
- 集計表の作成(自動転記)
集計表への自動転記の方法を教えてください。 方法は可能であれば関数を用いた方法でお願い致します。 マクロを使用して作成する場合でも構いません。 ※1枚目の画像 完成後の集計表となります。 データ一覧(CSV)より、データを集計し、結果を転記する。 売上(2)については、指定のセルを転記するのではなく、 別にある対象リストに該当するもののみを集計し、転記する。 ※2枚目の画像 データ一覧(CSV)です。 よろしくお願い致します。
- 締切済み
- その他(プログラミング・開発)
- エクセル 別シートへの集計方法について
エクセル2007を使用し、顧客へのアプローチ進捗を管理しています。 その中で、進捗ステータスを入力するセルには(★、A~C、×)といった具合に入力し、 成約【★】になったものについては、別シートへ手入力しています。 この手入力の作業を無くすため、次のようにする方法はないでしょうか? 1)成約を示す【★】を入力した列のみ、成約一覧として別シートへ自動的に転記・集計 2)上記1に加えて、その列の一部のセルを指定する 進捗 担当 顧客名 会社名 所属部署 その他 ★ 田中 猫山一郎 くろねこ飲料 営業 しろねこ販売よりご紹介 × 山本 犬上二郎 しばいぬ土木 営業 純新規 ※実際の表は20列程度あり、転記・集計したいセルは10程度です
- ベストアンサー
- オフィス系ソフト
- エクセルデーター集計について
現在1月から12月まで各月毎のシートと集計表があります。 そのシート内の集計表は A ・ B ・ C ・ D ・ E ・・・・・・・・BB 1担当・顧客ナンバー・日付・苗字・名前・・・・・・・・ 2田中 3佐藤 4小川 5田中 6田中 7佐藤 8井上 ・ 150位まで(行については月により変動あり) と各列と行にデータが入力されてます。 担当者は12名で元になるデータ表には活動順に担当者名が入力されてます。 やりたい事は (1)各担当別の月別集計と年間集計シート作成 月毎にシートを作成でなく、あくまで担当者毎の月毎集計と12か月の年間合計転記を同一シートにする事は可能でしょうか。(個人成績表の為) またその時担当別にシート作成が出来るとうれしいです。 (2)全担当者の月集計一覧シート 一つのシートに全担当者の月別集計(1月から12月)を一覧にしたいのですが、各担当者の月別合計欄を転記の認識なのですが、他にいい方法もありますか? (3)全担当者の年間集計一覧シート (2)の合計を転記の認識です。他にありますか? 以上3点を作成したいと思ってます。 (1)が出来れば何とかなるような気はしますが、どなたかご教授お願い致します。 項目はA~BBまで横一列にあり 担当者の入力も横一列なのでvlookupでも考えましたが、マクロで何とか出来るなら挑戦してみようかと思ってます。 集計表自体他のブックからのリンクやなんやらで20M位ファイルサイズがあり、今回の(1)(2)(3)は新規ブックに作成したいと思います。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロで複数のシートのコピー
エクセル初心者です。 私の場合、3から5社のフォルダが作ってあり、それぞれ、エクセルで、日々の入出庫の管理&集計をしています。 3社のフォルダより、指定ファイル・シート内のデータをピボットテーブル用集計シートにコピー貼り付けしたいのです。 ピボットテーブル機能で複数のシートを選択するのはシート数が多すぎて手間。 マクロによって、集計シートにまとめてから、ピボットテーブル機能を使いたい。 各社シートのフォームは同じ.。 日付けを指定してコピー貼り付けしたい。 集計シートに各社連続で貼り付けがしたい。 集計シートの最初の行だけにタイトルを表示したい。 なるべく、フォームの行・列幅は変更しないようにしたい。 貼り付けたデータのユーザー名がわかるようにしたい。 なにとぞ、お力をお貸しください。 よろしくお願いいたします。 エクセル2003
- 締切済み
- その他MS Office製品
- シート名のコピー
大量にあるシートのデータの一部分を抜き出して表を作りたいのですが 普通にドラッグコピーをしようとしてもシート名が変化しないために余計手間がかかってしまいます A1のセルにある ='Sheet1'!A1 という式をドラッグコピーでB1に ='Sheet2'!A1 とするのは可能なのでしょうか できれば関数での解決が望ましいですが、 VBAもある程度なら理解できますのでご助力お願いいたします
- ベストアンサー
- その他(ビジネス・キャリア)