Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6033 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【47678】よろしくお願いします。 たくや 07/3/18(日) 22:00 質問[未読]
【47679】Re:よろしくお願いします。 ウッシ 07/3/18(日) 22:52 発言[未読]
【47682】Re:よろしくお願いします。 たくや 07/3/18(日) 23:05 お礼[未読]
【47685】Re:よろしくお願いします。 かみちゃん 07/3/18(日) 23:14 発言[未読]
【47680】Re:毎回違う範囲範囲をコピーしたい かみちゃん 07/3/18(日) 22:53 発言[未読]
【47683】Re:毎回違う範囲範囲をコピーしたい たくや 07/3/18(日) 23:08 お礼[未読]
【47681】Re:よろしくお願いします。 ponpon 07/3/18(日) 22:55 発言[未読]
【47684】Re:よろしくお願いします。 たくや 07/3/18(日) 23:09 お礼[未読]
【47678】よろしくお願いします。
質問  たくや  - 07/3/18(日) 22:00 -
引用なし
パスワード
   保管場所とＤＢという二つのエクセルファイルがデスクトップにあるとして

保管場所で作業をしているときに、ファイルのＤＢを立ち上げる

そしてＤＢのSheet1のデータをコピーして保管場所のSheet1に貼り付けする
ということは可能でしょうか？？

ＤＢのコピーをするデータは、毎回違うので普段は、Shift+Ctrl+Endで
コピーして貼り付けをしています。

教えてください。 よろしくお願いします。
【47679】Re:よろしくお願いします。
発言  ウッシ  - 07/3/18(日) 22:52 -
引用なし
パスワード
   こんばんは

保管場所というExcelファイルでマクロの記録を始めて、デスクトップのＤＢ.xlsを開いて
Sheet1をアクティブにして、Shift+Ctrl+End でデータを選択してコピーして、
保管場所というExcelファイルのSheet1に貼り付ける作業をマクロコードにして下さい。

そのコードを修正すればいいので、まずはそのコードを掲載して下さい。
【47680】Re:毎回違う範囲範囲をコピーしたい
発言  かみちゃん  - 07/3/18(日) 22:53 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>保管場所で作業をしているときに、ファイルのＤＢを立ち上げる
>
>そしてＤＢのSheet1のデータをコピーして保管場所のSheet1に貼り付けする
>ということは可能でしょうか？？
>
>ＤＢのコピーをするデータは、毎回違うので普段は、Shift+Ctrl+Endで
>コピーして貼り付けをしています。

コピーする範囲が決まっている場合だと、「マクロの記録」で記録できますが、
試してみましたか？
試しているならば、そのコードを提示しましょう。

そのあと、それで不具合があるならば、「ＤＢのコピーをするデータ」が毎回
違う範囲をどのようにして指定するのかということになるのですが・・・
Shift+Ctrl+End
でいいのであれば、特に修正かる必要もないと思いますけど？

あと、題名は、質問内容が示す具体的なものにしましょう。
【47681】Re:よろしくお願いします。
発言  ponpon  - 07/3/18(日) 22:55 -
引用なし
パスワード
   ▼たくや さん：
もう少し詳しく説明されたらいかがでしょうか？

>保管場所とＤＢという二つのエクセルファイルがデスクトップにあるとして
>保管場所で作業をしているときに、ファイルのＤＢを立ち上げる

Workbooks.open　ファイル名　でできると思います。
開いていたら開かないなどのエラー処理は必要ですが・・・
>
>そしてＤＢのSheet1のデータをコピーして保管場所のSheet1に貼り付けする
>ということは可能でしょうか？？

　　WorkBooks("ＤＢ").Sheets("Sheet1").データ範囲.Copy　_
　　　　　WorkBooks("保管場所").Sheets("Sheet1").貼り付け先　　　　　
>
>ＤＢのコピーをするデータは、毎回違うので普段は、Shift+Ctrl+Endで
>コピーして貼り付けをしています。

データ範囲の規則性はありますか？
WorkBooks("ＤＢ").Sheets("Sheet1").Range("A1").CurrentRegionでいいのかな？
WorkBooks("ＤＢ").Sheets("Sheet1").UsedRangeかな？
【47682】Re:よろしくお願いします。
お礼  たくや  - 07/3/18(日) 23:05 -
引用なし
パスワード
   ▼ウッシ さん：
回答ありがとうございます
では、時間かかるかもしれませんがやってみます。
本当にありがとうございます。
>こんばんは
>
>保管場所というExcelファイルでマクロの記録を始めて、デスクトップのＤＢ.xlsを開いて
>Sheet1をアクティブにして、Shift+Ctrl+End でデータを選択してコピーして、
>保管場所というExcelファイルのSheet1に貼り付ける作業をマクロコードにして下さい。
>
>そのコードを修正すればいいので、まずはそのコードを掲載して下さい。
【47683】Re:毎回違う範囲範囲をコピーしたい
お礼  たくや  - 07/3/18(日) 23:08 -
引用なし
パスワード
   ▼かみちゃん さん：
こんばんわ
回答ありがとうございます。
また題名の件はすいません
次回からはわかりやすくします。

>こんにちは。かみちゃん　です。
>
>>保管場所で作業をしているときに、ファイルのＤＢを立ち上げる
>>
>>そしてＤＢのSheet1のデータをコピーして保管場所のSheet1に貼り付けする
>>ということは可能でしょうか？？
>>
>>ＤＢのコピーをするデータは、毎回違うので普段は、Shift+Ctrl+Endで
>>コピーして貼り付けをしています。
>
>コピーする範囲が決まっている場合だと、「マクロの記録」で記録できますが、
>試してみましたか？
>試しているならば、そのコードを提示しましょう。
>
>そのあと、それで不具合があるならば、「ＤＢのコピーをするデータ」が毎回
>違う範囲をどのようにして指定するのかということになるのですが・・・
>Shift+Ctrl+End
>でいいのであれば、特に修正かる必要もないと思いますけど？
>
>あと、題名は、質問内容が示す具体的なものにしましょう。
【47684】Re:よろしくお願いします。
お礼  たくや  - 07/3/18(日) 23:09 -
引用なし
パスワード
   ▼ponpon さん：

詳しくありがとうございます。
さっそく試してみます。
もしまた、わからなかったら教えてください、
お願いします。
>▼たくや さん：
>もう少し詳しく説明されたらいかがでしょうか？
>
>>保管場所とＤＢという二つのエクセルファイルがデスクトップにあるとして
>>保管場所で作業をしているときに、ファイルのＤＢを立ち上げる
>
>Workbooks.open　ファイル名　でできると思います。
>開いていたら開かないなどのエラー処理は必要ですが・・・
>>
>>そしてＤＢのSheet1のデータをコピーして保管場所のSheet1に貼り付けする
>>ということは可能でしょうか？？
>
>　　WorkBooks("ＤＢ").Sheets("Sheet1").データ範囲.Copy　_
>　　　　　WorkBooks("保管場所").Sheets("Sheet1").貼り付け先　　　　　
>>
>>ＤＢのコピーをするデータは、毎回違うので普段は、Shift+Ctrl+Endで
>>コピーして貼り付けをしています。
>
>データ範囲の規則性はありますか？
>WorkBooks("ＤＢ").Sheets("Sheet1").Range("A1").CurrentRegionでいいのかな？
>WorkBooks("ＤＢ").Sheets("Sheet1").UsedRangeかな？
【47685】Re:よろしくお願いします。
発言  かみちゃん  - 07/3/18(日) 23:14 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

ウッシさん、タッチの差でかぶりました。すみません。

>では、時間かかるかもしれませんがやってみます。

時間はかかりません。
手作業ではできていますよね？
その作業を「マクロの記録」で記録するだけです。

手作業でするのが時間がかかるのでしたら話は別ですが、コードを書くという作業
のことを言っていませんよ。

「マクロの記録」で記録することがどういう意味かわからないなら、質問してください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6033 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free