値の貼り付けマクロが出来なくなりました。

質問

http://kokodane.com/macro17.htm

頻繁に、形式を選択して貼り付けで「値の貼り付け」を行うため、
上記のサイトを参考にしてマクロを作成しました。
コードは

Sub 値の貼り付け()
' Keyboard Shortcut: Ctrl+t
'
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
　　　　SkipBlanks :=False, Transpose:=False
End Sub

です。

それが昨日のことなのですが、そのときはうまくマクロが動作して、
データを貼り付けることが出来ていたのですが、
今日やってみるとなぜかうまくいきません。

特に何か設定は変えていません。
セキュリティは下げた状態にしてあり、他のマクロは通常通り使えています。
コピーペーストは普通に行えています。

なぜなんでしょうか？
何度かマクロを作成しなおしてみたりもしたのですが、
どうやってもうまくいきません。

どなたか理由を教えて下さい。

回答No.5

Wendy02 · ベストアンサー

#2の回答者です。

>一体全体、何が原因なのでしょうか？
>私はVBA自体はこれまでにかなり経験があり、PERSONAL.xls上にも

どのぐらいの技術を持っているか分かりませんが、方法としては、ブレイク・ポイントを設けたり、以下のようにしてみたら良いと思います。

Sub tPasteMacro()
　　If Application.CutCopyMode = False Then
　　　MsgBox "CutCopyModeがTrueになっていません。",48
　　　Exit Sub
　　End If
　　If TypeName(Selection) = "Range" Then
　　　Selection.Cells(1).PasteSpecial Paste:=xlPasteValues, _
　　　Operation:=xlNone, _
　　　SkipBlanks:=False, _
　　　Transpose:=False
　　Else
　　　MsgBox "貼りつけはセルに限ります。"
　　End If
End Sub

コピーモードが外れているのでは？
これで分かるはずです。うまく行かない理由は、イベントの　SelectionChangeやCalculateが走っているようです。

当面、今までの登録しているマクロを、一つずつ、すべて調べなくてはなりません。この種のマクロは、本当は直したほうが良いのですし、直せば、当然、今回のような問題は発生しないのですが、この機に、とりあえず、今回の問題の大元の部分は、クリアしないとコードを直しても、おそらく他の問題に派生します。たぶん、個別のブックに登録してよいものと、そうでないPersonal.xlsに入れるものとが一緒になっているような気がします。

回答No.4

keithin

Excel2003まではヘルプメニューからバージョン情報，Excel2007以降ではOfficeボタンからExcelのオプションのアドインの管理の項目，で「使用できないアイテム」を確認し，もしPERSONAL.xlsが捕らわれていたら使用できるようにしてからエクセルを再起動して試してみてください。

お礼

皆さん回答ありがとうございます。

書くのを忘れていましたが、バージョンは2003です。

No1さんへのお礼にも書いていますが、
最初はPERSONAL.xlsにマクロを登録したのですが、その状態ではなぜか
Selection.PasteSpecial Paste:=xlPasteValues
の記述が動作しないことが分かりました。
そこで個々のブックに登録してみたところ普通に使えることが判明しました。

No.2さんが書かれているコードも個々のブックに登録すれば使用することが出来るのですが
PERSONAL.xlsに登録した場合だとPERSONAL.xlsのシート上であっても使うことが出来ません。

また、No.4さんが仰っている「使用できないアイテム」も確認してみましたが、
特に何も登録されていませんでした。

PERSONAL.xlsで、例えば、

Sub Macro2()
ActiveCell.FormulaR1C1 = "r"
End Sub

のような簡単なコードが書いて実行してみましたが、こういうものなら普通に実行出来るようです。

理由は分かりませんが、PERSONAL.xls上では
Selection.PasteSpecial Paste:=xlPasteValues
のコードだけが無効化されているように思います。
もちろん、マクロを使わずに編集⇒形式を選択して貼り付け
は普通に実行出来るため、マクロ側だけの問題のようです。

また、ちなみに私はVBA自体はこれまでにかなり経験があり、PERSONAL.xls上にも
既に他にいくつかプログラムを登録してあります。
しかし、基本的に数値計算にしか使わないので、
今回のようなExcelの動作を記述するのは初めてでした。

一体全体、何が原因なのでしょうか？

回答No.3

imogasi

操作のところで何もしないで、記録を終了し、空のマクロの記録を採る。Ｃｔｒｌ＋ｔが関連付けられた空のマクロである。
その際に、マクロの保存先を「マクロの記録」ダイアロウグで「個人用マクロブック」にする。
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2011/1/19 ユーザー名 :
'
' Keyboard Shortcut: Ctrl+t
'
End Sub
となる。
ーー
ここに１行追加して
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2011/1/19 ユーザー名 :
'
' Keyboard Shortcut: Ctrl+t
'
値の貼り付け
End Sub
とする。
すなわちコード作成済みの、質問のマクロを呼び出す「値の貼り付け」の一行を挟む。
そして「値の貼り付け」のコードを「個人用マクロブック」に入れる。
それには、ＶＢＡＰｒｏｊｅｃｔの「Ｐｅｒｓｏｎａｌ．ｘｌｓ」の標準モジュールＭｏｄｕｌｅ１に「値の貼り付け」のコードを貼り付ける。
マクロの記録で「個人用マクロブック」を指定したから、ＶＢＡＰｒｏｊｅｃｔで「Ｐｅｒｓｏｎａｌ．ｘｌｓ」が現れると思うからそこの
Ｍｏｄｕｌｅ１に「値の貼り付け」のコードも入れる。
ーー
これで新しい白紙のブックを開いても、既存のブックを開いてでも、値だけをコピーしたいセル範囲をコピーし、何処かのセルを選択して、ＣＴＲＬ＋ｔで値だけ張り付くと思う。
ーー
保存時に個人用マクロブックについて、注意コメントが出るかもしれないが、「はい」ですすむ。
ーー
参考
http://allabout.co.jp/gm/gc/297809/
http://allabout.co.jp/gm/gc/297809/2/
http://kokodane.com/mini_macro4.htm

回答No.2

Wendy02

それだけの情報では、はっきりとしたことは言えませんが、もともと、そのお書きになっているマクロは、練習用のものだと思います。リンク先のWebサイトのマクロコードは、記録マクロによるもので、本格的なマクロとは言えません。

#1さんのご指摘のように、個々のブックに貼りつけた可能性があります。
その登録したブックを開かないと動かない可能性が強いです。
他にも、原因はありますが、まだ、マクロの練習中で、そのような問題は発生する可能性は少ないです。

例えば、常時使う場合は、個人用マクロブックの「標準モジュール」に以下のようなものを登録する必要があります。以下は。サンプル・マクロです。最初に、Copy(Ctrl + C)をしないと、貼りつけしないようになっています。Auto_Openは、起動時に設定されるマクロです。

'標準モジュール
Sub Auto_Open()
　'Shortcut: Ctrl+t
　Application.OnKey "^t", "tPasteMacro"
End Sub

Sub tPasteMacro()
　　If Application.CutCopyMode = False Then Exit Sub
　　If TypeName(Selection) = "Range" Then
　　　Selection.Cells(1).PasteSpecial Paste:=xlPasteValues, _
　　　Operation:=xlNone, _
　　　SkipBlanks:=False, _
　　　Transpose:=False
　　Else
　　　MsgBox "貼りつけはセルに限ります。"
　　End If
End Sub

なお、キーの設定を外す場合は、
Application.OnKey "^t"
このようにすると外れます。

回答No.1

某HN クロメート(Chromate)（@CoalTar）

回答ではありません。m(_ _)m

ユーザー設定のコマンドボタンでテキストを表示させると[Alt]+[P]で値の貼り付けができます。
添付図参照

＞今日やってみるとなぜかうまくいきません。
うまくいかないとは、
・エラーが出る
・何も起こらない。
・意図する結果にならない
・その他
また、そのマクロは、どこに保存したのでしょうか？
(たぶん、「個人用マクロ ブック」だったら良さそうなんだけど)
実行方法もいくつかありますが、どのようにして実行したのでしょうか？
具体的にお願いします。

お礼

ありがとうございます。

何も起こらない。
が返答です。
保存した場所はPERSONAL.XLSのマクロブックです。
これは、「個人用マクロ ブック」と同じことですよね？

PERSONAL.XLSではなく、現在開いているファイルのマクロブックに保存すると
なぜかうまく実行できます。
PERSONAL.XLSのマクロを動作させるためにはどこかの設定を変える必要があるということなのでしょうか？