Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7931 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【36008】表示されているUserForm名の確認方法につ...
質問  mitu  - 06/3/18(土) 17:19 -
引用なし
パスワード
   使用するUserFormが１〜５まで５種類あり、切り替えて使用するようにしています。

現在シート上に表示されているか、否か、と
表示されている場合には、UserFormの名前を得たいのですが、
その方法についてご教示お願いします。
【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
【36015】Re:表示されているUserForm名の確認方法...
お礼  mitu  - 06/3/18(土) 21:00 -
引用なし
パスワード
   ▼awu さん：
早速のご教授ありがとうございました。
お陰様でうまく処理することができました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7931 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free