Excel VBA質問箱 IV

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

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


7556 / 13644 ツリー ←次へ | 前へ→

【38164】ラベルのCaption表示がうまくいかない。 初心者です。 06/5/28(日) 4:22 質問[未読]
【38165】Re:ラベルのCaption表示がうまくいかない。 Hiroshi 06/5/28(日) 7:11 回答[未読]
【38169】Re:ラベルのCaption表示がうまくいかない... neptune 06/5/28(日) 9:50 回答[未読]
【38286】ありがとうございます! 初心者です。 06/5/30(火) 23:08 お礼[未読]

【38164】ラベルのCaption表示がうまくいかない。
質問  初心者です。  - 06/5/28(日) 4:22 -

引用なし
パスワード
   下記の通りコード書いたのですが、ラベルの表示(Caption)がうまくいきません。ご指導のほどよろしくお願いいたします。
Sub ken_Click()
Dim adrs As Variant
Dim addr As Variant
Dim theadd As Variant
Dim i As Integer
i = 0
Worksheets("結果").Select
Range("A3:A60000").Select
Selection.ClearContents
theadd = adr.Value
'下記の"検索中…"が実行時に表示されない。
kensu.Caption = "検索中…"
With Worksheets(1).Range("a1:c35000")
Set adrs = .Find(theadd)
If Not adrs Is Nothing Then
addr = adrs.address
Do
i = i + 1
Worksheets(1).Select
adrs.Select
Selection.Copy
Worksheets("結果").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Worksheets(1).Select
Set adrs = .FindNext(adrs)
Loop While adrs.Value = adrs And adrs.address <> addr
Worksheets("結果").Cells(2, 1).Value = i - 1
Worksheets(2).Select
Range("A3:A65000").Select
  Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
    :=xlPinYin
Worksheets(2).Select
ListBox1.RowSource = Worksheets(2).Range(Worksheets(2).Cells(3, 1), Worksheets(2).Cells(d, 1)).address
kensu.Caption = "該当件数" & (Worksheets(2).Cells(2, 1).Value) & "件"
Else
MsgBox "該当なし"
End If
End With
Application.CutCopyMode = False
Worksheets(1).Select
Range("A1").Select

End Sub
よろしくお願い致します。

【38165】Re:ラベルのCaption表示がうまくいかない...
回答  Hiroshi  - 06/5/28(日) 7:11 -

引用なし
パスワード
   ▼初心者です。 さん:
>下記の通りコード書いたのですが、ラベルの表示(Caption)がうまくいきません。ご指導のほどよろしくお願いいたします。
 kensu.Caption = "検索中…"ではトラブルが発生するでしょう。
 「検索中」と言う文字を出したいという意味だと思いますが
  下記のようなコードに置き換えられては如何でしょう。

 Application.DisplayStatusBar = True 'kensu.Captionと入れ替え(下2行と)
 Application.StatusBar = "検索中・・・ "


 Application.DisplayStatusBar = false 'End Subの一行上に入れる
 End Sub

【38169】Re:ラベルのCaption表示がうまくいかない...
回答  neptune  - 06/5/28(日) 9:50 -

引用なし
パスワード
   >kensu.Caption = "検索中…"
doevents
と書き加えてみてください。

恐らく描画が仕切れてないんです。
O/Sに一旦制御を返して、描画してもらいましょう。
そのおまじないと思ってください。

【38286】ありがとうございます!
お礼  初心者です。  - 06/5/30(火) 23:08 -

引用なし
パスワード
   お礼が遅れました!申し訳ございません!
Hiroshiさん、neptuneさん、アドバイスありがとうございます!
しかし、Doeventsの意味がまだ理解できていないのですが、すごい役に立ちました!

7556 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free