No.3ベストアンサー
- 回答日時:
一例です。
(1)一覧表ブックを開く→Sheet1タブ上で右クリック→コード表示→VBE(右上画面)に以下のコードを貼り付け
(2)コード内の「******」に顧客情報詳細ブックのパス名を設定→alt+F4キー押下(VBE画面終了)し、alt+F8キー押下→マクロを選択して実行
◎サンプルコード表
Sub 一覧表を作成()
Application.ScreenUpdating = False
myBook = "C:\***********\顧客情報詳細.xls"
i = 0
With Workbooks.Open(myBook)
For Each k In .Worksheets
i = i + 1
Sheet1.Cells(i, 1) = .Sheets(k.Name).Range("A6")
Sheet1.Cells(i, 2) = .Sheets(k.Name).Range("J6")
Sheet1.Cells(i, 3) = .Sheets(k.Name).Range("J8")
Next
.Close False
End With
Application.ScreenUpdating = True
End Sub
この回答への補足
すみません どうか教えてください。
>2)コード内の「******」に顧客情報詳細ブックのパス名を設定
「******」を削除してパス名を貼り付ければいいのですね?パス名っって何ですか?
引き続きお願いいたします。
No.5
- 回答日時:
NO3です。
>パスはC:¥Documents and Settings¥~
⇒パス名から「¥」が全角文字のように思えますが如何でしょうか。
半角でないとパス不正となりますのでご確認下さい。
この回答への補足
半角にしてますが何度やってもできないんです(泣)
エクセル2003ですが一覧表のシート1にて右クリック→コードの表示→貼り付けですね
パス名の表示ですがエクスプローラ画面がわからないのでファイル検索をしてプロパティからコピーをし
ファイル名を足しました。そこで何か違ってるのかも・・・。
エクスプローラー画面とはどこのことをさすのでしょうか。。。
何か面倒かけてますね。
どうぞお返事が大変でしたらあきらめます。
結果は残念でしたがご親切に教えていただきありがとうございました。
おそらく私のやり方違いからだと思います。
今回教えて頂いてマクロをもっと活用したいと感じました。
勉強してみたいと思います。
ありがとうございました。
No.4
- 回答日時:
NO3です。
>「******」を削除してパス名を貼り付ければいいのですね?パス名っって何ですか?
⇒顧客情報詳細.xlsまでのローカルディスクのアドレスです。
エクスプローラ画面のアドレス欄に表示されています。
例えば、マイドキュメントフォルダにあるファイルは、C:\Documents and Settings\??????\My Documents\ファイルとなります。
因みにサンプルコードでは、ローカルディスク(C)を想定にしましたので「C:\~」としていますが、ローカルディスク(D)ならば「D:\~」として下さい。
この回答への補足
残念ですができませんでした。
パスはC:¥Documents and Settings¥user¥デスクトップ¥顧客情報詳細.xls でしたので
貼り付けて設定しましたが
反映されません。どうしてでしょうか・・・?
No.1
- 回答日時:
はじめに一言:
通常であれば一覧表を先に作成し詳細は一覧から抽出して作る形が一般的かと思います。
次に確認:
>連絡先J8→C3
これはJ8→C3の間違いではないですか?
以下の本題はJ8→C3と想定して考えています
本題:
1)顧客詳細情報のシート名が
Sheet1、Sheet2、Sheet3・・・・・
のような形式ならばExcelの関数のみで実現可能
一覧表A1
=INDIRECT("[顧客情報.xls]sheet"&ROW()&"!A6")
一覧表B1
=INDIRECT("[顧客情報.xls]sheet"&ROW()&"!J6")
一覧表C1
=INDIRECT("[顧客情報.xls]sheet"&ROW()&"!J8")
後は下方向にドラッグして
2)顧客情報のSheet名が個人名などになっている場合
マクロでの対応になると思われますが、マクロは大丈夫?
2)の場合はそれほど難しいマクロではないですが希望の場合は回答までに時間が必要
この回答への補足
すみません C1の間違いでした。
おっしゃる通りシート名は個人名になっております。
顧客情報のみを入力していましたが急遽DMも作成したいとの話に
なり質問の運びとなりました。
マクロですか・・・恥ずかしながら全くわかりません。
たびたびお手数ですが引き続き教えてください。
よろしくお願いします。困ってます。
遅くなりましたが
マクロ活用で随分と便利になるものだと知りました。
今回結果は残念でしたが(精進します)
親切に教えていただきありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【関数】【マクロ】データの転記の方法について 2 2023/07/26 15:22
- Excel(エクセル) エクセルの複数ブックのシートを1つまとめたい 都道府県ごとに47ブックがあり、そのシートのデータを1 5 2022/11/15 14:57
- Excel(エクセル) VBAで同フォルダ内の別ブックを開かず参照して条件の一致する行の指定セルを抽出するには? 1 2022/07/21 19:29
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) エクセルVBA 2 2022/04/27 13:29
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Excel(エクセル) 【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい 2 2023/07/26 15:13
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
excelで直前に参照していたブッ...
-
マクロの保存先、開いてるすべ...
-
複数のExcelファイルの印刷設定...
-
【Excel VBA】マクロでExcel自...
-
ファイル名変更後も、マクロを...
-
【Excel】マクロの保存先について
-
【関数】【マクロ】データの転...
-
エクセルについて教えてください。
-
エクセルで未保存に対するメッ...
-
エクセルのマクロについて教え...
-
エクセル;相対パスを絶対パスへ...
-
エクセルで使用期限付きのブッ...
-
EXcelのマクロで相対パスでファ...
-
【Excel】特定セルの内容をテキ...
-
【マクロ】マクロが保存されて...
-
EXCELブックが勝手に開いて困っ...
-
エクセルのvbaにて thisworkboo...
-
エクセルでメッセージボックス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
マクロの保存先、開いてるすべ...
-
エクセル;相対パスを絶対パスへ...
-
【Excel】マクロの保存先について
-
【Excel VBA】マクロでExcel自...
-
EXcelのマクロで相対パスでファ...
-
複数のExcelファイルの印刷設定...
-
excelで直前に参照していたブッ...
-
エクセルVBAで作成した別ブック...
-
EXCELマクロで、開いてはいるが...
-
EXCELブックが勝手に開いて困っ...
-
【Excel】特定セルの内容をテキ...
-
エクセルのvbaにて thisworkboo...
-
[フィルターオプションの設定]...
-
ファイル名変更後も、マクロを...
-
EXCELのボタンによるマクロの登...
-
エクセルVBA 個人用マクロブッ...
-
エクセルで未保存に対するメッ...
-
エクセルで複数ファイルのセル...
おすすめ情報