[[20041028194128]]　『マクロ指定のファイル名変更』（y）　ページの最後に飛ぶ

『マクロ指定のファイル名変更』（y）

　お世話になります。
　自動マクロを設定したファイル名を変更したら、マクロがきかなくなりました。
　書き方は分からないのですが、シート名を変更した場合どうしたらいいですか？？

 どのようなコードか提示されないと、誰にもわからないと思いますよ(^_^A;
 （川野鮎太郎）

　すみません。

 Sub オートシェイプ6_Click()
 '
 ' オートシェイプ6_Click Macro
 ' マクロ記録日 : 2004/10/26  ユーザー名 : '

 '
    Range("G7:H7").Select
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotCache.Refresh
　　　↑ここがおかしいのでしょうか・・・・。
　　　　"本社"というファイル名に変更したいのです。
 End Sub

 通常はブック名を変えても直接ブック名を指定するコードが入ってなければ動くはずですけど、
 今回のは　("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2")　←ここに名称がありますので、
 もしかしたら　↑の名称が違うのか・・・　確認するにはﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙを選択して、
 ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙのツールバーのﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙを押して、オプションです。

 または、オートシェイプ6が無いか、名称が変わったか・・・。

 的外れなことでしたらm(._.)m ペコッ
 （川野鮎太郎）

　ありがとうございます。
　ピボットテーブルを使っていますが、オプションで何をすれば
　別のシート名になっても大丈夫でしょうか・・・？？

 う～ん(/-_-＼)

 オートシェイプ6を押したら、ピボットテーブルが更新されるマクロですよね。
 マクロが効かなくなくなったってことは、具体的にどうなるのでしょう。

 なので、何も更新されないのなら("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2")が無いのかと思いましたけど。
 それを確認するための方法が上で書いた、ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙのツールバーのﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙを押して、オプションです。
 その名前が違う名前なら変えれば良いのじゃないかと・・・。
 （川野鮎太郎）

 更新されない時、"(前のファイルの名前)のシート1が見つかりません"というメッセージがでます。。。。

　指定ファイルの名前はどうやって変えるのでしょうか。

 マクロを登録しているオートシェイプ6を右クリック、マクロの登録から
 マクロの保存先を作業中のブックに変え、該当するマクロ名を選択です。
 （川野鮎太郎）

 たびたびたびたびすみません・・・。
　やってみましたが、実行時エラー1004とでて、同じメッセージがでます。
　・・・何かだめなことをしているのでしょうか。。。

 どの行でエラーになりましたか？
 ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2 は存在してますか？　
  (INA)

  ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotCache.Refresh
　　↑この行が黄色になりました！
　　　
　ピボットテーブルは存在しています。

 で、そのピボットテーブルの名前は　ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2　で合っていますか？

 確認方法は最初に書いたとおりです。
 （川野鮎太郎）

  あっていました・・・。

 ところで・・・、
 そのマクロのボタンと、ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2　のあるシートは同じですか。
 （川野鮎太郎）

　同じです・・・。
　ファイルの名前を変えるまでは順調だったのですが・・・

 う～ん(/-_-＼)　もう判る範囲の限界に近いです(^_^A;

 もうひとつ確認です。

 そのﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2は、同一ブックの集計ですか。
 別ブックの集計だとか。

 それと、手動で更新したら普通に更新されますか。
 （川野鮎太郎）

 手動で更新したら、ピボットテーブルの集計元ファイル～が見つかりません。
　とでました。
　ピボットテーブルは同じファイルの集計です。
　シートだけ違います。
　つくり直した方がよさげですか？？？

 手動でダメならマクロの問題ではないですね。
 そのﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2の参照先シート情報はどこにあるんだろ・・・^(・・ )( ・・)^ドコドコ？
 そのピボットテーブルに詳しい方Help！！

 ※ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙのツールバーのﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙを押して、ウイザード、戻るを押したらシート名を含んだ数式がでるようです。
 ここで適切な名称を入れてください。
 （川野鮎太郎）

　ありがとうございます。
　今家で見ています。
　明日会社に行ったら早速やってみます。
　本当に本当に本当にありがとうございました。
　長いお付き合いに感謝します。

コメント返信：

[ 一覧(最新更新順) ]

[[20041028194128]] 『マクロ指定のファイル名変更』（y） ページの最後に飛ぶ

[[20041028194128]]　『マクロ指定のファイル名変更』（y）　ページの最後に飛ぶ