Excel VBA質問箱 IV

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

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


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

【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が1〜5まで5種類あり、切り替えて使用するようにしています。

現在シート上に表示されているか、否か、と
表示されている場合には、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 さん:
早速のご教授ありがとうございました。
お陰様でうまく処理することができました。

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