No.3ベストアンサー
- 回答日時:
こんばんは、
取り合えず、各担当者のファイルをネットワーク上の共有フォルダーに転送データとでも名前をつけて、保存してください。
各担当者のファイルに、ボタンでも作成して、以下のマクロをコピィしてみてください。
また、L2セルに、保存した転送データのファイルのパスとファイル名を入れておきます。パスがわからなければ、保存したファイルのプロパティでも開けば出ています。\\パソコン名\フォルダ名\転送データ.xlsとかになると思います。
Sub ボタン3_Click()
'データが2行目のA~Jで、最大100行までとして、コピィします。
Range("A2:J100").Cut
'L2のセルに入れてあるファイル名(共有フォルダの転送ブックを開きます。
Workbooks.Open Filename:=Range("L2").Value
'もし、転送ブックをほかの人が開いていたら、閉じて作業中止します。
If ActiveWorkbook.ReadOnly = True Then
ActiveWorkbook.Close
MsgBox "他のユーザーが使用中です"
Else
'転送データの最終の行のA列をアクティブにします。
Range("A65536").End(xlUp).Offset(1, 0).Activate
'コピィした部分を貼り付け
ActiveSheet.Paste
Application.CutCopyMode = False
'転送データのブックを保存して閉じます。
ActiveWorkbook.Save
ActiveWindow.Close
End If
End Sub
以上が、各担当者のブックで実行するマクロです。
マクロを実行すると、シートの2行目A2~J100が転送データの最後の行から下にコピィされると思います。
次に、総合ファイルのL2にも、転送データのパスとブック名をいれて
以下のマクロを記述しておきます。
方法は同じですが、多少、実行する内容が違っています。
転送データの2行目A2~J1000を、総合テータの最後の行以下にコピペします。
Sub ボタン2_Click()
'転送データのブックを開く
Workbooks.Open Filename:=Range("L2").Value
'転送データをほかの人が開いていないか確認
If ActiveWorkbook.ReadOnly = True Then
ActiveWorkbook.Close
MsgBox "他のユーザーが使用中です"
Else
'データがあるかどうか確認
If Range("A65536").End(xlUp).Row = 1 Then
ActiveWindow.Close
MsgBox ("新規データはありませんでした")
Else
'データのA2からJ1000をカット
Range("A2:J1000").Cut
'総合ファイルの最後の行をアクティブに
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
'データを貼り付ける
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks("転送データ").Activate
'転送データを保存して終了
ActiveWorkbook.Save
ActiveWindow.Close
End If
End If
End Sub
以上、こちらでは、試していませんが大丈夫かと思います。
すみませんが、今夜はお酒が入っているのでエラーでたら連絡ください。
ところどころに説明入れておきましたのそちらの状況に合わせて編修してください。
'で始まる部分は説明ですので、削除していただいてもかまいません。
難しいコマンドは使っていないと思いますので、理解してもらえると思います。
この回答への補足
ご返信遅れて申し訳ございません。
こちらで編集させていただいて問題なく動きました。
この様なやり方があったのですね~。
大変勉強になりました。
またご質問させていただいた際にはよろしくお願いいたします。
ありがとうございました。
No.2
- 回答日時:
やりたいことは、どこまで必要なのでしょうか。
1、各担当者が追加したデータを、総合のファイルの最後に加えていく。
2、各担当者が、総合のファイルも編修を行って、行った内容も総合ファイルに、反映させる。
2であれば、エクセルよりもアクセスなどで、ひとつのファイルを共有したほうが簡単です。
1でよければ、以下のテクニック参考にしてください。
準備
各担当者のパソコンに入力用のファイルを置く
各担当者が参照できる共有フォルダーに、仮にデータをためておくためのブックを保存しておく。
一人の総合ファイルの担当者に総合ファイルを準備
手順
1、各担当者がデータ追加していき、適当な件数入力したら、共有ブックのファイルを開いて、データをコピィ追加して保存、各担当者のデータは削除する。
2、ほかの担当者も同様の作業
3、時々、総合ファイルの担当者が共有ブックのフィル開いて、たまっているデータをコピィして、たまっていたデータを削除して保存。
この手順でよければ、マクロもさほど複雑でなく出来ると思います。
この手順でよければ、回答ください。
また、アドバイスいたします。
この回答への補足
ご回答ありがとうございます。
やりたいことは、まさに『1』の方です!
大変お手数ですが、ご教授ください。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数
-
Excelの警告について
-
if関数。半角文字や全角文字で...
-
【Excel】効率的な関数式の組み...
-
エクセルの数式について教えて...
-
Googleスプレッドシートで、名...
-
Excelの更新日時が自動で更新さ...
-
エクセル 入力があった場合のみ...
-
Excelでの勤怠表の関数を教えて...
-
エクセルについて
-
FからI列で期限切れ及び期限7日...
-
エクセルでファイルの最終更新...
-
ExcelやLibreOffice Calcの関数...
-
エクセルについての質問です。 ...
-
エクセルの数式バーのフォント...
-
考えた式の戻り値が期待通りに...
-
(マクロ)値を返す時は subで...
-
【Excel】年月の値によって日の...
-
エクセルで80万行、50列位のデ...
-
(マクロ)参照渡しにて、違う...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
エクセルデーターから必要な項...
-
エクセルでファイルの最終更新...
-
複数のテキストファイルをexcel...
-
Excelの複数条件の関数
-
【マクロ】ファイル名の一括変...
-
EXCELの散布図で日付が1900年に...
-
マクロの処理が遅くなった
-
Excelの時刻の不思議
-
エクセルでの2項目比較および...
-
Excelマクロで空白セルを詰めて...
-
エクセルの数式バーのフォント...
-
ExcelでASCを使って全角を半角...
-
エクセルで80万行、50列位のデ...
-
今まで文字化けなく開けていたc...
-
エクセルのことで教えてくださ...
-
エクセルVBA 月の中で、月~土...
-
Excelでの表の作り方
-
Excel セルにおけるフォント設...
-
エクセルの質問です。 F列からL...
おすすめ情報