Excel VBA質問箱 IV

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

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


30666 / 76738 ←次へ | 前へ→

【51336】Re:ユーザーフォームのコントロールソースの一覧
お礼  BLUELION  - 07/9/12(水) 15:49 -

引用なし
パスワード
         Jaka さま

無事以下のようなコードで解決できました
本当にありがとうございます

ただ私ではループしたなかで必要コンポーネントのみ処理する形しかできませんでしたが
必要なものを直接指定で処理する方法をおしえていただけませんか?

よろしくお願いいたします


Sub kame()
  Dim VBC As Object
  Range("A1").Value = "コンポーネント名"
  Range("B1").Value = "コントロール名"
  Range("C1").Value = "コントロール種類 "
  Range("d1").Value = "ControlSource "
  Range("e1").Value = "Caption "

  With ThisWorkbook.VBProject
    For Each VBC In .VBComponents
      If VBC.Name = "必要なコンポーネント名で今回はFORM名" Then
        g = g + 2
        Cells(g, 1).Value = VBC.Name
        Set AdUF = VBA.UserForms.Add(VBC.Name)
        For Each fcn In AdUF.Controls
            g = g + 1
            Cells(g, 1).Value = VBC.Name
            Cells(g, 2).Value = fcn.Name
            Cells(g, 3).Value = TypeName(fcn)
            
            On Error Resume Next
            Cells(g, 4).Value = fcn.ControlSource
            Cells(g, 5).Value = fcn.Caption
            On Error GoTo 0
        Next
      End If
    Next
  End With
  Set AddUF = Nothing
End Sub
0 hits

【51331】ユーザーフォームのコントロールソースの一覧 BLUELION 07/9/12(水) 13:50 質問
【51334】Re:ユーザーフォームのコントロールソース... Jaka 07/9/12(水) 14:25 発言
【51336】Re:ユーザーフォームのコントロールソース... BLUELION 07/9/12(水) 15:49 お礼
【51339】Re:ユーザーフォームのコントロールソース... Jaka 07/9/12(水) 16:41 発言
【51340】Re:ユーザーフォームのコントロールソース... BLUELION 07/9/12(水) 16:43 お礼
【51358】Re:ユーザーフォームのコントロールソース... Jaka 07/9/13(木) 9:17 発言
【51360】Re:ユーザーフォームのコントロールソース... BLUELION 07/9/13(木) 9:29 お礼

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