
作りたいマクロは
シート全体を範囲選択してコピー
形式を選択して貼り付け(値)
コピーモードの解除
選択範囲を解除してアクティブセルを選択
です
最後以外は問題ないのですがアクティブセルの段階で詰まってしまいました
下記はコピーモードの解除までのコードです
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
エクセルVBAで選択状態を解除のしかた
Excel(エクセル)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
8
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
11
VBA 別ブックからコピペしたいのですが、軽くしたいです
Visual Basic(VBA)
-
12
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
13
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
14
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
15
セルを選択解除
Excel(エクセル)
-
16
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
17
複数のマクロボタンをまとめて一つのマクロボタンにするということ。
Excel(エクセル)
-
18
VBAでの結合セルのコピー&ペースト
Excel(エクセル)
-
19
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
20
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルで、選択範囲の数値全...
-
Excel 行の連続データを列に参...
-
エクセルで隣接していない複数...
-
Excelに、ダブルクォーテーショ...
-
メールソフト「サンダーバード...
-
エクセルで勝手に「折り返して...
-
エクセルでの行数・列数を指定...
-
エクセルの2ページ目の作り方
-
Excelで値をコピーするとセルの...
-
エクセルで図の貼り付けを行う...
-
エクセルでコピー領域と貼り付...
-
結合したセルを1つのセルにコピ...
-
エクセル コピーしたデータを1...
-
前月の統計表の計算式を残した...
-
エクセルで値だけコピーして背...
-
エクセル 別シートへのコピー...
-
フォームのテキストボックスの...
-
条件に合致した複数のセルを選...
-
「選択範囲を解除してアクティ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
Excel 行の連続データを列に参...
-
メールソフト「サンダーバード...
-
エクセルで隣接していない複数...
-
Excelに、ダブルクォーテーショ...
-
エクセルで勝手に「折り返して...
-
エクセルで、選択範囲の数値全...
-
エクセルの2ページ目の作り方
-
エクセルで値だけコピーして背...
-
エクセルでの行数・列数を指定...
-
エクセル 別シートへのコピー...
-
EXCELのオートフィルの設定を変...
-
Excelでコピーした行の挿入を繰...
-
Excelでのコピーしないセルの挿...
-
エクセル コピーしたデータを1...
-
エクセル・数値が変化したらカ...
-
「選択範囲を解除してアクティ...
-
エクセルで「コピーしたセルの...
-
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