Excel VBA質問箱 IV

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

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


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

【53371】ダイアログボックスを使って、コピー貼り付けをするには? jin 08/1/6(日) 16:12 質問[未読]
【53372】Re:ダイアログボックスを使って、コピー貼... マクロマン 08/1/6(日) 16:18 発言[未読]
【53373】Re:ダイアログボックスを使って、コピー貼... jin 08/1/6(日) 16:35 お礼[未読]

【53371】ダイアログボックスを使って、コピー貼り...
質問  jin  - 08/1/6(日) 16:12 -

引用なし
パスワード
   ダイアログボックスを使って、コピー&貼り付けが出来ません。
いろいろ試してみたのですが、だめでした。

どなたかご存知の方、よろしくお願いいたします。


  Set 範囲 = Application.InputBox("範囲を指定してください。" _
  , "新規作成", Type:=8)

  Worksheets("sheet1").Copy = 範囲.Address
  Worksheets("sheet2").Paste = 範囲.Address

【53372】Re:ダイアログボックスを使って、コピー...
発言  マクロマン  - 08/1/6(日) 16:18 -

引用なし
パスワード
   マクロの自動記録で、コピー、貼付け
を行ってみてください。

Dim 範囲 As Range
  Set 範囲 = Application.InputBox("範囲を指定してください。" _
  , "新規作成", Type:=8)

  Worksheets("sheet1").Range(範囲.Address).Copy
  Worksheets("sheet2").Paste

【53373】Re:ダイアログボックスを使って、コピー...
お礼  jin  - 08/1/6(日) 16:35 -

引用なし
パスワード
   早速のお返事、ありがとうございます。

出来ました!
2時間くらい悩んでいたのですが、
もっと早く質問すればよかったです。
マクロマン さん 本当にありがとうございました。

▼マクロマン さん:
>マクロの自動記録で、コピー、貼付け
>を行ってみてください。
>
> Dim 範囲 As Range
>  Set 範囲 = Application.InputBox("範囲を指定してください。" _
>  , "新規作成", Type:=8)
>
>  Worksheets("sheet1").Range(範囲.Address).Copy
>  Worksheets("sheet2").Paste

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