windowsXPを使用しています。
Excelで同じフォームのブックが300ほどあります。
この300のブックのA1というセルに、全て同じ値を入力したいのですが、
効率的な方法がありましたら教えていただけますでしょうか。
(社員1名につき1つのブックがあるのですが、社名変更のため、
全てタイトルを変更しなければなりません。
なお、全社員ともフォームは同じですが、ブックの数や、シート名は異なります。)
同じブック内での複数シートへの入力であれば、
作業グループで一度にできると思いますが、異なるブックの場合、
作業グループも使えないため、どうすればよいのか分かりません。
やはり全てのブックを開いて一つ一つコピペするしかないのでしょうか?
お忙しいところ恐れ入りますが、よろしくお願いいたします。
No.4ベストアンサー
- 回答日時:
No2の者です。
解決されましたでしょうか?
まだでしたら、ちょっとマクロを作ってみましたのでお試しください。
(私も人様に教える程のスキルは無いので恥ずかしいですが・・・。)
えーと、任意のフォルダに300ほどのファイルを入れ(=子分ども)、新規エクセルファイルを作り(=親分)同一フォルダに入れます。親分の標準モジュールに以下のコードをコピーして下さい。8行目の"お好きな文字"を更新したい文字に変え、マクロを実行すると一気に書き換わることと思います。
ミソは8行目の「Worksheets(1)」です。これで、「このブックの1枚目のシート」という意味になります。
健闘を祈ります♪
--------------------------------------
Sub A1にお好きな文字()
Dim Myfile, Filepath As String
Filepath = ThisWorkbook.Path & "\"
Myfile = Dir(Filepath)
Do While Myfile <> ""
Workbooks.Open Filename:=Filepath & Myfile
Workbooks(Myfile).Activate
Worksheets(1).Cells(1, 1).Value = "お好きな文字"
ActiveWorkbook.Save
Myfile = Dir()
Loop
End Sub
--------------------------------------
お礼が遅くなって申し訳ありません!
ご丁寧に教えていただきありがとうございました。
上記のマクロで一気に変更できました!
ただ、その他にも問題が発生しまして、変更する場合は直前のシートを
同じブックの中にコピーした上で、変更することになっています。
(過去の履歴を残すため)
なので、シートの移動またはコピーのマクロも組む必要があります。
更にこれらのexcelファイルには全てPWロックがかかっているため、
マクロを実行する度に、PWを聞いてくるので、全ブック分入力しなくてはならず。。。
さすがにPWを自動で入力してくれるマクロは分からないので、
今回は地道にやるしかないかぁというのが結論です。
とはいえ、tamago800さんに教えていただいた上記のマクロは
別のexelファイルで活かせますので、活用していきたいと思います。
ご親切にありがとうございました(^^)
No.3
- 回答日時:
同一フォルダにあること
Sheet1(など)同一シート名にあること
セルはA1で一定
という条件で、VBAでやるしかないと思います。
あるいはシートの列にファイル名(英一部氏名を含む名称)になりうるデータ(例氏名)ガあるとか、でVBAで処理する。
こういうときにエクセルで別ブックにすると統一的変更に困る。
早速のご回答ありがとうございます。
シート名は社員名になっており、全員異なっています。
しかも本部毎のフォルダに入ってしまっています。。。
とはいえ、本部は6つなので、6回同じ作業をやるか、
一つのフォルダにまとめて、後でばらすことも可能です。
また、シート名は社員名なのですが、必ずそれぞれのシートの同じセルに社員名が入っています。
何か手がかりがありましたら教えていただけると助かります。
P.S.
ちなみに、最近転職したのですが、既にこのような運用になっていました。
他によい管理方法はないものかと考えており、将来的にはAccessに変えようかと考えています。
ただ、Accessを使えるのが部署で私だけなのが問題なのですが。。。
No.2
- 回答日時:
300もあるのでしたら、ぜひマクロで更新してしまいたいですね。
シート名が全て同じなら、初歩的なマクロで一度に更新することが可能なのですが・・・。
あるいは、更新したいシートが、必ず一番最初(左側)に配置されているとか、マクロを組むにあたっての、なんらかの規則性はないのでしょうか?
早速のご回答ありがとうございます。
シート名は社員名になっており、全員異なりますが、
更新したいシートが一番左側に配置はされています!
この条件でマクロを組むことができるということですよね。
少し光が見えてきました。
ただ、簡単なVBAなら少しやったことはあるのですが、複雑なものは組んだことがありません。
自分でも探してみますが、もし参考になるサイト等をご存知でしたら教えていただけると幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Excel(エクセル) セルの値と同じ名前のシートのセルの結合を解除する方法を教えてください 3 2022/10/03 10:23
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2022/03/24 16:07
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 14:54
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセル 複数ファイルの一括セル入力
Excel(エクセル)
-
エクセル 複数のブックを一度で編集する方法
Excel(エクセル)
-
複数のexcelファイル 同一セルの値を一気に変更するには、
Excel(エクセル)
-
-
4
エクセルで複数のブックに、値を同時入力する方法は?
Windows Vista・XP
-
5
ブックを開かずに、フォルダ内にある複数ブックの、特定セルの値を抽出した
Excel(エクセル)
-
6
エクセルで複数ファイルのセルの数式を一部置換
Excel(エクセル)
-
7
フォルダ内の複数ファイルから、特定セルだけを抽出し、並び替えて集約したい
Excel(エクセル)
-
8
複数のシートの同じセルに入力するvbaを教えてください
Excel(エクセル)
-
9
フォルダ内の全てのBookに同じ処理を繰り返す
Excel(エクセル)
-
10
エクセルで複数のシートの同じセルに同じ文字を入力したいのですが、、、
Excel(エクセル)
-
11
ExcelのVBAで同一フォルダ内にあるファイルに同じ処理をしたい
Excel(エクセル)
-
12
複数ファイルにある特定のシートを一度に印刷したい
Excel(エクセル)
-
13
フォルダ内の全てのファイルに貼り付けを行うマクロを作りたい
Visual Basic(VBA)
-
14
フォルダ内の全ブックのシート名を変更したいです。
Excel(エクセル)
-
15
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
16
複数のブックに一括で値入力するマクロを教えてください
Excel(エクセル)
-
17
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
18
大量のフォルダからひとつのフォルダにファイルをまとめたい!
その他(ソフトウェア)
-
19
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
20
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数 ENTERを押...
-
WorkBooksをオープンさせずにシ...
-
Excelでブックの共有を掛けると...
-
VBAでブックを非表示で開いて処...
-
エクセルを共有するとPCによっ...
-
エクセルにおける,「ブック」...
-
エクセルで参照しているデータ...
-
エクセルで「ディスクがいっぱ...
-
エクセルで別ブックをバックグ...
-
エクセルファイルを開かずにpdf...
-
VBAでブック保護非保護を判定す...
-
エクセル:標準モジュールを一...
-
Excel(2010)のフィルターが保...
-
【ExcelVBA】シートをそれぞれ...
-
エクセルシートの一部を送りたい
-
Excelで拡張子の後に数字が……何...
-
エクセル2016です。「ブッ...
-
エクセルでウィンドウの枠固定...
-
エクセル 複数のブックを一度...
-
指定ファィルの指定シートをシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
エクセルを共有するとPCによっ...
-
WorkBooksをオープンさせずにシ...
-
エクセルで参照しているデータ...
-
エクセルで「ディスクがいっぱ...
-
Excelでブックの共有を掛けると...
-
Excelで複数ブックの同一セルに...
-
Excel(2010)のフィルターが保...
-
エクセルで別ブックをバックグ...
-
エクセルにおける,「ブック」...
-
同じフォルダへのハイパーリン...
-
ブックのピボットを別ブックに...
-
エクセルファイルを開かずにpdf...
-
エクセル2016です。「ブッ...
-
ブックの保護ができないんです...
-
エクセルで50行ごとに区切った...
-
エクセルシートの一部を送りたい
-
フォルダ内の複数ファイルから...
-
エクセル 複数のブックを一度...
おすすめ情報