EXCEL 2016 で停止する。

Question

問題の署名:

  問題イベント名: APPCRASH

  アプリケーション名: EXCEL.EXE

  アプリケーションのバージョン: 16.0.6769.2017

  アプリケーションのタイムスタンプ: 5701447b

  障害モジュールの名前: MSBCODE9.OCX

  障害モジュールのバージョン: 16.0.6729.1014

  障害モジュールのタイムスタンプ: 56ffb1d3

  例外コード: c0000005

  例外オフセット: 00007af1

  OS バージョン: 6.1.7601.2.1.0.256.4

  ロケール ID: 1041

この問題に関する追加情報:

  LCID: 1041

  skulcid: 1041

上記表示で停止します。

対応策を教えてください。

Answer 1

回答ありがとうございます。

とても参考になり、コントロールパネルのプログラムからOFFICE365の完全修復をかけてみました。

なんと、EXCELのヴァージョンが、

アプリケーションのバージョン: 16.0.6769.2017　（エラーが多発していたVer.）

から　16.0.6001.1078　におそらく前のバージョンに戻りました。

その後、MSBCODE9.OCXのエラーが無くなり快適に使用できるようになりました。

ありがとうございました。

Answer 2

浩司向井 さん、こんにちは。

ご返信ありがとうございます。

MSBCODE9.OCX ファイルのプロパティを確認してみると、ファイルの説明には「Microsoft Barcode Control」とありましたので、確かにバーコードの処理をする VBA との関連はありそうですね。

ファイル保存やバーコード作成自体はできている / ファイルを閉じるときに停止する、とのことから、VBA のコード自体には問題が無く、処理終了後も読み込まれた MSBCODE9.OCX が解放されないまま残ってしまいエラー、、、といったような可能性も考えられるかも知れません。

このファイルを単体で修復する方法は分からなかったのですが、アップデート前は問題無かったとのことなので、一度以前のバージョンに戻して現象が再発するか確認してみてはいかがでしょう。

・Office 2013 または 2016年クイック実行の Office の以前のバージョンに戻す方法

機械翻訳で少しわかりにくいかも知れませんので、手順で不明な点があれば追加で書いてみてくださいね。

※ 「こちらのページ」によると、16.0.6769.2017 のひとつ前のバージョンは 16.0.6769.2015 のようです。

Answer 3

アドバイスありがとうございます。

サーフティーモードでも同じ現象が出ました。

今回のトラブルは、マクロを使用してバーコードを作成するVBAで発生しています。

順に追っていくと

１）バーコードを作成するEXCELファイルをOPEN

２）データーを入れ込み

３）ﾃﾞｰﾀｰのバーコードを作成させ。（VBAで）

４）ファイルを保孫する

ここで、正しいバーコードが出来ていることを確認。

５）そのあとでファイルを閉じるとき　下記現象で停止してしまいます。（APPCRASH）

先週に　この（16.0.6769.2017）にOFFICEのUPDATEがあり、その前のヴァージョンではエラーは出ていませんでした。

何か　MSBCODE9.OCX　にヒントがあるように思えるのですが、どなたか情報をお持ちでないでしょうか？

ちなみに、VBAの一部をUPします。

---

Sub PasteBarCodeCtrl2(lngCellBCY As Long, lngCellBCX As Long, lngCellValY As Long, lngCellValX As Long)

Const SngRelClTop As Single = 0 / 4

Const SngRelClLft As Single = 0 / 4

Const SngRelClHgt As Single = 4 / 4

Const SngRelClWdt As Single = 4 / 4

Const IntBCStyle As Integer = 7

    ' スタイル

    ' 0: UPC-A, 1: UPC-E, 2: JAN-13, 3: JAN-8, 4: Casecode, 5: NW-7,

    ' 6: Code-39, 7: Code-128, 8: U.S. Postnet, 9: U.S. Postal FIM, 10: 郵便カスタマーバーコード

Const IntBCSubst As Integer = 0

    ' サブスタイル (パラメータ説明省略、下記URL参照)

    ' http://msdn.microsoft.com/ja-jp/library/cc427156.aspx

Const IntBCValid As Integer = 0

    ' データの確認

    ' 0: 確認無し, 1: 無効なら修正, 2: 無効なら非表示

Const IntBCLnWgt As Integer = 2

    ' 線の太さ

    ' 0: 極細, 1:細, 2:中細, 3:標準, 4:中太, 5: 太, 6:極太, 7:超極太

Const IntBCDrctn As Integer = 0

    ' バーコードの向き

    ' 0: 0度, 1: 90度, 2: 180度, 3: 270度

Const IntBCShwDt As Integer = 1

    ' データの表示

    ' 0: 有り, 1: 無し

Const IntBCFrClr As Long = 0        ' 0 = RGB(0, 0, 0) [Black]

    ' 前景色

Const IntBCBkClr As Long = 16777215 ' 16777215 = RGB(255,255,255) [White]

    ' 背景色

Dim objOLEObj   As OLEObject

Dim objBC       As BARCODELib.BarCodeCtrl

Dim sngBcTop    As Single

Dim sngBcLft    As Single

Dim sngBcHgt    As Single

Dim sngBcWdt    As Single

Dim rngLnkCell  As Range

    With Range(Cells(lngCellBCY, lngCellBCX), Cells(lngCellBCY, lngCellBCX + 3))

        sngBcTop = .Top + .Height * SngRelClTop

        sngBcLft = .Left + .Width * SngRelClLft

        sngBcHgt = .Height * SngRelClHgt

        sngBcWdt = .Width * SngRelClWdt

    End With

ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", Link:=False, DisplayAsIcon:=False, _

            Top:=sngBcTop, Left:=sngBcLft, Height:=sngBcHgt, Width:=sngBcWdt).Select

Set objOLEObj = Selection

Set objBC = objOLEObj.Object

    With objBC

        .Style = IntBCStyle

        .SubStyle = IntBCSubst

        .Validation = IntBCValid

        .LineWeight = IntBCLnWgt

        .Direction = IntBCDrctn

        .ShowData = IntBCShwDt

        .ForeColor = IntBCFrClr

        .BackColor = IntBCBkClr

        .Interior.ColorIndex = xlNone

        .Refresh

    End With

    With objOLEObj

        .Visible = False

        .Placement = xlMoveAndSize ' 描画後の「セル高」変更に対し「バーコード高」が連動しない…。

        .LinkedCell = Cells(lngCellValY, lngCellValX).Address(RowAbsolute:=False, ColumnAbsolute:=False, _

                                                                ReferenceStyle:=Application.ReferenceStyle)

        .Visible = True

    End With

End Sub

Answer 4

浩司向井 さん、こんにちは。

マイクロソフト コミュニティへの投稿ありがとうございます。

Excel 2016 が停止してしまうのですね。

これは特定の操作をしている時に停止するなど、何か傾向のようなものはあるでしょうか。また、既存のファイルの編集中 / 新規作成ファイルいずれの場合も発生するでしょうか。

まずは原因を切り分けるために以下のようなことを確認してみてはいかがでしょう。

・アドインやユーザー設定を読み込まない「手動セーフ モード」で起動した場合も同様か

Windows キー + R キー > 「excel /safe」と入力して [OK]

・バックグラウンド動作する常駐ソフトなどが干渉しないよう、PC を「クリーン ブート」で起動した場合はどうか

試された結果など、ご返信をお待ちしています。