
No.6
- 回答日時:
norakurotodorokiさん 初めまして
ご質問を実現するVBAのコードは、先の回答ですでにありますのが、ご質問者の望むものとは違うかもしれませんね?
それは、その都度変わるのが何なのかを明確にしていないからです。コピーはSelec範囲これは問題ないですが、
ペーストする位置が変わると解釈するのですか?
例では、1行下ですが10行下になる可能性や1行下の3列右からなどと変わるのですか?
あなたの問題を多くの方が同じように考えて、実施し、どのように伝えれば理解できるかまで考えてくれるのです。
うまく伝わっていないと思った時は、補足などを入れてくださいね。
勿論、一部分のVBAコードだと思います。
ちなみに、下記が自動記録で記録したマクロです。
Sub Macro1()
Range("A1:D1").Select
Selection.ClearContents
Range("A1:D1").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
ご自身で調べ、ActiveCell.Select Selection.ClearContents を
試された事も分かりますが、なんで、あと少し調べトライアルすれば出来るのにと、思っていしまいます。
>エクセルでマウス
とありますので、あえてアドバイスいたします。(今回、基本的におかしい?(個人的見解、悪意はありません)と思う事にアドバイスしています)
マウスで選択して行いたい動作は、マクロで実行するよりキーボードで
実施する方がはるかに容易く、VBAで行う合理性がありません。
マウスでなぞっているなら、Selection.ClearContentsは、キーボードのDeleteキーを押すだけで良いです。
コピーペーストに関しても
>マウスでA1、B1、C1、D1をなぞって、、
なら、
キーボードでCtrlキー+Cキー
A2セルに移動(マウスでも矢印キーでもEnterキーでもTabキーでも設定に合わせ)
Ctrlキー+Vキーを押せばよいのです。
逆に他にも処理コードがあり、VBAでやるならSelectionでなくRangeオブジェクトを使用する方が合理的です。
また、マウス操作で実行したいなら、トリガーをPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)や
Private Sub Worksheet_Change(ByVal Target As Range)などのシートイベントに記載する方が良いと思います。
追記:ショートカットキーを知らないことを想定して。。(そんな事ないですよね。すみません。)
しっかりショートカット操作を学習する事を勧めます。
https://office-hack.com/excel/shortcutkey-list/
No.5
- 回答日時:
No.2です。
>マウスでA1、B1、C1、D1をなぞってコピーし・・・
前回はA1~D1限定のコードでしたが、範囲は不明なのですね。
範囲指定が1行限定であれば
Selection.Copy Selection(1).Offset(1)
複数行の場合は
Selection.Copy Cells(Selection(Selection.Count).Row + 1, Selection(1).Column)
としてみてください。
※ 飛び飛びのセル選択は考慮していません。
すなわち連続セルの範囲指定だという前提です。m(_ _)m
No.4
- 回答日時:
No.3 の訂正
以下でも良かったみたいです。
Sub 下にコピー()
Selection.Copy Cells(Selection.Row + 1, Selection.Column)
End Sub
No.2
- 回答日時:
こんにちは!
>ActiveCell.Select
だと複数セルを選択していても、選択した中の単一セルだけが対象になるのだと思います。
↓のサイトが参考になるかも・・・
https://excel-excel.com/tips/vba_508.html
すなわち
>Selection.ClearContents
の1行だけで大丈夫のはずです。
次に
>マウスでA1、B1、C1、D1をなぞってコピーし 同じものを真下A2、B2、C2、D2のセルにペーストさせるには・・・
コピー&ペーストではなく、値の代入になりますが、
Range("A2:D2").Value = Range("A1:D1").Value
どうしてもコピー&ペーストしたい場合は
Range("A1:D1").Copy Range("A2")
といった感じでしょうか。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マウスのクリック、指離したの...
-
マウスのポインタが勝手に上下...
-
デスクトップに虫めがねが現れ...
-
マウス表示が手のマークになっ...
-
Windows11の設定画面がスクロー...
-
2画面にするとマウスポインタ...
-
選択範囲がとまりません
-
「丸印の中に三角のマークが上...
-
キーが押されっぱなし(のよう...
-
右クリックで出る「ここにコピ...
-
ディスプレイに一部の画面しか...
-
マウスでの範囲指定の動きがお...
-
マウスでスクロールすると画面...
-
コピペ
-
ペイントで、左クリックのまま...
-
マウスから手を離す時にブラウ...
-
画面をスクロールしようとする...
-
alt+tabをマウスで操作
-
タッチパッドでドラッグするの...
-
カーソルがモザイク状になってます
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マウスのクリック、指離したの...
-
マウスのポインタが勝手に上下...
-
「丸印の中に三角のマークが上...
-
デスクトップに虫めがねが現れ...
-
キーが押されっぱなし(のよう...
-
Windows11の設定画面がスクロー...
-
右クリックで出る「ここにコピ...
-
選択範囲がとまりません
-
2画面にするとマウスポインタ...
-
マウス表示が手のマークになっ...
-
ペイントで、左クリックのまま...
-
マウスでスクロールすると画面...
-
マウスでの範囲指定の動きがお...
-
マウス、(カーソル)が動くと、...
-
マウスカーソルが反転?
-
動画再生中、マウスカーソルが...
-
PS/2互換マウスドライバーの入...
-
ミッキーマウスのポインタ
-
戻るボタン←で二つ前に戻ります
-
(緊急)windowsのタスクバーや...
おすすめ情報