VBA初心者です。 色々調べてみましたが、どうしても原因が判りません。よろしくお願いします。 Excel2007 Windows7 実行後時々Excelが落ちてしまいます。 エラーの内容 *************************** 問題の署名: 問題イベント名:APPCRASH アプリケーション名:EXCEL.EXE アプリケーションのバージョン:12.0.6661.5000 アプリケーションのタイムスタンプ:4f7cda6d 障害モジュールの名前:EXCEL.EXE 障害モジュールのバージョン:12.0.6661.5000 障害モジュールのタイムスタンプ:4f7cda6d 例外コード:c0000005 例外オフセット:0004da42 OS バージョン:6.1.7600.2.0.0.256.48 ロケール ID:1041 この問題に関する追加情報: LCID:1041 Brand:Office12Crash skulcid:1041 ***************************** 以下のVBAに問題があるのでしょうか？ 内容は「フォームのテキストに数字を入力し、入力した回数繰り返す」というものです。 ****************************** Private Sub キャンセル_Click() MsgBox "キャンセルされました" Unload 奉行変換 End Sub Private Sub 変換実行_Click() DM = 実行枚数.Value 実行枚数.Value = Empty MsgBox DM & "枚の伝票を変換します" Unload 奉行変換 変換 End Sub ********************************** 入力用のシートで入力した内容を他のシートにためていくものです。 以下の内容を標準モジュールに書いています。 ********************************** Public DM As Byte '入力フォームテキストに入力された数 Public BGyo As Integer Public BCol As Integer Sub 変換開始() BGyo = ActiveCell.Row '入力セルの行取得 BCol = ActiveCell.Column '入力セルの列取得 奉行変換.Show End Sub Sub 変換() Dim hgyo As Integer Dim BGyoH As Integer If BGyo = 5 Or BGyo Mod 23 = 5 And BCol = 2 Then ’特定のセルがアクティブな時だけ実行 データー用シートの最終行指定 hgyo = Worksheets("HANYO").Cells(1, 3).CurrentRegion.Rows.Count hgyo = hgyo + 1 For n = 1 To DM BGyoH = BGyo + 3 With Worksheets("HANYO") .Cells(hgyo, 3).Value = Cells(BGyo, BCol) .Cells(hgyo, 5).Value = Cells(BGyoH, BCol + 1) .Cells(hgyo, 6).Value = Cells(BGyoH, BCol + 2) .Cells(hgyo, 7).Value = Cells(BGyoH + 1, BCol + 2) .Cells(hgyo, 8).Value = Cells(BGyoH, BCol) If Cells(BGyoH + 1, BCol + 1) = 2 Then .Cells(hgyo, 10) = 1 ElseIf Cells(BGyoH + 1, BCol + 1) = "" Then .Cells(hgyo, 10) = "" .Cells(hgyo, 11) = "０" ElseIf Cells(BGyoH + 1, BCol + 1) = 1 Then .Cells(hgyo, 10) = 1 .Cells(hgyo, 11) = 1 End If .Cells(hgyo, 13).Value = Cells(BGyoH, BCol + 6) .Cells(hgyo, 14).Value = Cells(BGyoH, BCol + 7) .Cells(hgyo, 15).Value = Cells(BGyoH + 1, BCol + 7) .Cells(hgyo, 16).Value = Cells(BGyoH, BCol + 10) If Cells(BGyoH + 1, BCol + 6) = 2 Then .Cells(hgyo, 18) = 1 ElseIf Cells(BGyoH + 1, BCol + 6) = "" Then .Cells(hgyo, 18) = "" .Cells(hgyo, 19) = "０" ElseIf Cells(BGyoH + 1, BCol + 6) = 1 Then .Cells(hgyo, 18) = 1 .Cells(hgyo, 19) = 1 End If .Cells(hgyo, 21).Value = Cells(BGyoH, BCol + 4) & Cells(BGyoH + 1, BCol + 4) End With hgyo = hgyo + 1 BGyoH = BGyoH + 2 Next nd BGyo = BGyo + 23 Next n Else MsgBox "アクティブセルが日付にありません。" Exit Sub End If End Sub Excelが落ちるのはこれを実行した後のみ時々起きますので 私が作成した内容に何か問題があるのだと思うのですが 調べても判りません・・・・ この内容で情報は足りるでしょうか？ よろしくお願いします。
↧