エクセル95のマクロで自動的に全画面表示したい

こんばんわ。私はこれ以上貴方様のお役に立つような知識は持ち合わせておりません。誠に申し訳ございませんがお許し下さい。

一難去ってまた一難・・・ 私の書いた方法は、最小化している間、プログラムが実行されているので、 そういう事もあるとは思いましたが、600Kbとは・・・ 私の使用しているファイルサイズは大きくて100Kb位 CPUは・・・忘れてしまいましたが、 その位なら、普通に動作します。 CPUの性能の問題もあるとは思いますが、このプログラムは、普通VBなどでコンパイルし、 Exeとして使用する方法なので 打開策としては、 （１）600Kbのファイルをいくつかのファイルに分割する。 （２）VB等でExeを作成し、EXCELを監視する。 （３）新しいパソコン（CPUがアップしたもの）を購入する。 （４）Excelバージョンをあげ、考える。 （５）この方法をあきらめ、新たな方法を探す。 ざっと考え付くものを上げてみました。 きっと（５）の方法を選択するとは思いますが・・・ 既に述べたように、限界のなか、なかば強引に出した回答ですので この他の回答となると、見つかるかどうか・・・ ＃９でも書いたように１度締めて、再度質問してみたほうが、 私よりも専門に（クラスやら、APIやら）回答してくださる方もおられますので 早いかもしれません。 もちろん引き続き、考えてはみますが（今度はAPIに挑戦！） 違う人の意見も取り入れた方がよいかもしれません。 なにぶんEXCEL95という事で、私の方で、テストする事が困難です。 回答しておいて、無責任ですが、何卒ご了承願います。

こんばんわ。動いてよかったですね。私の知識が足りないばかりにお役に立てず、申し訳ございませんでした。 taisuke555さんがご説明しておられる While 条件式 ・・・ Wend という式の意味を、私の友達(３０年間ＳＥをやっている)にこの間私が質問したのですが、現在は使われていないので、覚える必要はないと言われました。昔のベーシックでよく使われていた書き方だそうです。 それと、Ｄｏ・・・Ｌｏｏｐの説明で不足している部分があるので、補足させていただきます。Ｄｏ・・・Ｌｏｏｐの構文は Do until 条件式 ・・・ Loop Do While 条件式 ・・・ Loop Do ・・・ Loop Until 条件式 Do ・・・ Loop While 条件式 の４種類があります。untilの場合は、条件式になるまで、Whileの場合は条件式の間・・・の処理を繰り返し実行するという動作をします。 ここで大切なのは、Doの後に条件式を書くか、Loopの後に条件式を書くのかによって処理の繰り返し方が違うという点です。 Do until 条件式 ・・・ Loop Do While 条件式 ・・・ Loop この構文は、・・・条件式に当てはまってしまった場合は、・・・の処理は実行されません。 Do ・・・ Loop Until 条件式 Do ・・・ Loop While 条件式 この構文は、条件式に当てはまっていても１回は、・・・の処理が実行されてしまいます。 私の友達が、この違いを知らない人が非常に多いと言っていました。 このことは非常に重要なことだと思ったので、お知らせいたします。

お気に召して頂いたようで何よりです。 ＞Do While、DoEvents、Loopのそれぞれの意味 あまり説明は得意ではありませんが・・・ Do While　条件式 ・・・ Loop で１セットです。 条件式が成立している間Loopの中を回ります。 For ... Nextと似たようなものです。 今は While 条件式 ・・・ Wend と書くみたいですけど・・・昔の人間なので。 他に Do '無限ループ ・・・ Loop や Do Until 条件式 '条件式が成立するまで ・・・ Loop などの書き方があり、 Do...Loopの間に Exit DoというコマンドがあるとLoopを強制的に抜けます。 DoEventsについては 「発生したイベントがオペレーティング システムによって処理されるように、 プログラムで占有していた制御をオペレーティング システムに渡すフロー制御関数です。」 とヘルプにはのっていますが、 一時的にWindowsに制御を返す命令と言うことでしょうか・・・ 長い処理(Do...Loopや、For i=1 to 10000000...Next）の時に DoEventsを記述しないと、Windowsが反応なしと見なしてフリーズしてしまいます。（たしか） こんな感じでわかりますでしょうか？

EXCEL95に限らず、EXCEL自体のイベントという物が無いような気がします。 下記のサンプルは,VBなどで、使うのですが、 EXCELで使っていいのかわかりません。 実際に使ってみたところ、ブックの右側に、終了ボタン等が現れませんが、 普通の処理（文字を書くなど）はできました。 Sub auto_open() Application.DisplayFullScreen = True Do While (flg = 0) If (Application.WindowState = xlMinimized) Then Do While Application.WindowState = xlMinimized DoEvents Loop Application.DisplayFullScreen = True End If DoEvents Loop End Sub 私もこれ位が限界です。あとは、VB等でEXCELを制御する方法がありますが・・・ あまり役に立たずすみません。

こんにちは。私はエクセル９５を使ったことがないので、これ以上お知らせすることはできません。そこでマイクロソフトのサポートセンターを利用されてみてはいかがでしょうか。確実な答えを知ることができると思います。 エクセル９５だと９０日間の無料サポートがついていたと思います。もし使い切ってしまった時は、有料サポートを受けることができます。１８０００円費用がかかりますが、価値はあると思います。電話番号をお知らせしておきます。 ０３(５３５４)４５００　無料サポート ０１２０-１７-０１９６　有料サポート

以下の操作で確認してください。 １、excel上で[Alt]+[F11]を押す。VisialBasicEditerに変更されます。 ２、左上にプロジェクトと書いてある中に、 　　　VBAProject(現在のブック名） 　　　　　└Microsoft Excel Objects 　　　　　　　　├Sheet1 　　　　　　　　　・・・ 　　　　　　　　└ThisWorkbook まず、このようになっているか？もしあれば、ThisWorkBookをダブルクリック 　　　なければ、[Ctrl]+[R]で出てくるか確認？ 　　　それでもでてこなければ、この操作はできません。 ３．プログラムを書くエリアの上にある(General)と書いてあるコンボボックスを選択して 　　　[WorkBook]に変更 　　　隣のコンボボックスの[SelectionChange]を[WiowReseize]に変更すると Private Sub Workbook_WindowResize(ByVal Wn As Window) end sub と表示されますので、以下のようにします。 Private Sub Workbook_WindowResize(ByVal Wn As Window) Application.DisplayFullScreen = True End Sub 思ったようには、いっていないと思いますが、とりあえず。 この操作が出来ますか？

こんばんわ。貴方様はコードをどのモジュールシートに書かれましたか？もし、標準モジュールシートもしくは各シートのモジュールシートに書かれたのだとしたならば動作しないと思います。This Workbookのモジュールシートに書いて実行してみて下さい。

＃３さんの回答が入りましたので、２つ確認です。 （１）Excelのアイコンをクリックした時、Auto_Activateの処理にいっていますか？ 　　　たぶんいっていないと思うのですが、Auto_Activateの説明が無いので（Excel97,Excel2000）どうすればいいのか、補足できずにいます。 （２）Excel95には 　　　http://oshiete1.goo.ne.jp/kotaeru.php3?q=395786 　　　の質問ででている 　　　「Private Sub Worksheet_Change(ByVal Target As Range) 」 　　　は使用できますか？ 　　　確認方法は、上記URLにあります。 　　　（質問者にある場合とない場合を記述したので、あったか、なかったか教えて欲しかったのですが・・・） 　　　あれば、楽なんですが・・・ 以上２点、補足してください。（他の人の回答で解決すれば、無視してください）

初めまして。自信がないのですが、私の参考書に書いてあったマクロを提供します。お試しになってみて下さい。 Sub Auto_Activate With activewindow .windowstate = slnormal .top = 0 .left = 0 .height = application.usableheight .width = application.usablewidth end with end sub