Excel VBA質問箱 IV

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

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


9191 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   こんにちは

コピー範囲を選択してから実行してください。
シート2の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 さん:
>こんにちは
>
>コピー範囲を選択してから実行してください。
>シート2の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 さん:
>こんにちは。
>
>>これをどこにはりつけてよいものやら
>
>標準モジュールに書いて試してください。
>もちろんシート名等は、そちらに合わせてください。

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

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

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

できますか?

【28833】Re:シートの一部分を他のシートにコピー
発言  ponpon  - 05/9/15(木) 20:37 -

引用なし
パスワード
   こんばんは。

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

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

マクロでは、
  ActiveWindow.DisplayZeros = False
上記をマクロのどこかに入れてください。

【28837】Re:シートの一部分を他のシートにコピー
お礼  へっぽこ侍  - 05/9/15(木) 21:47 -

引用なし
パスワード
   できました!!

お世話になりました。

ありがとうございました。

9191 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free