ListViewコントロールはこんな感じ。 通常、ツールボックスには出てません。こんな感じで出して使う。テスト作成したプログラム載せときます。 フォームはモードレスで動かす予定。 Private Sub UserForm_Initialize() With ListView1 .View = lvwReport 'コ…

'formにListBoxを用意して、Moduleに以下を追加 Private Sub LogAdd(s As String) If s = "" Then Exit Sub With UserForm1.LstBox_Log .AddItem s .ListIndex = .ListCount - 1 '最後尾を選択 .Selected(.ListCount - 1) = False '選択解除 End With DoEven…

Dim gazou As String gazou = ThisWorkbook.Path & "\gif\gazou.gif" Image1.Picture = LoadPicture(gazou)

Public Sub UserFormShow() Dim frm As UserForm1 Set frm = New UserForm1 frm.Show vbModeless 'フォームのモードレス表示 End Sub ※たくさん表示できます。収拾がつかなくならないよう注意。追記 モーダルとモードレスは混在不可

'指定した名前のユーザーフォームを数える Function countUserForm(name As String) As Integer Dim cnt As Integer Dim frm As Object cnt = 0 For Each frm In UserForms If UCase(frm.Caption) = UCase(name) Then cnt = cnt + 1 End If Next countUserFo…