Excel VBA質問箱 IV

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

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


5312 / 13646 ツリー ←次へ | 前へ→

【51495】マクロ有効で保存するとマクロが起動できない かなり初心者 07/9/21(金) 11:09 質問[未読]
【51497】Re:マクロ有効で保存するとマクロが起動で... とおりすがり 07/9/21(金) 11:22 発言[未読]
【51499】Re:マクロ有効で保存するとマクロが起動で... かなり初心者 07/9/21(金) 11:25 回答[未読]
【51501】Re:マクロ有効で保存するとマクロが起動で... yuu1 07/9/21(金) 12:38 回答[未読]
【51503】Re:マクロ有効で保存するとマクロが起動で... かなり初心者 07/9/21(金) 12:56 発言[未読]
【51505】Re:マクロ有効で保存するとマクロが起動で... yuu1 07/9/21(金) 13:39 回答[未読]
【51555】Re:マクロ有効で保存するとマクロが起動で... かなり初心者 07/9/25(火) 13:42 お礼[未読]

【51495】マクロ有効で保存するとマクロが起動でき...
質問  かなり初心者  - 07/9/21(金) 11:09 -

引用なし
パスワード
   次の現象がでて悩みに悩んでます。
このような作業手順で動かしています。
1.マクロを無効にして保存
2.マクロを有効にして起動すると自動的にユーザーフォームが出てきます。
3.このまま保存します。
4.再度、マクロを有効にして起動するとExcelのエラーとなり
ユーザーフォームが出てきません。
問題発生で、Excel強制終了(修復モードへ)
ユーザーフォームの起動に問題があるのでしょうか?

  Application.Visible = False
  DB.Show

【51497】Re:マクロ有効で保存するとマクロが起動...
発言  とおりすがり  - 07/9/21(金) 11:22 -

引用なし
パスワード
   >3.このまま保存します。

ブックは閉じてますか?
保存後も開いたままですか?

【51499】Re:マクロ有効で保存するとマクロが起動...
回答  かなり初心者  - 07/9/21(金) 11:25 -

引用なし
パスワード
   Excelを全部閉じてからやり直しています。

▼とおりすがり さん:
>>3.このまま保存します。
>
>ブックは閉じてますか?
>保存後も開いたままですか?

【51501】Re:マクロ有効で保存するとマクロが起動...
回答  yuu1  - 07/9/21(金) 12:38 -

引用なし
パスワード
   こんにちは。
エクセルを非表示にしてユーザーフォームで処理する場合によくあることです。
終了処理に問題があることが多いです。

情報不足で具体的な修正はやりようがないので、
↓以下のそれぞれのマクロを示してください。
 (書いたモジュールとプロシージャ名を含めて)

>2.マクロを有効にして起動すると自動的にユーザーフォームが出てきます。
>3.このまま保存します。

【51503】Re:マクロ有効で保存するとマクロが起動...
発言  かなり初心者  - 07/9/21(金) 12:56 -

引用なし
パスワード
   以下の内容で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.このまま保存します。

【51505】Re:マクロ有効で保存するとマクロが起動...
回答  yuu1  - 07/9/21(金) 13:39 -

引用なし
パスワード
   こんにちは。
示されたマクロを試してみましたがエラーは発生しませんでした。for excel2000
他の個所に原因があるのかもしれません。
とりあえず各プロシージャの以下を修正してみてください。

Sub windowmin()
 Application.Visible = False
 Db.Show
 Application.Quit '追加
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
  Unload Me '追加
  'Application.Quit'削除
 End If
End Sub

これで問題が解消しない場合は、
実際に実行してエラーが発生する最小構成のマクロを示してください。

【51555】Re:マクロ有効で保存するとマクロが起動...
お礼  かなり初心者  - 07/9/25(火) 13:42 -

引用なし
パスワード
   回答をして頂いた方々ありがとうございました。
どの方法をとっても解決できませんでした。
yuu1さんの助言どおり最小構成で試みてみたいと思います。

▼yuu1 さん:
>こんにちは。
>示されたマクロを試してみましたがエラーは発生しませんでした。for excel2000
>他の個所に原因があるのかもしれません。
>とりあえず各プロシージャの以下を修正してみてください。
>
>Sub windowmin()
> Application.Visible = False
> Db.Show
> Application.Quit '追加
>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
>  Unload Me '追加
>  'Application.Quit'削除
> End If
>End Sub
>
>これで問題が解消しない場合は、
>実際に実行してエラーが発生する最小構成のマクロを示してください。

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