excel2000のVBAでフォームのテキストボックスに実行ログを表示させていのですが、以下のものだと全ての処理が終了したときに表示されてしまいます。
私が望むのは、イミディエイト風に現在の実行状況(一行づつ)を表示したいのですが、アドバイスをお願いします。

Private Sub bA_Click()
nCnt = ActiveWorkbook.Worksheets.Count
For I = 1 To nCnt
With ActiveWorkbook
If (.Worksheets(I).Name = "A") Then
Call Update_All(.Worksheets(I).Name)
End If
End With
Next I
End Sub

Function Update_All(sSheetName As String)
Call DB_Connect(Connect)
Set Myws = DBEngine.CreateWorkspace("ODBC", "User", "Password", dbUseODBC)
Set Myco = Myws.OpenConnection("", dbDriverNoPrompt, False, Connect$)
Myco.QueryTimeout = 3600
With Worksheets(sSheetName)
Do Until (.Cells(I, 1) = "")
For J = 3 To 24
If .Cells(I, J) > 0 Then
PRICE = .Cells(I, J)
Spproc$ = "UPDATE AAA SET A.MPRIC=CONVERT(INT,A.WEGT*" & PRICE & "+0.5) " & "FROM AAA A,BBB B "
tLOG.SelText = Format(Now(), "hh:mm:ss") & Chr(9) & "更新開始・・・" & vbCrLf
Set Myset = Myco.OpenRecordset(Spproc$, dbOpenDynamic, 0, dbOptimistic)
Myset.Close
tLOG.SelText = Format(Now(), "hh:mm:ss") & Chr(9) & "更新終了・・・" & vbCrLf
End If
Next
I = I + 1
Loop
End With
Myco.Close
Myws.Close
End Function

A 回答 (2件)

ListBoxがお勧め



参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=1108985
    • good
    • 0
この回答へのお礼

これもいい手ですね。
ありがとうございます。

お礼日時:2005/09/30 11:30

テキストボックスに文字を設定した後にDoEventsを入れればいけると思います。


が、その他のExcelでの操作もできるようになってしまうので、注意が必要です。
詳しくはDoEventsをヘルプで調べてみてください。
    • good
    • 0
この回答へのお礼

DoEventsを入れたら思うような状態になりました。
ありがとうございました。

お礼日時:2005/09/30 11:26

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

今、見られている記事はコレ!

  • たまランチ:第47話「さつまいも」

    外ランチを愛してやまない元気な女子社員・たまちゃん(26)。オシャレなお店より「安くておいしい」お店が大好き! そんな女子力低めなたまちゃんの、色気より食い気な日々をつづります。

  • エルフ田さん:第71話「貯められる人」

    エルフ(ファンタジーとかに出てくる長寿の種族)の「エルフ田」と、ただの人間である女子社員2人による日常ギャグ。エルフならではのズレたツッコミでバシバシ人間界の話題を斬っていきます。

  • 感情的にならない人の気質

    あなたの身の回りで感情表現が薄い人はいないだろうか? 感情表現が薄いといい意味でクールに感じ、大人な印象を持つ人も多いだろう。だが、一方で何を考えているか分からず、とっつきづらい印象を抱くこともあるの...

  • デニーズで6月7日より「ビーフフェア」が開催

    デニーズで2016年6月7日から7月11日(予定)まで、「ビーフフェア」が開催される。気温も上昇し、スタミナを身体に取り入れたいこの時期におすすめなビーフメニュー4品が提供される。 登場する4品は、しっとりとし...

  • 「死刑になりたくてやった」――望み通りの死刑が正しいか否か

    後を絶たない凶悪犯罪の中には、「死刑にしてもらいたくて」という動機で罪のない人々を巻き込む事件もある。その事件のための裁判で死刑判決が確定すれば、犯人の願いはかなったことになってしまう。いくら法律と裁...

おしトピ編集部からのゆる~い質問を出題中

お題をもっとみる

このQ&Aを見た人が検索しているワード


このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ