
セルを貼り付けする時に値だけを取り出したいので
以下のものを書いてみました。
Ctrl + c > Ctrl + v 「コピー 貼り付け」 は動くのですが、
Ctrl + x > Ctrl + v 「切り取り 貼り付け」 は run time error が出てしまいます。
理由ご存知でしょうか?
Sub Auto_Open()
Call setKey
End Sub
Sub setKey()
Application.OnKey "^{v}", "pasteValue"
End Sub
Sub pasteValue()
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
No.2ベストアンサー
- 回答日時:
こんばんは。
半分寝ぼけて書いたので、おかしな部分がありそうですが...
複数セルやシェープなどのオブジェクトに対応してみました。余談ですが、
このようにマクロで貼り付けたものは Undo が効かないのでご注意を。
では。
Option Explicit
Option Private Module
Private moSrc As Object ' // コピー・切り取りのソース
Private mfCut As Boolean ' // 切り取りフラグ
Sub Auto_Open()
Call SetKeys
End Sub
Sub Auto_Close()
Call RestoreKeys
End Sub
' // 独自ショートカットキー設定
Sub SetKeys()
Application.OnKey "^c", "'CustomCopy 0'"
Application.OnKey "^x", "'CustomCopy 1'"
Application.OnKey "^v", "CustomPaste"
End Sub
' // 独自ショートカットキー解除
Sub RestoreKeys()
Application.OnKey "^c"
Application.OnKey "^x"
Application.OnKey "^v"
End Sub
Public Sub CustomCopy(ByVal lMode As Long)
On Error Resume Next
Set moSrc = Selection
Select Case lMode
Case 0: mfCut = False
Case 1: mfCut = True
End Select
moSrc.Copy
End Sub
Public Sub CustomPaste()
On Error GoTo Err_
Application.ScreenUpdating = False
If moSrc Is Nothing Then
ActiveSheet.Paste
ElseIf TypeOf moSrc Is Range Then
' // Case range
ActiveCell.PasteSpecial Paste:=xlPasteValues
If mfCut Then moSrc.Clear ' // or ClearContents
Else
' // Case other object
ActiveSheet.Paste
If mfCut Then moSrc.Delete
End If
Set moSrc = Nothing
Exit Sub
Err_:
MsgBox Err.Description, vbCritical, "貼り付けに失敗"
End Sub
回答ほんとに感謝です
まさに改善したい通りにして頂けました
書いていただいたコード、今の自分にはまだ読めませんが
時間ある時に解読するのを楽しみに取っておきます
ありがとうございました^^
No.1
- 回答日時:
通常の動作でも、Ctrl + X の場合は「形式を選択して貼付け」が無効になっているはずですよ。
なので、VBAでも同様です。
出来ない動作を実行させようとしたのですからエラーになります。
回答ありがとうございました おっしゃる通りですね
一応以下のコードで希望通り動くようになったのですが、
cutValue() の時にデフォルトのように点線で囲むにはどうするのでしょうか??
あるいはもっと効率の良い書き方などあればアドバイスよろしくお願いします。
Dim cellValue As String
Sub Auto_Open()
Call setKey
End Sub
Sub setKey()
Application.OnKey "^{x}", "cutValue"
Application.OnKey "^{v}", "pasteValue"
End Sub
Sub cutValue()
cellValue = ActiveCell.Value
ActiveCell.Value = ""
Application.CutCopyMode = True
End Sub
Sub pasteValue()
ActiveCell.Value = cellValue
Application.CutCopyMode = False
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Windows 10 Window10ショートカットキーで切り取り貼り付けするとコンテキストメニューと挙動が異なる理由は? 2 2022/04/16 17:57
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) 【マクロ】PasteSpecialメソッドにて、コードが動かない理由が分かりません 2 2023/08/15 20:47
- Windows 7 ショートカットキー 応用編 どういうの主に使いますか? 2 2022/12/28 23:46
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/05 09:30
- Word(ワード) Ctrl+Shift+C、Ctrl+Shift+Vが効かない方おられますか 3 2022/04/22 19:56
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
【Excel VBA】指定行以降をクリ...
-
【Excel】指定したセルの名前で...
-
VBA実行後に元のセルに戻りたい
-
特定のセルが空白だったら、そ...
-
Excel VBA マクロ ある列の最終...
-
vba 隣のセルに値がある行だけ...
-
VBA コピーして次の値まで貼り...
-
VBA初心者です。結合セルを保持...
-
VBAでセルをクリックする回...
-
VBSでエクセル内の行数を取得す...
-
i=cells(Rows.Count, 1)とi=cel...
-
”戻り値”が変化したときに、マ...
-
特定の文字を条件に行挿入とそ...
-
ExcelのVBAで数字と文字列をマ...
-
3桁または4桁の数値を時刻に...
-
Excelのプルダウンで2列分の情...
-
クリックされたセルの位置を取...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
VBA実行後に元のセルに戻りたい
-
特定のセルが空白だったら、そ...
-
【Excel】指定したセルの名前で...
-
”戻り値”が変化したときに、マ...
-
【EXCEL VBA】Range("A:A").Fi...
-
エクセルvbaで、別シートの最下...
-
連続する複数のセル値がすべて0...
-
セル色なしの行一括削除
-
Excel VBA マクロ ある列の最終...
-
VBAでセルをクリックする回...
-
特定の文字を条件に行挿入とそ...
-
Excel vbaで特定の文字以外が入...
-
Excelのプルダウンで2列分の情...
-
VBからEXCELのセルの値を取得す...
-
EXCELで変数をペーストしたい
-
vba 隣のセルに値がある行だけ...
おすすめ情報