Excel VBA質問箱 IV

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

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


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

【39229】範囲をコピーして、目的のシートの場所にはりつけるには? 初心者 06/6/20(火) 10:46 質問[未読]
【39231】Re:範囲をコピーして、目的のシートの場所... Kein 06/6/20(火) 11:13 回答[未読]
【39234】Re:範囲をコピーして、目的のシートの場所... 初心者 06/6/20(火) 11:47 お礼[未読]

【39229】範囲をコピーして、目的のシートの場所に...
質問  初心者  - 06/6/20(火) 10:46 -

引用なし
パスワード
   現在下記の様な作業をしているのですが、
Worksheets(Me.ComboBox1.Value).Range("BB8").Value = Range("BQ17").Value
Worksheets(Me.ComboBox1.Value).Range("L9").Value = TextBox3.Value
Worksheets(Me.ComboBox1.Value).Range("AE9").Value = TextBox1.Value
ここで、シートの範囲をコピーして目的の場所へ貼り付けたいのですが、
下記のコードではおかしいでしょうか?
Range("AN22:BE41").Select
Selection.Copy
Worksheets(Me.ComboBox1.Value).Range("AD10").Value = Range("AN22:  BE41").Select.Value
ActiveSheet.Paste
Application.CutCopyMode = False
お願いいたします。

【39231】Re:範囲をコピーして、目的のシートの場...
回答  Kein  - 06/6/20(火) 11:13 -

引用なし
パスワード
   コピーと値の代入の区別がついて無いみたいですね・・。
あと、コンボボックスの値はいったん変数に入れて使った方がいいと思います。

Dim MyS As String

MyS = Me.ComboBox1.Value
Range("AN22:BE41").Copy Worksheets(MyS).Range("AD10")

というようなコードになります。
大きいセル範囲の転記なら、値の代入よりコピーの方が安全です。

【39234】Re:範囲をコピーして、目的のシートの場...
お礼  初心者  - 06/6/20(火) 11:47 -

引用なし
パスワード
   ▼Kein さん:
>コピーと値の代入の区別がついて無いみたいですね・・。
>あと、コンボボックスの値はいったん変数に入れて使った方がいいと思います。
>
>Dim MyS As String
>
>MyS = Me.ComboBox1.Value
>Range("AN22:BE41").Copy Worksheets(MyS).Range("AD10")
>
>というようなコードになります。
>大きいセル範囲の転記なら、値の代入よりコピーの方が安全です。

ありがとうございます。できました。
初心者なもので・・・。また色々とよろしくおねがいします。

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