• ベストアンサー

共有ブックのピポッドテーブル作成

VBAでピポッドテーブルを作成するブックを作成したのですが、ブック を共有化してVBAを実行するとエラーメッセージが出て終了してしまいます。 EXCELの仕様と諦め無ければならないのでしょうか? 何か解決法ありましたらご教授よろしくおねがいします。

質問者が選んだベストアンサー

  • ベストアンサー
  • Sinogi
  • ベストアンサー率27% (72/260)
回答No.2

共有Bookではマクロの編集ができないので、マクロ記録は別のファイルで行ってください。 検索したらズバリがあります・・・

参考URL:
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=61646;id=excel
emude
質問者

お礼

ありがとうございます。とりあえずなんとか出来ました。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • Sinogi
  • ベストアンサー率27% (72/260)
回答No.1

共有ブックでピボット編集できないのは仕様だから仕方ありません。 が、あきらめることはないと思います。 VBA記述しているなら共有を解除してピボット編集し、再共有化すればいいですよね。 当方2002では共有解除の記録はできませんでしたが方法はあるようです。 ブックの共有を解除する際の確認画面をマクロで処理する方法について http://oshiete1.goo.ne.jp/qa4833605.html

emude
質問者

お礼

早速のご回答ありがとうございます。 上記方法試してみたらうまくいきましたが、要件としては VBA実行後にまた共有しておく必要があります。 マクロの記録をやってみたのですが、共有しても何も記録 されていません・・・ お手数ですがご教授よろしくお願いします。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • エクセル・ブック共有のファイル終了時に

    エクセルのVBA、万年初心者のものです。m(__)m エクセルのファイルをネットワーク上で「ブックの共有」で使いたいと思っているのですが、「ブックの共有」をオンにしていると、終了時に毎回「この場所に○○.xlsという名前のファイルが既にあります。置き換えますか?」と出てきます。 ファイル自体はマクロを有効にしていて、毎回、置き換える必要がないので「いいえ」しか選ばないので、なんとか、このメッセージをださないようにしたいのですが。 ThisWorkbook のPrivate Sub Workbook_BeforeClose の中に、Application.DisplayAlerts = False を入れてみたりしましたが、うまくいきません。 なにかいいメソッドがないでしょうか?

  • EXCELのVBAのブックの共有時のエラー

    お世話になっております。 現在エクセルのVBAを組んでおります。 その中で、フォーム等を作成して制御を行っておりますが、作成時は問題なく動作するのですが、作成後、エクセルのメニューにあります「ツール」→「ブックの共有」を行い共有をかけて保存し、再起動した後にフォームの表示を行うと「問題が発生しましたため、エクセルを終了します。」と表示され正常にフォームが表示されません。 原因や確認すべき所をご存知の方は、どのようにすればよいか教えていただけないでしょうか? よろしくお願いします。

  • 共有設定 Excelブックの共有

    Excel2002 同じ事務所内に10台のPCがあります。 1台のPCが共有端末の親になっていて、すべてのPCで共有ファイルが見れるようにしてあります。 しかし、Excelファイル(ブックの共有設定有り)を開けないPCが2台あります。 開いても強制終了のメッセージが表示されます。 一旦、ブックの共有を外して戻しましたが、変化ありません。 同じファイルなのに見れないPCが出てしまうのはどうしてでしょうか? 解消方法はありますか? おわかりの方教えてくださーい!

  • excel2007 新規ブック作成時のvba処理

    excel2007にてVBA処理を行っています。 vbaにて 新規ワークブックを作成 最初に開いているワークブックのシートを、新規ワークブックへコピー この作業を行っているのですが、実行時に --- 移動先またはコピー先のブックの行列数が元のブックの行列数よりも少ないため、シートを移動先またはコピー先のブックに挿入できません。データを別のブックに移動またはコピーするには、データを選択して、[コピー] コマンドと [貼り付け] コマンドを使用して移動先またはコピー先のブックのシートに挿入してください。 --- このエラーが表示されます。 保存拡張子も「.xls」から「.xlsx」へ変更するも、互換モードの表示が外れません。 さらに原因を探ると、現在使っているPCのエクセルにて エクセルオプション→保存→ファイルの保存形式 この設定が「excel ブック」ではなく、「excel 97-2003ブック」のため、 新規ワークブック作成時に互換モードでファイルが作成されてしまうことで、2003と2007の行列数の違いからエラーになるようです。 確認のため、ファイル保存形式を2007仕様にすると、問題なく実行されました。 新旧のPCが混在するため、できたらファイル保存形式を97-2003モードで保持したまま、vbaでの新規ワークブックの作成は互換モードを外した状態で行いたいのですが、背景の色など、2007での特色があるため、2003形式には戻したくないのが心情です。 解決する方法はありますでしょうか?よろしくお願いします。

  • Excelブックの共有をしているのに読み取り専用になる。

    こんにちは。 Excelファイルを複数で共有して作業を行いたいのでブックの共有設定をしました。 ところがある一人(A)が開いていると他の2人(B,C)は読み取り専用のメッセージが出ると言います。 しかし、B,Cだけが使用している時はそのようなメッセージは出ません。 この場合は、Aの何かの設定に問題があるのでしょうか。 しかしブックの共有はファイル上にての設定なのでユーザ自体に何かの設定が必要とは思いません。 どなたか解決策がございましたら教えてください。 よろしくお願いします。

  • 共有されたブックが他で開かれているか調べるには

    エクセル(2000)の任意の共有ブックが、ネットワークで繋がった他のパソコンで開いているかマクロで調べてメッセージを出す方法はありますでしょうか。

  • ピポッドテーブルの抽出方法について

     A    B     C        D  日付  氏名   商品     数量 1月1日  ○   みかん     10  ・   △   みかん     12  ・   □   みかん     1 1月4日  ○   みかん     10  ・   ▼   みかん     5 上記の様に日計売上表を作成し入力しております。 お尋ねしたいのは 現在ピポッドを活用し お客様別や商品別を抽出しているのですが、「購入個数が多い人順」に並べる事が出来ずに困っております。 上記の表ですと 12  △ 10  ○ ・ 5  ▼ 1  □ と なります。求めたいのは 20  ○ 12  △ ・ ・ 5  ▼ 1  □ と言う 「購入合計順」に抽出結果を出したいのです。 ピポッドテーブルで出来ることならばそのやり方、ピポッドテーブルでは出来ないのであればその方法、どうかご教授下さい。 当方はエクセルの素人で、関数も上手く使いこなせない程度です。 もちろんVBAなんて言うのも作ってもらったコードをコピーして貼り付ける事ぐらいしか出ませんので その旨お願い致します。

  • 7台のパソコンでブックの共有機能を使ってます。

    excelは2003,2007,2010を使ってます。 100人以下の帰る時間をボタン1つで入力できるようにVBAで[ActiveCell = Time]としてます。 1台は使えるのですが他の6台のパソコンではVBAの[ActiveCell = Time]が使えません。でも、ブックの共有は絶対はずすことはできません。 どうすれば共有の状態でありながら、VBAの[ActiveCell = Time]が使えるようになるでしょうか? ご存知の方、どうぞ宜しくお願い致します。

  • ピポッドテーブルの抽出方法について NO,2

     A    B     C        D  日付  氏名   商品     数量 1月1日  ○   みかん     10  ・   △   みかん     12  ・   □   みかん     1 1月4日  ○   みかん     10  ・   ▼   みかん     5 上記の様に日計売上表を作成し入力しております。 お尋ねしたいのは 現在ピポッドを活用し お客様別や商品別を抽出しているのですが、「購入個数が多い人順」に並べる事が出来ずに困っております。 上記の表ですと 12  △ 10  ○ ・ 5  ▼ 1  □ と なります。求めたいのは 20  ○ 12  △ ・ ・ 5  ▼ 1  □ と言う 「購入合計順」に抽出結果を出したいのです。 ピポッドテーブルで出来ることならばそのやり方、ピポッドテーブルでは出来ないのであればその方法、どうかご教授下さい。 当方はエクセルの素人で、関数も上手く使いこなせない程度です。 もちろんVBAなんて言うのも作ってもらったコードをコピーして貼り付ける事ぐらいしか出ませんので その旨お願い致します。

  • ブックを作成するマクロ

    エクセルで、以下のマクロを実行すると新規のブックを作成します。 Workbooks.Add この時のブック名はBook1になりますが、任意のブック名を指定するにはどうすればいいでしょうか?

専門家に質問してみよう