Excel VBA質問箱 IV

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

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


43668 / 76736 ←次へ | 前へ→

【38115】Re:現在表示されているUserFormの数を知...
発言  kobasan  - 06/5/26(金) 22:45 -

引用なし
パスワード
   PT さん 今晩は。

>現在表示中のUserFormeの数を知るコードは

現在表示中のUserFormeの数は、下記コードのcntでわかります。

>UserForms.count だと思っていたのですが、


Sub test()
Dim frm As Object
Dim cnt As Long
  UserForm1.Show 0
  UserForm2.Show 0
  UserForm2.Hide
  
  For Each frm In UserForms
    If frm.Visible = True Then cnt = cnt + 1
  Next
  MsgBox UserForms.Count 'Hideされているものもカウント
  MsgBox cnt   'Hideされているものはカウントしない
End Sub

0 hits

【38113】現在表示されているUserFormの数を知るには? PT 06/5/26(金) 21:39 質問
【38114】Re:現在表示されているUserFormの数を知る... PM 06/5/26(金) 22:36 発言
【38116】Re:現在表示されているUserFormの数を知る... PT 06/5/26(金) 22:48 お礼
【38115】Re:現在表示されているUserFormの数を知... kobasan 06/5/26(金) 22:45 発言
【38117】Re:現在表示されているUserFormの数を知... PT 06/5/26(金) 23:07 お礼
【38124】Re:現在表示されているUserFormの数を知... kobasan 06/5/27(土) 0:21 発言
【38126】Re:現在表示されているUserFormの数を知... PT 06/5/27(土) 0:28 お礼

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