作りたいマクロは
シート全体を範囲選択してコピー
形式を選択して貼り付け(値)
コピーモードの解除
選択範囲を解除してアクティブセルを選択
です
最後以外は問題ないのですがアクティブセルの段階で詰まってしまいました
下記はコピーモードの解除までのコードです
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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
-
エクセルVBAで選択状態を解除のしかた
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
セルを選択解除
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
10
別のシートから値を取得するとき
Visual Basic(VBA)
-
11
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
12
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
13
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
14
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
15
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
16
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
17
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
18
Excel マクロ:変数を複数使う場合
Excel(エクセル)
-
19
UserForm1.Showでエラーになります。
工学
-
20
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルの2ページ目の作り方
-
エクセルのアポストロフィを一...
-
Excel)軽いデーターのはずなの...
-
「選択範囲を解除してアクティ...
-
メールソフト「サンダーバード...
-
Excel 行の連続データを列に参...
-
Excelでコピーした行の挿入を繰...
-
エクセルで、選択範囲の数値全...
-
Excelに、ダブルクォーテーショ...
-
エクセルで勝手に「折り返して...
-
エクセルオートフィルで書式を...
-
EXCELのオートフィルの設定を変...
-
エクセル 別シートへのコピー...
-
【Excel】【VBA】空白のセルに...
-
エクセルでの行数・列数を指定...
-
Excelで、横並べのデータを縦並...
-
Excelで値をコピーするとセルの...
-
EXELで複数のとびとびのセルを...
-
EXCEL、セルのコピー・貼り付け...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルの2ページ目の作り方
-
エクセルのアポストロフィを一...
-
Excel 行の連続データを列に参...
-
エクセルで、選択範囲の数値全...
-
エクセルで勝手に「折り返して...
-
Excelでコピーした行の挿入を繰...
-
EXCELシートをPowerPointにきれ...
-
EXCELのオートフィルの設定を変...
-
エクセルでの行数・列数を指定...
-
エクセルのコピペでクリップボ...
-
Excelに、ダブルクォーテーショ...
-
エクセル 別シートへのコピー...
-
メールソフト「サンダーバード...
-
「選択範囲を解除してアクティ...
-
EXELで複数のとびとびのセルを...
-
エクセルで値だけコピーして背...
-
Excel)軽いデーターのはずなの...
-
エクセル・数値が変化したらカ...
-
Excelで、横並べのデータを縦並...
おすすめ情報
回答ありがとうございます。
試してみましたがマクロの終わりに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