VBAのソースコードが変

Question

OSはVistaでExcel2007を使っています。マクロの登録が一切できなくなりました。

VBA側からソースコードを見ると以下のようなコードが並んでいます。

---

Sub Macro1()

'

' Macro1 Macro

 マクロ記録日 : 2010/5/20  ユーザー名 : ｘｘ

'

'

    ActiveCell FormulaR1C1 <= VB_VarUserMemId123VB_VarUserMemId

    Range& VB_VarUserMemIdA2VB_VarUserMemId '+Select

End Sub

---

記録したのはA1セルに「123」と入力するマクロです。

実行すると以下のようなエラーがでます。

---

プロパティの使い方が不正です

---

どなたかわかる方がいらっしゃいましたら教えてください。

コンパイルエラーが出て、

Answer 1

mon123 さん、こんにちは。

ご返信が遅くなり申し訳ありません。

ご質問の現象についてお調べしてみたのですが、

今回の現象の原因と解決策について、情報をみつけることができませんでした。

また、私の手元の環境で複数バージョンのOffice を使用して操作を行ってみたのですが、

mon123 さんと同じ現象を再現することができませんでした。

ちなみに、Office 2010 のベータ版でも操作してみましたが、やはり現象の再現はできませんでした。

Word については問題なくマクロが実行できるということですし、

Excel に関しては、すべてのファイル、複数のバージョンすべてで起こるということですので、

Excel 固有の問題かもしれませんね。

すぐにでも問題の改善が必要な場合、製品サポートの窓口にお問い合わせいただいたほうがよろしいかもしれません。

マイクロソフト サポートオンライン

http://support.microsoft.com/select/default.aspx?target=assistance

お問い合わせいただいた結果などお知らせいただければ幸いです。

返信お待ちしておりますね。

---

田中 美紀– Microsoft Support

Answer 2

mon123 さん、こんにちは。

マクロの記録ができない、ということですが、その後いかがでしょうか。

お忙しいかと思いますが。。。　遭遇されている現象について製品サポートの窓口へお問い合わせいただければと思います。

こちらの情報について、同じような現象に遭遇された方にも参考にしていただけるよう [回答としてマーク] をさせていただきました。

マークした後でも、取り消すことや、さらに質問をすることができますので、追加情報などありましたら、ご遠慮なくマークを解除してご投稿ください。

またお待ちしております。

---

黒田まい – Microsoft Support

Answer 3

田中様

サポートありがとうございます。

・どのような手順でマクロの記録を行ったか

Excel2007のステータスバーのボタンから、開発タブの記録ボタンから

どのように作成しても同じエラーになってしまいます。他のバージョンのExcel（2003,2010β)も同様です。

・新規作成したファイルでも同様の現象が起こるか

はい。そうです。

・マクロの登録が一切できなくなったということですが、どのような現象が起こっているのか。

（例：リボンメニューの[マクロ]がグレーアウトしている、など）

この現象意外に特に問題はないようです。

officeの修復を試みましたが、解決しません。

また、Word2007では特に問題なくマクロが動きます。

なにかわかりましたらよろしくお願いいたします。

Answer 4

mon123 さん、こんにちは。

Answers のご利用ありがとうございます。

Excel 2007 のマクロを利用して

A1セルに「123」と入力するマクロを記録して、実行すると

エラーメッセージ “コンパイルエラー　プロパティの使い方が不正です”と表示されるということですね。

私の環境（Windows7-Excel 2007）で、記載いただいたスクリプトを使用して、マクロを実行してみましたが、

やはりmon123 さんと同じエラーが出ます。

また、Office2007で新規ブックを作成し、A1セルに「123」と入力するマクロを記録したところ、

以下のような記述となり、また、問題なく実行できました。

記載いただいたスクリプトとは、ActiveCellやRange の記述、引数などが違っていますね。

---

Sub Macro1()

'

' Macro1 Macro

'

'

    Range("A1").Select

    ActiveCell.FormulaR1C1 = "123"

    Range("A2").Select

End Sub

---

mon123 さんの環境をもう少し詳しく記載いただけないでしょうか。

以下のような項目をご確認いただくと良いと思います。

・どのような手順でマクロの記録を行ったか

・新規作成したファイルでも同様の現象が起こるか

・マクロの登録が一切できなくなったということですが、どのような現象が起こっているのか。

（例：リボンメニューの[マクロ]がグレーアウトしている、など）

ご返信をお待ちしております。

---

田中 美紀– Microsoft Support