Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9193 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【28780】シートの一部分を他のシートにコピー へっぽこ侍 05/9/14(水) 16:56 質問[未読]
【28781】Re:シートの一部分を他のシートにコピー Statis 05/9/14(水) 17:35 回答[未読]
【28799】Re:シートの一部分を他のシートにコピー へっぽこ侍 05/9/14(水) 23:21 質問[未読]
【28801】Re:シートの一部分を他のシートにコピー ponpon 05/9/15(木) 0:12 発言[未読]
【28803】Re:シートの一部分を他のシートにコピー へっぽこ侍 05/9/15(木) 0:59 質問[未読]
【28823】Re:シートの一部分を他のシートにコピー ponpon 05/9/15(木) 17:54 発言[未読]
【28831】Re:シートの一部分を他のシートにコピー へっぽこ侍 05/9/15(木) 20:08 質問[未読]
【28833】Re:シートの一部分を他のシートにコピー ponpon 05/9/15(木) 20:37 発言[未読]
【28837】Re:シートの一部分を他のシートにコピー へっぽこ侍 05/9/15(木) 21:47 お礼[未読]
【28780】シートの一部分を他のシートにコピー
質問  へっぽこ侍  - 05/9/14(水) 16:56 -
引用なし
パスワード
   またまたお世話になりたいと思います。

シートの一部を新たなシートへ列と行の幅を変えずに常にコピーさせ
るにはどうしたらよいのでしょうか？専門用語がわからないのでこの
表現が適切かどうかわかりません。

例えば、sheet1のA1〜からF2000までのセル（数値と非数値が両方入っています）
をsheet2の同じ位置に列・行の幅を変えずに常に表示・連動させたいのですが、
どうすればよいのでしょうか（ちなみには常に値は変動しています）？

よろしくお願いいたします。
【28781】Re:シートの一部分を他のシートにコピー
回答  Statis  - 05/9/14(水) 17:35 -
引用なし
パスワード
   こんにちは

コピー範囲を選択してから実行してください。
シート２のA1よりコピーされます。

Sub test()
Selection.Copy
With Sheets("Sheet2").Range("A1")
　　 .PasteSpecial Paste:=1
　　 .PasteSpecial Paste:=8
End With
Application.CutCopyMode = False
End Sub
【28799】Re:シートの一部分を他のシートにコピー
質問  へっぽこ侍  - 05/9/14(水) 23:21 -
引用なし
パスワード
   ▼Statis さん：
>こんにちは
>
>コピー範囲を選択してから実行してください。
>シート２のA1よりコピーされます。
>
>Sub test()
>Selection.Copy
>With Sheets("Sheet2").Range("A1")
>　　 .PasteSpecial Paste:=1
>　　 .PasteSpecial Paste:=8
>End With
>Application.CutCopyMode = False
>End Sub

早速のご解答ありがとうございました。

一応できましたが、コピー側の数値及び、文字が変化した場合、
ペースト側の値も同時に変化させたいのです。

それと、数値が全くコピーされませんが、どうすればよいでしょうか？
また、間違ってペースト側の値を消してしまった場合、復活させたい
のですが、できますでしょうか？

よろしくお願いいたします。
【28801】Re:シートの一部分を他のシートにコピー
発言  ponpon  - 05/9/15(木) 0:12 -
引用なし
パスワード
   Statis さん へっぽこ侍 さん

こんばんは。

>一応できましたが、コピー側の数値及び、文字が変化した場合、
>ペースト側の値も同時に変化させたいのです。

リンク貼り付けですか？
マクロの記録からです。

Sub Macro1()
'
' Macro5 Macro
' マクロ記録日 : 2005/9/15　ユーザー名 : ponpon
'

'
　　Sheets("Sheet1").Range("A1:F2000").Copy
　　Sheets("Sheet2").Select
　　Range("A1").Select
　　ActiveSheet.Paste Link:=True
　　Selection.PasteSpecial Paste:=xlPasteFormats
　　Selection.PasteSpecial Paste:=xlPasteColumnWidths
　　Application.CutCopyMode = False
End Sub

>それと、数値が全くコピーされませんが、どうすればよいでしょうか？
リンク貼り付けですから大丈夫だと思います。

>また、間違ってペースト側の値を消してしまった場合、復活させたい
>のですが、できますでしょうか？
元に戻すでは？
【28803】Re:シートの一部分を他のシートにコピー
質問  へっぽこ侍  - 05/9/15(木) 0:59 -
引用なし
パスワード
   ご解答ありがとうございます。

小生勉強不足ながら、これをどこにはりつけてよいものやら

わかりません。VBEでしょうか？

ご教示下さい。
【28823】Re:シートの一部分を他のシートにコピー
発言  ponpon  - 05/9/15(木) 17:54 -
引用なし
パスワード
   こんにちは。

>これをどこにはりつけてよいものやら

標準モジュールに書いて試してください。
もちろんシート名等は、そちらに合わせてください。
【28831】Re:シートの一部分を他のシートにコピー
質問  へっぽこ侍  - 05/9/15(木) 20:08 -
引用なし
パスワード
   ▼ponpon さん：
>こんにちは。
>
>>これをどこにはりつけてよいものやら
>
>標準モジュールに書いて試してください。
>もちろんシート名等は、そちらに合わせてください。

早速のご教示いたみいります。

成功いたしました。しかしながら、空白セルは全て「０」がはいって

しまいました。これを同じく空白セルとしてあつかいたいのですが、

できますか？
【28833】Re:シートの一部分を他のシートにコピー
発言  ponpon  - 05/9/15(木) 20:37 -
引用なし
パスワード
   こんばんは。

>しかしながら、空白セルは全て「０」がはいって
>しまいました。これを同じく空白セルとしてあつかいたいのですが、
>できますか？

オプション→表示→ウインドオプション→ゼロ値のチェックをはずす。

マクロでは、
　　ActiveWindow.DisplayZeros = False
上記をマクロのどこかに入れてください。
【28837】Re:シートの一部分を他のシートにコピー
お礼  へっぽこ侍  - 05/9/15(木) 21:47 -
引用なし
パスワード
   できました!!

お世話になりました。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9193 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free