エクセル97のユーザーフォームコントロールについて

質問

いつもお世話になっております。
表題の件で２つほど質問があります。

　１．実行した時、ブック自体を最小化して、初期値入力用のユーザーフォームだけを画面に表示しようとした所、どうしても、一番前に表示されません。
　何かウィンドウ等が開いていると、ステータスバーのエクセルの表示が点滅するだけで、なんらかのアクションを起こさないと、ユーザーフォームが見えるようになりません。

　２．97ではプログレスバーが使用できないので、ユーザーフォーム上に文字で、
（例えば「処理中です・・・・Ｘ/5600」のように表示し、Ｘをカウントアップする）
経過を知らせたいのですが、いろいろ試行錯誤しましたが、出来ませんでした。

　不特定多数の部署で、不特定の人が使用する可能性があるので、ブックをダブルクリックすると全自動で動作するように運用します。そのような事情なので、上記２つの機能を是非とも組み込みたいのですが、お知恵を拝借出来ませんでしょうか？
　よろしくお願いします。

回答No.2

kenken0001 · ベストアンサー

プログレスバーは
別にUserFormを作って
UserForm1からボタンで
UserForm2.Show
するなどしてください。

UserFormに、ラベル「Label1」を作って下さい。

Private Sub UserForm_Activate()

With Label1
.SpecialEffect = 2
.BackColor = vbBlue
www = .Width
.Width = 0
End With

For i = 1 To 1000
Me.Caption = i
Label1.Width = i / 1000 * www
Me.Repaint
Next

End Sub

説明が不足の場合は質問ください。
Excel97で確認しました。
ちなみに両方とも本の丸写しなので出典を

（株）秀和システム
Excel2000 VBA 実践プログラミング

いろいろ勉強になります。
良かったら一度目を通してみてください。

お礼

ありがとうございます！！
実際にプログレスバーを表現できるようにしていただけたとは、オドロキました。
　どうも、ＢＶＡは機能が充実し過ぎていて、まだ全体を把握出来ていないようです。まだまだ精進が足りないということですか・・・

Private Sub UserForm_Activate()の使い方を教わったので、理解できているか、応用で、始めに自分で言っていた、Ｘ/Ｙ表示を書いて見たところ、上手くいきました。

　実際の処理は、このFor～Nextの間で実行すればいいわけですね。
もしもそれで上手く行かなかった場合、改めて質問させていただくとして、今回はこれで一旦、締め切ります。
　教えていただいた書籍も、是非入手して勉強したいと思います。

　何からなにまで、本当にありがとうございました。

補足

同じ方に両方のポイントは割り振れないんですね。（苦笑）
残念です。
　また、よろしくお願いします。

回答No.1

kenken0001

新規ブックでテストしてください。
Thisworkbookと
UserFormに以下のものを
貼り付けてください。

Thisworkbookに

Private Sub Workbook_Open()
UserForm1.Show
End Sub

UserFormに

Private Sub UserForm_Initialize()
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
End Sub

プログレスバーは作成中です。

お礼

早速の回答、ありがとうございます。

私の試みは、ほとんど正解だったようですが、

＞AppActivate "Microsoft Excel"

　というコマンド（？）を知らなかったので、上手く行かなかったようです。
後は、まんま私の書いた記述通りでした。
　大変勉強になりました、ありがとうございます。

＞プログレスバーは作成中です。

　次も考えていただいてるんですか。本当に申し訳ありません。
引き続き、よろしくお願いします。