|
以下の内容でVBを書いています。
いかかでしょうか?
※マクロを有効にして起動すると自動的にユーザーフォームが出てきます。
Sub windowmin()
Application.Visible = False
DB.Show
End Sub
※このまま保存します。
Private Sub CommandButton終了_Click()
Dim myBtn As Integer
Dim myMsg As String, myTitle As String
myMsg = "保存して、終了します。"
myTitle = "終了確認"
myBtn = MsgBox(myMsg, vbQuestion + vbYesNoCancel, myTitle)
If myBtn = vbYes Then
Unload Me
ActiveWorkbook.Save
Application.Quit
ElseIf myBtn = vbNo Then
Application.Quit
ElseIf myBtn = vbCancel Then
Exit Sub
End If
End Sub
▼yuu1 さん:
>こんにちは。
>エクセルを非表示にしてユーザーフォームで処理する場合によくあることです。
>終了処理に問題があることが多いです。
>
>情報不足で具体的な修正はやりようがないので、
>↓以下のそれぞれのマクロを示してください。
> (書いたモジュールとプロシージャ名を含めて)
>
>>2.マクロを有効にして起動すると自動的にユーザーフォームが出てきます。
>>3.このまま保存します。
|
|