Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9947 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24605】ｸﾘｯﾌﾟﾎﾞｰﾄﾞの意味 yasu 05/4/28(木) 11:01 質問[未読]
【24606】Re:ｸﾘｯﾌﾟﾎﾞｰﾄﾞの意味 ウッシ 05/4/28(木) 11:10 回答[未読]
【24620】Re:ｸﾘｯﾌﾟﾎﾞｰﾄﾞの意味 yasu 05/4/28(木) 17:57 お礼[未読]
【24622】Re:ｸﾘｯﾌﾟﾎﾞｰﾄﾞの意味 ウッシ 05/4/28(木) 19:42 回答[未読]
【24635】Re:ｸﾘｯﾌﾟﾎﾞｰﾄﾞの意味 yasu 05/4/29(金) 10:12 お礼[未読]
【24605】ｸﾘｯﾌﾟﾎﾞｰﾄﾞの意味
質問  yasu  - 05/4/28(木) 11:01 -
引用なし
パスワード
   '**********************************************
'　　 表ｻﾝﾌﾟﾙをコピーして他のｼｰﾄに張付ける
'**********************************************
　　Workbooks(BookN).Worksheets("表SAMPLE").Cells.Select
　　Selection.Copy
　　Sheets(SheetN).Select
　　Workbooks(BookN).Worksheets(SheetN).Cells.Select
　　ActiveSheet.Paste
上記で行い　保存すると　”クリップﾎﾞｰﾄﾞが張付けられています”
と云うﾒｯｾｰｼﾞが度々出てきます
　また、ﾌｧｲﾙの容量が大きくなっているようで保存に時間がかかります
【24606】Re:ｸﾘｯﾌﾟﾎﾞｰﾄﾞの意味
回答  ウッシ  - 05/4/28(木) 11:10 -
引用なし
パスワード
   こんにちは

Cells では範囲が広すぎるのでは？

　　Application.ScreenUpdating = False
　　With Workbooks(BookN).Worksheets("表SAMPLE").UsedRange
　　　　.Copy Workbooks(BookN).Worksheets(SheetN).Range(.Cells(1).Address)
　　End With
　　Application.ScreenUpdating = True

こうするとどうでしょうか？
【24620】Re:ｸﾘｯﾌﾟﾎﾞｰﾄﾞの意味
お礼  yasu  - 05/4/28(木) 17:57 -
引用なし
パスワード
   ありがとうございました
頂いたルーチンで実行してみます
それと、ｸﾘｯﾌﾟﾎﾞｰﾄﾞ　とはどのような意味なのでしょうか
教えていただけるとありがたいのですが
　よろしく、お願いします
【24622】Re:ｸﾘｯﾌﾟﾎﾞｰﾄﾞの意味
回答  ウッシ  - 05/4/28(木) 19:42 -
引用なし
パスワード
   こんばんは

>それと、クリップボードとはどのような意味なのでしょうか
http://yougo.ascii24.com/gh/06/000600.html
クリアは
Application.CutCopyMode = False

また、Officeクリップボードというものも
http://yougo.ascii24.com/gh/71/007146.html
クリアは、多分
Application.CommandBars("Clipboard").Controls(4).Execute　
こんな感じで。
【24635】Re:ｸﾘｯﾌﾟﾎﾞｰﾄﾞの意味
お礼  yasu  - 05/4/29(金) 10:12 -
引用なし
パスワード
   ありがとうございました
よく理解できました
　これで今までのなんだ？なんだ？
　が解消　すっきり！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9947 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free