
作りたいマクロは
シート全体を範囲選択してコピー
形式を選択して貼り付け(値)
コピーモードの解除
選択範囲を解除してアクティブセルを選択
です
最後以外は問題ないのですがアクティブセルの段階で詰まってしまいました
下記はコピーモードの解除までのコードです
Sub Macro1()
'
' Macro1 Macro
'
'
Cells.Select
Range("E25").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
No.3ベストアンサー
- 回答日時:
> 作業中どこにアクティブセルをおいていても
それを書かないと……
Dim rng As Range
Set rng = ActiveCell
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
rng.Activate
Set rng = Nothing
できましたあああああありがとうございます!!!
手間取らせてしまい申し訳ありません、excelは難しいですね。以下完成したコードです
Nothingまでだと範囲選択が解除されなかったので先の回答にありましたselectを引用させていただきました
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+q
'
Dim rng As Range
Set rng = ActiveCell
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
rng.Activate
Set rng = Nothing
ActiveCell.Select
End Sub
No.2
- 回答日時:
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("E25").Select
でいいんじゃないですか?
>>できましたあああああありがとうございます!!!
失敗した方を貼り付けてました、せっかく教えてもらっておいてこれはありませんね
重ね重ね失礼しました
↓本当の完成品
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+q
'
Dim rng As Range
Set rng = ActiveCell
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
rng.Activate
Set rng = Nothing
ActiveCell.Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) 【VBA】エクセルで選択した範囲の値のみをクリップボードにコピーするコードについて 3 2023/03/08 17:41
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Excel(エクセル) エクセルVBA 作業後に選択範囲を解除する方法 5 2023/02/17 07:13
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
このQ&Aを見た人はこんなQ&Aも見ています
-
見学に行くとしたら【天国】と【地獄】どっち?
みなさんは、一度だけ見学に行けるとしたら【天国】と【地獄】どちらに行きたいですか? 理由も聞きたいです。
-
おすすめの美術館・博物館、教えてください!
美術館・博物館が大好きです。みなさんのおすすめをぜひお聞きしたいです。
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
テレビやラジオに出たことがある人、いますか?
テレビやラジオに取材されたり、ゲスト出演したことある方いますか?
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
エクセルVBAで選択状態を解除のしかた
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
セルを選択解除
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
8
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
9
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
10
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
11
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
12
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
-
15
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
16
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
17
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
18
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
19
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
20
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルで隣接していない複数...
-
エクセルのアポストロフィを一...
-
エクセルで勝手に「折り返して...
-
エクセルで、選択範囲の数値全...
-
Excelに、ダブルクォーテーショ...
-
メールソフト「サンダーバード...
-
Excel 行の連続データを列に参...
-
エクセル 別シートへのコピー...
-
「選択範囲を解除してアクティ...
-
エクセルで値だけコピーして背...
-
Excelでのコピーしないセルの挿...
-
VBAでセルがコピーされているか...
-
EXCELのオートフィルの設定を変...
-
【エクセル】行の高さを規則的...
-
エクセルで「コピーしたセルの...
-
エクセルの2ページ目の作り方
-
可視セル設定をデフォルトにしたい
-
【Excel】「+」印のマウスポイ...
-
エクセルでの行数・列数を指定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルで隣接していない複数...
-
エクセルで勝手に「折り返して...
-
Excel 行の連続データを列に参...
-
メールソフト「サンダーバード...
-
エクセルで、選択範囲の数値全...
-
エクセルで値だけコピーして背...
-
エクセル 別シートへのコピー...
-
Excelに、ダブルクォーテーショ...
-
エクセルの2ページ目の作り方
-
エクセルでの行数・列数を指定...
-
EXCELのオートフィルの設定を変...
-
エクセルのコピペでクリップボ...
-
エクセルで「コピーしたセルの...
-
「選択範囲を解除してアクティ...
-
Excel)軽いデーターのはずなの...
-
Excelでコピーした行の挿入を繰...
-
エクセル・数値が変化したらカ...
-
エクセル コピーしたデータを1...
おすすめ情報
回答ありがとうございます。
試してみましたがマクロの終わりにA1セルにアクティブセルが置かれてしまいます。
ややこしいですが、作業中どこにアクティブセルをおいていてもマクロの終わりに最初のアクティブセルを選択している状態にしたいのです。
今のコードです↓
Cells.Select
Range("E6").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Select
End Sub