Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3046 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【25711】workbook_open でアドインを実行できない yasu 05/6/11(土) 16:16 質問[未読]
【25977】Re:workbook_open でアドインを実行できない りん 05/6/20(月) 19:04 発言[未読]
【25996】Re:workbook_open でアドインを実行できない yasu 05/6/21(火) 8:57 お礼[未読]
【64698】Re:workbook_open でアドインを実行できない jiisann 10/3/8(月) 20:20 回答[未読]
【25711】workbook_open でアドインを実行できない
質問  yasu  - 05/6/11(土) 16:16 -
引用なし
パスワード
   どなたか教えてください．

以下のように，ワークブック起動時にユーザフォームを表示させ，ソルバーを実行させたいのですが，”内部エラーが発生しました．またはメモリ不足です”のコメントが表示され，実行できません．但し，ワークブックからユーザフォームを自動起動させずに，手動でユーザフォームを起動させた場合はソルバー実行可能です．
OS:Xp, Excel2003の環境です．OS:XP，Excel2000の場合は本現象は起きません．


Private Sub Workbook_Open()
UserForm1.show
End Sub


Private Sub CommandButton1_click()
　SolverOK SetCell:="a$4$", MaxMinVal:=3, ValueOf:="110", ByChange:="$a$1:$a$3"
　SolverSolve
End Sub
【25977】Re:workbook_open でアドインを実行でき...
発言  りん E-MAIL  - 05/6/20(月) 19:04 -
引用なし
パスワード
   yasu さん、こんばんわ。

>以下のように，ワークブック起動時にユーザフォームを表示させ，ソルバーを実行させたいのですが，”内部エラーが発生しました．またはメモリ不足です”のコメントが表示され，実行できません．但し，ワークブックからユーザフォームを自動起動させずに，手動でユーザフォームを起動させた場合はソルバー実行可能です．
>OS:Xp, Excel2003の環境です．OS:XP，Excel2000の場合は本現象は起きません．
>Private Sub Workbook_Open()
> UserForm1.show
>End Sub
>Private Sub CommandButton1_click()
>　SolverOK SetCell:="a$4$", MaxMinVal:=3, ValueOf:="110", ByChange:="$a$1:$a$3"
>　SolverSolve
>End Sub

同じコードを書いて、同じ環境で実行してみましたが何もエラーにならずにコマンドボタンもクリックできました（XPは管理者権限です）。

実行できないということは、起動はしているということですよね。
エラーメッセージのエラー番号はわかりますか？
VBEの参照設定で参照不可になっていたりしませんか？
【25996】Re:workbook_open でアドインを実行でき...
お礼  yasu  - 05/6/21(火) 8:57 -
引用なし
パスワード
   ▼りん さん：こんにちは．
アドバイスありがとうございます．

XPはアドミニでログオンしてます．また，ソルバの参照設定も間違いないと思うのですが．．ユーザフォームが自動表示され，コマンドボタンを押すと
”内部エラーが発生しました．またはメモリ不足です”
が表示されるのみで，エラーコード等の表示はありません．

ソルバにバージョンの違いでもあるのかなと思っています．(実はソルバモジュールだけ，エクセル2Kのものに入れ替えたら問題なく実行できるところまでは確認しているのですが，対処療法？のためすっきりしないんです．)
困ったものです．
【64698】Re:workbook_open でアドインを実行でき...
回答  jiisann  - 10/3/8(月) 20:20 -
引用なし
パスワード
   はじめに、
Application.Run "Solver.xla!Auto_Open"
を入れる必要が、あるそうです。
わたしも、悩みましたので、
お知らせします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3046 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free