No.7ベストアンサー
- 回答日時:
▲こちらのTipsにAPIを利用する方法が書かれていますので、参考にしてみてください。
[E03M121 切り取り又はコピーされたセル範囲を取得する]
取得するタイミングが、『コピー後、次のセル範囲を選択した時』で良ければ
Sheet の SelectionChange イベントが使えそうです。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static ad As String
If Application.CutCopyMode Then
MsgBox ad
Else
ad = Target.Address(0, 0, external:=True)
End If
End Sub
でも
>通常は不要ですが、データ貼り付けを行った際に、データの内容をチェックし、
>別のセルに値をセットするため、セルのコピー範囲の情報が解除され、
>連続して貼り付けできない状態になっております。
...という事であれば、作業用シートにでも一旦コピーし、
そこから再コピーするような仕様でも良いような気もしますね。
回答ありがとうございました。
また、お礼が遅くなり申し訳ございません。
丁寧なアドバイスありがとうございます。
頂いた内容でいろいろやってみてなんとかいけました。
No.6
- 回答日時:
回答ありがとうございました。
また、お礼が遅くなり申し訳ございません。
毎回コピー範囲が変わるのですが、リンク先のサイトは
参考になりました。
いろいろ試させていただきます。
No.4
- 回答日時:
コピーのイベントってないんですね。
コピーするためにはまず範囲をSelectしなくてはならないでしょうからSelectionのアドレスを取得してみたらどうでしょう?
Dim x
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Selection.Address
End Sub
Sub aaaa()
MsgBox x
End Sub
回答ありがとうございます。
確かにいただいた内容ではアドレスの取得ができるのですが、
それがコピーされたセルなのかどうかが判別できません。
やはり難しいのでしょうか?
No.3
- 回答日時:
内容を書いてる間に質問者より補足が有りましたけど、
具体的に何の情報を取得したいのですか?
又は、何を(どんな事)をしたいのですか?
この回答への補足
仮にA1:Z10までデータが入っていたとして、
B1:B5までを選択してコピー、
C3:C8に貼り付け
を行う際に、「B1:B5」という情報が取得したいです。
通常は不要ですが、データ貼り付けを行った際に、データの内容をチェックし、
別のセルに値をセットするため、セルのコピー範囲の情報が解除され、
連続して貼り付けできない状態になっております。
ご迷惑おかけし申し訳ございませんがよろしくお願いいたします。
No.2
- 回答日時:
>とあるセルをコピーし
何処までデータが入力されているか分からないけど、とにかくデータが入力されてる範囲を取得したい。と言う事ですか?
セルA1から連続してデータが入っている範囲を選択させるだけなら
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
で、いいと思います。
後は、煮るなり焼くなり
回答ありがとうございます。
私の質問の仕方が悪かったのですが、
望んでいたこととは違っておりました。
ご回答いただいた内容は別件で使用させていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) Excelのマクロ ブック間である範囲をコピー Workbooks(“a.xlsx“).Sheets 3 2022/05/12 17:02
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルの2ページ目の作り方
-
エクセルで勝手に「折り返して...
-
Excel 行の連続データを列に参...
-
エクセルで隣接していない複数...
-
Excelでコピーした行の挿入を繰...
-
エクセルオートフィルで書式を...
-
エクセルで値だけコピーして背...
-
「選択範囲を解除してアクティ...
-
Excel)軽いデーターのはずなの...
-
EXELで複数のとびとびのセルを...
-
エクセルで、選択範囲の数値全...
-
エクセルでの行数・列数を指定...
-
EXCELのオートフィルの設定を変...
-
エクセル・数値が変化したらカ...
-
Excelに、ダブルクォーテーショ...
-
EXCELシートをPowerPointにきれ...
-
エクセルで「コピーしたセルの...
-
結合したセルを1つのセルにコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルの2ページ目の作り方
-
エクセルで勝手に「折り返して...
-
Excel 行の連続データを列に参...
-
EXCELシートをPowerPointにきれ...
-
EXCELのオートフィルの設定を変...
-
「選択範囲を解除してアクティ...
-
メールソフト「サンダーバード...
-
エクセルオートフィルで書式を...
-
Excelでコピーした行の挿入を繰...
-
Excelに、ダブルクォーテーショ...
-
エクセルでの行数・列数を指定...
-
エクセルで隣接していない複数...
-
Excel)軽いデーターのはずなの...
-
エクセルで値だけコピーして背...
-
EXELで複数のとびとびのセルを...
-
エクセル 別シートへのコピー...
-
エクセルで、選択範囲の数値全...
-
エクセル・数値が変化したらカ...
おすすめ情報