Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11318 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【16821】選択エリアをカット＆ペーストする場合 ackkn 04/8/11(水) 11:18 質問[未読]
【16822】Re:選択エリアをカット＆ペーストする場合 Asaki 04/8/11(水) 11:36 回答[未読]
【16823】Re:選択エリアをカット＆ペーストする場合 ackkn 04/8/11(水) 12:02 回答[未読]
【16824】Re:選択エリアをカット＆ペーストする場合 ackkn 04/8/11(水) 12:30 質問[未読]
【16825】Re:選択エリアをカット＆ペーストする場合 IROC 04/8/11(水) 12:32 回答[未読]
【16826】Re:選択エリアをカット＆ペーストする場合 ackkn 04/8/11(水) 13:55 質問[未読]
【16827】Re:選択エリアをカット＆ペーストする場合 Jaka 04/8/11(水) 14:11 回答[未読]
【16828】Re:選択エリアをカット＆ペーストする場合 つん 04/8/11(水) 14:21 発言[未読]
【16829】Re:選択エリアをカット＆ペーストする場合 Jaka 04/8/11(水) 14:41 発言[未読]
【16830】Re:選択エリアをカット＆ペーストする場合 IROC 04/8/11(水) 14:44 回答[未読]
【16832】Re:選択エリアをカット＆ペーストする場合 ackkn 04/8/11(水) 15:19 発言[未読]
【16833】Re:選択エリアをカット＆ペーストする場合 つん 04/8/11(水) 15:28 発言[未読]
【16835】Re:選択エリアをカット＆ペーストする場合 IROC 04/8/11(水) 15:54 回答[未読]
【16838】Re:選択エリアをカット＆ペーストする場合 ackkn 04/8/11(水) 16:08 お礼[未読]
【16839】Re:選択エリアをカット＆ペーストする場合 IROC 04/8/11(水) 16:12 回答[未読]
【16821】選択エリアをカット＆ペーストする場合
質問  ackkn  - 04/8/11(水) 11:18 -
引用なし
パスワード
   どなたかご教示下さい、よろしくお願いします。
あるエリアを選択して、カット＆ペースト(他のシートへ)する場合、Selection.cutして下記のコードでペーストするしか無いのでしょうか？
クリップボード経由のカット＆ペーストは、その後のクリアも必要なので、もっとスマートな方法があるような気がしてなりません。
よろしくお願いします。

Worksheets(2).Activate
ActiveSheet.Paste _
　　Destination:=Workbooks("TEST.xls").Worksheets(2).Range("A3")
Application.CutCopyMode = False
Application.ScreenUpdating = True
【16822】Re:選択エリアをカット＆ペーストする場合
回答  Asaki  - 04/8/11(水) 11:36 -
引用なし
パスワード
   こんにちは。

試してませんが、
Cut
の引数 Destination に、貼り付け先を指定すれば良いのでは？
【16823】Re:選択エリアをカット＆ペーストする場合
回答  ackkn  - 04/8/11(水) 12:02 -
引用なし
パスワード
   ▼Asaki さん：
>こんにちは。
>
>試してませんが、
>Cut
>の引数 Destination に、貼り付け先を指定すれば良いのでは？

Asaki さん、早速のレスありがとうございます。
Selection.Cut の時点で、Destination に貼付先を指定してやれば良いのでは？
との事ですよね、早速トライしてみます。
【16824】Re:選択エリアをカット＆ペーストする場合
質問  ackkn  - 04/8/11(水) 12:30 -
引用なし
パスワード
   ▼ackkn さん：
>▼Asaki さん：
>>こんにちは。
>>
>>試してませんが、
>>Cut
>>の引数 Destination に、貼り付け先を指定すれば良いのでは？
>
>Asaki さん、早速のレスありがとうございます。
>Selection.Cut の時点で、Destination に貼付先を指定してやれば良いのでは？
>との事ですよね、早速トライしてみます。

バッチリ！、なりました。
で、もう一つ教えて下さい。
選択したエリアの、左上角(できたら任意の)のアドレスを取得する方法はどうしたら取得できるのでしょうか？（カット＆ペースト後、そこへ移動させたい）
よろしくお願いします。
【16825】Re:選択エリアをカット＆ペーストする場合
回答  IROC  - 04/8/11(水) 12:32 -
引用なし
パスワード
   activecell ではダメなのでしょうか？
【16826】Re:選択エリアをカット＆ペーストする場合
質問  ackkn  - 04/8/11(水) 13:55 -
引用なし
パスワード
   ▼IROC さん：
>activecell ではダメなのでしょうか？

IROC さん、早速のレスありがとうございます。
ActiveCell を色々と調べたのですが、複数のセル(例えば、５行５列)を選択した状態で、ActiveCellを使ってどのような書式で左上角のセルとかを指定するのでしょうか？
よろしくお願いします。
【16827】Re:選択エリアをカット＆ペーストする場合
回答  Jaka  - 04/8/11(水) 14:11 -
引用なし
パスワード
   MsgBox Selection.Cells(1).Address(0, 0)
【16828】Re:選択エリアをカット＆ペーストする場合
発言  つん E-MAIL  - 04/8/11(水) 14:21 -
引用なし
パスワード
   みなさん、こんにちは

MsgBox ActiveCell.Address

でもええんかな・・・・
【16829】Re:選択エリアをカット＆ペーストする場合
発言  Jaka  - 04/8/11(水) 14:41 -
引用なし
パスワード
   ▼つん さん：
>みなさん、こんにちは
>
>MsgBox ActiveCell.Address
>
>でもええんかな・・・・

つんさん　こんにちは、元気ですか？

>左上角のセルとかを指定するのでしょうか
とのことですので、例えば

B3:F10　の範囲をB10、またはF10からドラッグして選択してみてください。
【16830】Re:選択エリアをカット＆ペーストする場合
回答  IROC  - 04/8/11(水) 14:44 -
引用なし
パスワード
   >複数のセル(例えば、５行５列)を選択した状態で、
>ActiveCellを使ってどのような書式で左上角のセルとかを指定するのでしょうか？

ActiveCellで代用できないのかと思い、回答させていただきました。
明確に「複数のセルを選択した状態の左上角のセル」とのことなので、
ダメでしたね。すみませんでした。
【16832】Re:選択エリアをカット＆ペーストする場合
発言  ackkn  - 04/8/11(水) 15:19 -
引用なし
パスワード
   ▼IROC さん：
>>複数のセル(例えば、５行５列)を選択した状態で、
>>ActiveCellを使ってどのような書式で左上角のセルとかを指定するのでしょうか？
>
>ActiveCellで代用できないのかと思い、回答させていただきました。
>明確に「複数のセルを選択した状態の左上角のセル」とのことなので、
>ダメでしたね。すみませんでした。

IROC さん、Jaka さん、つんさん　こんにちは。
色々なアドバイスありがとうございます。
IROC さん、そんなに簡単に引かないでください。
最初の、ActiveCellではダメなのでしょうか、の一言に、どんな風に指定する
のでしょうか？　と返してから自分なりに考えていましたら、その間にJaka さん
、つんさんのやり取りがあり、その Jaka さんの、「B3:F10　の範囲をB10、またはF10からドラッグして選択してみてください。」まさにこの事を考えていました。
要するに、選択した際の開始セルと終了セルのどちらかが ActiveCell になるのではないかな、そこを起点にOffsetか何かで希望のセルを指定するのかな？
てな事を...

で、みなさん真のところはどうなんでしょうか？
よろしくお願いします。
【16833】Re:選択エリアをカット＆ペーストする場合
発言  つん E-MAIL  - 04/8/11(水) 15:28 -
引用なし
パスワード
   Jakaさん

んー、そこそこ元気です。
歯医者で治療してるんだけど、治療してるところが痛い(T_T)
やぶかしらん・・・？

それはともかく
>B3:F10　の範囲をB10、またはF10からドラッグして選択してみてください。
がーん...(￣Δ￣;)

ackkn さん

>要するに、選択した際の開始セルと終了セルのどちらかが ActiveCell になるのではないかな、そこを起点にOffsetか何かで希望のセルを指定するのかな？
>てな事を...

選択した際、ActiveCellは開始セルになりますねぇ
選択した開始セルを基点したかったら、「ActiveCell.Address」でいいし、
そうではなく、選択したやり方関係なく、左上を基点にしたかったら、Jakaさんのやり方をされたらいいですね。
【16835】Re:選択エリアをカット＆ペーストする場合
回答  IROC  - 04/8/11(水) 15:54 -
引用なし
パスワード
   >IROC さん、そんなに簡単に引かないでください。

引いてないですよ。(^o^)

ただ、Jakaさんので解決だと思ったので・・
【16838】Re:選択エリアをカット＆ペーストする場合
お礼  ackkn  - 04/8/11(水) 16:08 -
引用なし
パスワード
   ▼IROC さん：
>>IROC さん、そんなに簡単に引かないでください。
>
>引いてないですよ。(^o^)
>
>ただ、Jakaさんので解決だと思ったので・・

なるほど、了解です。

で、纏めますと、選択した際の開始セルでよければ、Activecell を使い、
その他の場所の場合は、Selection.Cells(1).Address(0, 0) を使えばよい
と言う事です。　ﾈ...

Asaki さん、IROC さん、Jaka さん、つんさん
色々とありがとうございました。
【16839】Re:選択エリアをカット＆ペーストする場合
回答  IROC  - 04/8/11(水) 16:12 -
引用なし
パスワード
   >で、纏めますと、選択した際の開始セルでよければ、Activecell を使い、
>その他の場所の場合は、Selection.Cells(1).Address(0, 0) を使えばよい
>と言う事です。　ﾈ...

そのとおりです。
アクティブセルは、「白くなっているセル」で、
つねに１箇所となります。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11318 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free