ぷーちんの点

全然違う話。
会社の人に「ExcelでCtrl+bで、値のみ貼り付けをしたいから設定して～」って・・・
前のPCでは出来てたらしく、やりました。。
うん、マクロ触ったことない(・∀・)b

って、前のPCから移行しただけ。
でも、エラーは出ないように設定しておいたよ！

---

貼り付けをカスタムショートカットキーで設定

----------------------------------------------------
Sub 貼り付け()
Attribute 貼り付け.VB_ProcData.VB_Invoke_Func = "b\n14"
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub
-----------------------------------------------------

・エラーが出ないようにする
→On Error Resume Next

・値のみを貼り付け
→Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
　xlNone, SkipBlanks:=False, Transpose:=False

少し詳細を書くと・・・
　Selection：その時選択しているセル
　PasteSpecial：貼り付けオプション
　Paste:=xIPasteValueAndNumberFormats：値の貼り付け

恐らくこんな感じ。
クリップボードのコピーとかすごく探したけど、そんなのいらないみたいでショックだった・・・

マクロって、やぱり書き慣れてないから・・・みにくいな。
余談だけど・・・
　このコードマクロの編集画面からコピーして、Skypeに貼り付けて送信したんだけど。
　Skypeと文字コードが違うらしくて、貼り付けたら文字化けしちゃった。
　だから、一旦メモ帳に貼り付けてもう一回コピーする!!っていう作業を挟むっていう・・・
　久々に文字化けみたよ。

[0回]