Excel VBA質問箱 IV

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

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


16236 / 76733 ←次へ | 前へ→

【65967】Re:シートの範囲コピーで、セルの値を取得したい
発言  りん E-MAIL  - 10/7/11(日) 7:31 -

引用なし
パスワード
   おはようございます。

>例えば、Aのシートの B2:Y100の値をコピーして、
>隣のシートBのB2:Y100にペーストしたく、
>マクロコードをボタンに登録しようとしたののですが
>「セルの大きさが同じでないと実行できない」とのエラーメッセージが表示されます。
>シートBは、シートAの見出しタグをドラッグしてコピーをして作成したものですが、シートBのセルの大きさはシートAと同じのはずなのですが・・・。

先範囲.Value = 元範囲.Valueで、値貼り付けと同じような処理になります。

元の質問が回覧用にシートをコピーした新しいブックの作成だったので、
Sub TEST()
  Dim wb As Workbook
  Worksheets("A").Copy '新しいブックにシートをコピー
  '
  Set wb = Application.ActiveWorkbook '新しいブック
  '
  With wb.Worksheets("A").UsedRange
   .Value = .Value '式を値に変える
  End With
  'このブックの名前に月日時分を付け加えたファイル名を設定
  wb.SaveAs Replace(ThisWorkbook.FullName, ".xls", Format(Now(), "回覧用_mmddhhnn") & ".xls")
End Sub
こんな感じです。
ファイル名はかぶらないように適当につけただけなので、無視してください。
1 hits

【65934】シートコピーで、シートの値を取得したい ゆめこ 10/7/9(金) 4:28 質問
【65938】Re:シートコピーで、シートの値を取得したい Abebobo 10/7/9(金) 9:35 発言
【65939】Re:シートコピーで、シートの値を取得したい 超初心者 10/7/9(金) 9:59 発言
【65940】Re:シートコピーで、シートの値を取得したい teian 10/7/9(金) 10:12 発言
【65966】Re:シートの範囲コピーで、セルの値を取得... ゆめこ 10/7/11(日) 4:32 質問
【65967】Re:シートの範囲コピーで、セルの値を取得... りん 10/7/11(日) 7:31 発言
【65982】Re:シートの範囲コピーで、セルの値を取得... ゆめこ 10/7/12(月) 21:30 質問
【65985】Re:シートの範囲コピーで、セルの値を取得... りん 10/7/13(火) 7:01 発言
【66004】Re:シートの範囲コピーで、セルの値を取得... ゆめこ 10/7/14(水) 19:56 お礼

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