ボタンからユーザーフォームを起動して
指定シートの関数を値貼付けして、その後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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
コマンドボタンで「終了ボタン」を作りたい!
Excel(エクセル)
-
-
4
Excel マクロ 閉じるボタン
Visual Basic(VBA)
-
5
Excel VBA 処理後データが重たくなる&処理スピードが遅いのを解決したい
Visual Basic(VBA)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
エクセルでファイルを閉じるボタンから閉じれないようにするには
Visual Basic(VBA)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
10
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
11
ブックをCloseまたはQuitで閉じると他のユーザーフォームが消えてしまう。
Excel(エクセル)
-
12
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
13
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
14
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
15
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
16
エクセルVBA シート上にあるコマンドボタンを削除するには?
Excel(エクセル)
-
17
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
18
エクセル UserForm 呼び出しでフリーズしてしまいます
その他(Microsoft Office)
-
19
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
20
全ての変数を一気にリセットする方法はありますか?
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELを起動したとき120%の表...
-
至急!教えてください!!「Mic...
-
jtrim 1.53cが正常な動きをし...
-
VBによるEXCELの書き込み
-
自作PCについて質問します。パ...
-
Atok に詳しい方。お願いします。
-
OutLook2002が起動時エラーにな...
-
マルチモニターにエクセルを表示
-
Windows Media Playerが起動直...
-
It works! が表示されるという...
-
ACCESS VBA からのワードファ...
-
itunesが起動するのに数分かかる
-
エクセルのファイルが開かない
-
パソコン買い換えたいのですが...
-
Illustrator 10 が起動できません
-
カスペルスキー2009をアンイン...
-
Wordを「ファイル名を指定して...
-
Draftsightが起動しない。
-
pcゲームのセットアップが出来...
-
PCの再起動に対応しないアンイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!教えてください!!「Mic...
-
EXCELを起動したとき120%の表...
-
jtrim 1.53cが正常な動きをし...
-
It works! が表示されるという...
-
パソコン買い換えたいのですが...
-
Kindle for windowsのバグ
-
pcゲームのセットアップが出来...
-
LANケーブルを挿すとEXCELが重...
-
VBによるEXCELの書き込み
-
パワーポイントのスライドショ...
-
ExcelでVBA実行後×(閉じる)ボタ...
-
マルチモニターにエクセルを表示
-
指定時刻にEXCEL起動
-
Accessで自身のバックアップ方法
-
メールソフトThunderbirdに関して
-
Atok に詳しい方。お願いします。
-
windows10にupしたらoutlookが...
-
μtorrentのアンインストール方法
-
USBメモリーのセキュリティ...
-
エクセルの起動時にbook1を開き...
おすすめ情報