A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
質問そのままに受け取ってやるとして
まずやり方だが
(1)VBAでもできる(質問者はVBAの経験あるのかな)
多分無いのでしょう。既出回答も役に立つのかな。
(2)関数でもできる(ちょっと手間だが)
下記に説明してみる。
ーー
しかし、根本論として
多分質問者はシステムの素人で、自分の考えでこういう質問をしているように思えてならない。
なぜなら今までシステムにかかわったものは、エクセル300行のレコードを300シートなぞにしません。
1行データでー>1画面に組み立てー>1枚印刷ー>300回繰り返し
といったパターンでやってきたからです。
1人を指定して表示するときも、人に割り当てたコードで検索ー>その人のデータ行を見つけるー画面に(見やすく編集して)表示
別の人の指定がでたなら、内容(コード)を変えて同様作業をプログラムで繰り返す
とすることが多い。
ーー
関数では
(1)原データ(表の)の各行に連続番号を振る
ーー
(2)1シートを(見本的に)作る。
標題や見出しや書式や様式(フォーマット)を好みのものに
作る
(3)そして
関数式を入れる。それは
(4)(1)の連番で引くVLOOKUP関数を用いて、原データ表の各列の項目を(2)のフォーマットの中の該当のセルに入れる。
(5)各シートで連番を入れるセル(同一位置であること、下記例ではG1)を決めておく。
(6)シートを300枚コピー
手間だが1->2->4->8・・
と操作でコピーする方法はある。10回ぐらいで300シートを越える。
(7)各シートの(5)のセル(下記例ではG1)に1,2,3、・・を入れる。
これで各シートの内容は元のデータの各行を反映するはず。
VBAを使えば(6)や(7)は自動化できるので、より楽になる。
簡略例
Sheet1の表データ
連番 氏名 住所 以下項目数が多数あっても良い。
1 山田 調布市
2 鈴木 千葉市
3 田中 横浜市
ーー
Sheet2以下の
各シートのフォーマット
社員カード 連番 ZZZ(G1セルと仮定)
氏名 XXXX
住所 YYYY
XXXXのセルの式 =VLOOKUP($G$1,Sheet1!$A$1:$C$300,2,FALSE)
yyyyのセルの式 =VLOOKUP($G$1,Sheet1!$A$1:$C$300,3,FALSE)
例では氏名、住所だけに簡略化したが、項目の数だけ式をセットすることになる。!$A$1:$C$300の部分は変わるが。
シート名を各氏名にするのは関数では絶対できない。
VBAが必要
ーー
本質問は初心者には難しい問題である。
素早い回答をいただき、ありがとうございました。
ご指摘の通り、VBAは初心者以前です。
印刷や画面表示のためではなく、作業用に分割した300シートが必要だったので、質問させていただきました。
imogasiさんの回答は、私には難しかったです。
ありがとうございました。
No.2
- 回答日時:
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。
マクロの実行はワークシート画面に戻ってALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。ただシートを追加したのではシート名がわかりにくいので、10行目をコメントでなくすれば(行先頭の「'」を削除すれば)元のシートのA列の値をシート名にするようにしました(各行で重複がある場合はエラーになりますのでNG。もし)
Sub Macro2()
Dim orgWs As Worksheet
Dim idx As Long
Set orgWs = ActiveSheet
Application.ScreenUpdating = False
For idx = 1 To Range("A65536").End(xlUp).Row
Worksheets.Add after:=Sheets(Worksheets.Count)
orgWs.Rows(idx).Copy
Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
' ActiveSheet.Name = orgWs.Cells(idx, "A").Value 'シート名をA列の値にする。B列の値にするなら"B"に変更。
Next idx
orgWs.Activate
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
なおブック内の最大シート枚数はメモリ容量に依存しますので、質問者さまのPCで300枚作成できるかは定かではありません。ご承知おきください。
No.1
- 回答日時:
実際にどのような形で顧客データが記述されているのか分かりませんが、仮に以下の通りだったとします。
・1行目は見出し行で、2行目からデータが始まる
・1列目からデータが始まる
以下のコードを標準モジュールに記述し実行してみてください。
Sub DeployToSheets()
Dim srcSheet As Worksheet
Dim destSheet As Worksheet
Dim lastSheet As Worksheet
Set srcSheet = ActiveSheet
Set lastSheet = srcSheet
Dim i As Integer
Dim j As Integer
For i = 2 To srcSheet.UsedRange.Rows.Count
Set destSheet = Worksheets.Add(after:=lastSheet)
'●●●の部分に顧客名の列を記入(C列なら3)
destSheet.Name = srcSheet.Cells(i, ●●●).Value
For j = 2 To srcSheet.UsedRange.Columns.Count
destSheet.Cells(j - 1, 1) = srcSheet.Cells(i, j).Value
Next
Set lastSheet = destSheet
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- Excel(エクセル) Excel 指定した固有番号で、複数の行を削除する方法は? 2 2022/03/30 15:18
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける (再質問) 4 2022/09/14 22:51
- その他(ソフトウェア) 現在と過去の顧客名簿、新規・解約・更新など作りたいのですが「やよいの顧客管理」なら簡単に扱えますか? 1 2022/05/18 10:44
- Access(アクセス) 対象月の2桁表示について 1 2023/01/07 05:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Excel(エクセル) エクセル 多数のファイルから値を抜き出したい 4 2022/12/12 16:49
- Visual Basic(VBA) 複数ページあるPDFファイル内の文字列等の情報をキーにPDFをグループ分け分割したい。 2 2022/06/25 09:51
- Excel(エクセル) 関数の式を教えてください 2 2022/04/04 11:15
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
EXCEL の表を一行ずつシートに分ける方法
Excel(エクセル)
-
エクセルで一行毎、一枚づつ自動でプリントアウトしたいです。
Excel(エクセル)
-
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
-
4
エクセルの1シートの内容を複数のシートに分割したい。
Excel(エクセル)
-
5
エクセルで50行ごとに区切ったデータをシートに分割したい
Excel(エクセル)
-
6
Excelのシートにある1行のデータを複数行に分割したい
Excel(エクセル)
-
7
エクセルのページをシートごとに自動分割するやり方について(列、行ともに同一に)
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
【関数】先頭だけにある、半角...
-
エクセル 白黒印刷で白線を印刷...
-
Excelのチェックボックスの使い...
-
【関数】適切な文字数の数字を...
-
Excelのpivotについて質問です
-
Excel ピボットテーブルで日付...
-
LOOKUP関数を使えばいいのでし...
-
エクセル関数を教えてください
-
エクセルのセルに同じ大きさの...
-
UNIQUE関数が使えないバージョ...
-
excelの不要な行の削除ができな...
-
エクセルで「-0.0」と表示さ...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの関数について教えて...
-
Aというブックの1というシート...
-
【マクロ】シート名を取得する...
-
VBA Private Sub Worksheet_Cha...
-
VBA、Excelのworkbook.open に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報