|
>フォームモジュール
>
>Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
> Dim 引数 As String
> If CloseMode = vbFormCode Then '閉じるボタンの時は状態未保存。
> Exit Sub
> End If
> For i = 1 To 3
> If Me.Controls("CheckBox" & i).Value = True Then
> 引数 = 引数 & "CheckBox" & i & " "
> End If
> Next
> MsgBox 引数
> If Len(引数) = 0 Then Exit Sub
↑
なんで、これ入れたのか覚えてなけど、
これがあると、全チェックボックスがOffの時は、記録されません。
この行は、外しておいてね。つまりいらない。
> 引数 = Mid(引数, 1, Len(引数) - 1)
> Application.OnTime Now(), "'マクロ名 " & """" & 引数 & """" & "'"
>End Sub
|
|