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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセル 複数ファイルの一括セル入力
Excel(エクセル)
-
エクセル 複数のブックを一度で編集する方法
Excel(エクセル)
-
エクセルで複数のブックに、値を同時入力する方法は?
Windows Vista・XP
-
-
4
複数のシートの同じセルに入力するvbaを教えてください
Excel(エクセル)
-
5
フォルダ内の複数ファイルから、特定セルだけを抽出し、並び替えて集約したい
Excel(エクセル)
-
6
ExcelのVBAで同一フォルダ内にあるファイルに同じ処理をしたい
Excel(エクセル)
-
7
複数のexcelファイル 同一セルの値を一気に変更するには、
Excel(エクセル)
-
8
ブックを開かずに、フォルダ内にある複数ブックの、特定セルの値を抽出した
Excel(エクセル)
-
9
複数のブックに一括で値入力するマクロを教えてください
Excel(エクセル)
-
10
エクセルで複数のシートの同じセルに同じ文字を入力したいのですが、、、
Excel(エクセル)
-
11
エクセルで複数ファイルのセルの数式を一部置換
Excel(エクセル)
-
12
フォルダ内の全ブックのシート名を変更したいです。
Excel(エクセル)
-
13
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
14
フォルダ内の全てのBookに同じ処理を繰り返す
Excel(エクセル)
-
15
エクセルのフィルターを複数シートに連動させたいです。 エクセルファイルに15シートあります。 そのう
Excel(エクセル)
-
16
EXCELでコピーしたグラフのデータ範囲変更について
Excel(エクセル)
-
17
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
18
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
19
フォルダ内の全てのファイルに貼り付けを行うマクロを作りたい
Visual Basic(VBA)
-
20
別ファイルから重複するデータを探したい【エクセル】
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
エクセルを共有するとPCによっ...
-
VBAでブックを非表示で開いて処...
-
Excelでブックの共有を掛けると...
-
エクセルの関数 ENTERを押...
-
エクセルで参照しているデータ...
-
アクセスvbaでエクセルブックを...
-
エクセルで別ブックをバックグ...
-
複数ファイルから特定シートの...
-
別フォルダにある同じ名前のブ...
-
VBAでブック保護非保護を判定す...
-
vbaでpdfを開いて1ページ目のみ...
-
同じフォルダへのハイパーリン...
-
Excelで拡張子の後に数字が……何...
-
エクセルで50行ごとに区切った...
-
エクセル2010 書式が多すぎて...
-
ワードやエクセルで「時間が来...
-
Excel(2010)のフィルターが保...
-
エクセル2016です。「ブッ...
-
エクセルVBAでブック保護のUser...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを共有するとPCによっ...
-
Excelの警告について
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
エクセルにおける,「ブック」...
-
WorkBooksをオープンさせずにシ...
-
エクセルで参照しているデータ...
-
エクセルで「ディスクがいっぱ...
-
Excelで複数ブックの同一セルに...
-
【マクロ】【VBA】別ブックへの...
-
Excel(2010)のフィルターが保...
-
Excelでブックの共有を掛けると...
-
エクセルで50行ごとに区切った...
-
エクセルでウィンドウの枠固定...
-
同じフォルダへのハイパーリン...
-
ブックのピボットを別ブックに...
-
VBAでブック保護非保護を判定す...
-
【マクロ】for nest について ...
-
エクセルファイルを開かずにpdf...
-
フォルダ内の複数ファイルから...
おすすめ情報