Excel VBA質問箱 IV

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

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


45710 / 76732 ←次へ | 前へ→

【36009】Re:表示されているUserForm名の確認方法について
回答  awu  - 06/3/18(土) 17:57 -

引用なし
パスワード
   こんな感じで如何でしょうか。

Sub Get_Show_Forms_Name()
Dim N As Integer
Dim FormName As String
If UserForms.Count > 0 Then
  For N = 0 To UserForms.Count - 1
    If UserForms(N).Visible Then
      FormName = FormName & UserForms(N).Name & vbLf
    End If
  Next N
End If
If FormName = "" Then
  MsgBox "表示されていません。"

Else
  MsgBox "表示されています。" & String(2, vbLf) & FormName
End If
End Sub
7 hits

【36008】表示されているUserForm名の確認方法について mitu 06/3/18(土) 17:19 質問
【36009】Re:表示されているUserForm名の確認方法に... awu 06/3/18(土) 17:57 回答
【36015】Re:表示されているUserForm名の確認方法に... mitu 06/3/18(土) 21:00 お礼

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