![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
ボタンからユーザーフォームを起動して
指定シートの関数を値貼付けして、その後CSV出力するという動作をさせています。
ボタンでフォームを起動して一連の処理をした後
Excel右上の×ボタンで閉じようとしても反応しなくなります。
Alt+F4もウィンドウを閉じるも効かないので、ファイル>閉じるでBookを閉じて
その後×ボタンが効くようになるのでそれで閉じています。
フォーム起動部分のどこが悪いのか見直してみたのですが分かりません。
ボタンでフォーム起動をせずVBEからF5起動して処理をすると普通に閉じれましたので
ボタンからフォーム起動がよくないと思うのですが。。
どうかご教示いただけませんでしょうか。
Sub フォーム起動()→Private Sub UserForm_Initialize()
Private Sub CommandButton1_Click()(フォーム起動後ボタンクリック)→
Sub 値貼付け()→Sub CSV出力()→Sub フォーム起動()
--------------------------------------------------------------------
●標準モジュール
Sub フォーム起動()
UserForm1.Show
End Sub
Sub 値貼付け()
Dim i As Long
Dim maxRow As Long
Dim C As Range
Dim Rc As VbMsgBoxResult
Rc = MsgBox("FLGが1の行に対して" & vbNewLine & "値貼付けとCSV出力をしてもよろしいですか?", vbYesNo + vbExclamation, "確認")
If Rc = vbYes Then
maxRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To maxRow
If Cells(i, 2).Value = 1 Then
If Cells(i, 11).HasFormula Then
Set C = Range(Cells(i, 11), Cells(i, 15))
C.Copy
C.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End If
Next i
Application.ScreenUpdating = True
Range("A1").Select
Call CSV出力
MsgBox ("完了済データの「値貼付け」と「CSV出力」が完了しました。")
Else
MsgBox "処理を中止します", vbCritical
End If
End Sub
Sub CSV出力()
Dim csvFilePath As String
Dim iCount As Long
Dim jCount As Long
Dim kCount As Long
Dim maxRow As Long
Dim maxCol As Long
Dim fileNo As Integer
Dim FileName As String
' ファイル名の取得(拡張子を除く)
FileName = "削除No一覧"
' CSVファイルパスの作成
csvFilePath = "D:\csv\" & FileName & ".csv"
' 最終行
maxRow = ActiveSheet.Range("A1").End(xlDown).Row
' 最終列
maxCol = 1
' ファイル番号
fileNo = FreeFile
' ファイル開く
Open csvFilePath For Output As #fileNo
' 縦方向ループ(最終行まで)
For iCount = 1 To maxRow
' 横方向ループ(最終列-1まで)
For jCount = 1 To maxCol - 1
' ファイル出力(改行なし)
Write #fileNo, Cells(iCount, jCount);
' ループカウンタをコピー
kCount = jCount
Next jCount
If iCount = 1 Then Write #fileNo, Cells(iCount, kCount + 1)
If Cells(iCount, kCount + 2).Value = 1 Then
' 最終列をファイル出力(改行付き)
Write #fileNo, Cells(iCount, kCount + 1)
End If
Next iCount
' ファイルを閉じる
Close #fileNo
End Sub
--------------------------------------------------------------------
●ユーザーフォーム
Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
MsgBox "シートを選んでください"
ComboBox1.SetFocus 'コンボ選択
Exit Sub
End If
Sheets(ComboBox1.Value).Activate 'コンボの値のシートをアクティブにする
Call 値貼付け
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
'ユーザーフォームのコンボにシート名を追加
For Each ws In Sheets
If ws.Name <> "MST" Then ComboBox1.AddItem ws.Name
Next
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
記載されているプログラムコードの他に、プログラムコードはありませんか?
特に、ThisWorkbookオブジェクトのWorkbook_BeforeCloseイベントプロシジャあたりに・・・。
回答いただきありがとうございます。
再度確認しましたが、記載しているコード以外は何もありませんでした。。
コマンドボタンでフォームを起動せずに
マクロからSub フォーム起動()を選んで実行すれば
正常にExcelは終了できます。
Private Sub CommandButton1_Click()から行くと
フォーム閉じるまでこのプロシージャは終了できないみたいなんですが、それが何か悪いのでしょうか。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
Excel マクロ 閉じるボタン
Visual Basic(VBA)
-
コマンドボタンで「終了ボタン」を作りたい!
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
8
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
9
エクセルでファイルを閉じるボタンから閉じれないようにするには
Visual Basic(VBA)
-
10
エクセル UserForm 呼び出しでフリーズしてしまいます
その他(Microsoft Office)
-
11
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
12
全ての変数を一気にリセットする方法はありますか?
PowerPoint(パワーポイント)
-
13
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
14
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
15
ブックをCloseまたはQuitで閉じると他のユーザーフォームが消えてしまう。
Excel(エクセル)
-
16
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!教えてください!!「Mic...
-
メールソフトThunderbirdに関して
-
マルチモニターにエクセルを表示
-
EXCELを起動したとき120%の表...
-
指定時刻にEXCEL起動
-
Wordを「ファイル名を指定して...
-
Draftsightが起動しない。
-
It works! が表示されるという...
-
パソコン買い換えたいのですが...
-
UWSCでSnippingToolが起動でき...
-
jtrim 1.53cが正常な動きをし...
-
ExcelでVBA実行後×(閉じる)ボタ...
-
.png 画像 PC 見れない
-
ペイントの操作の自動化
-
イラレ8.0 新規パターンスオッチ
-
Wordが突然起動しなくなった
-
Excel2002で起動時に白紙のブッ...
-
パソコンが起動できなくなって...
-
windowsメッセンジャーを消したい
-
DVD Fab9でMP4をDVD化できない...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
jtrim 1.53cが正常な動きをし...
-
至急!教えてください!!「Mic...
-
EXCELを起動したとき120%の表...
-
パソコン買い換えたいのですが...
-
It works! が表示されるという...
-
ExcelでVBA実行後×(閉じる)ボタ...
-
パワーポイントのスライドショ...
-
ACCESS VBA からのワードファ...
-
μtorrentのアンインストール方法
-
pcゲームのセットアップが出来...
-
Wordを起動したときのタイトル...
-
windows10にupしたらoutlookが...
-
LANケーブルを挿すとEXCELが重...
-
VBによるEXCELの書き込み
-
Kindle for windowsのバグ
-
Windows Media Playerが起動直...
-
Accessで自身のバックアップ方法
-
outlook添付ファイルの起動が遅い
-
Atok に詳しい方。お願いします。
-
指定時刻にEXCEL起動
おすすめ情報