[XL]Lotus 1-2-3 のマクロで2バイトの文字列を入力すると一般保護違反

詳細

現象

1-2-3 で作成した「 2 バイトの文字列を入力するマクロ」を Excel 5.0 で実行すると、一般保護違反が発生します。

                     [アプリケーションエラー]
                 EXCEL で一般保護違反が発生しました。
    発生した場所は、モジュール SDMDBCS.DLL の 0005:365E 番地です。

回避策 1

先頭の文字が 2 バイトの場合にのみ発生する現象です。そのため、先頭に「半角スペース」などを追加することで回避できます。先頭に追加した「半角スペース」は、必要に応じてマクロで文字列を入力後、削除してください。

編集前

  \a      {GOTO}A8~
          仕事は捗っていますか？ (Y/N)~
          {GET A9}~
          {IF A9="Y"} もう少しがんばりましょう！~
          {IF A9="N"} お茶にしましょう！~

編集後

  \a      {GOTO}A8~
          仕事は捗っていますか？ (Y/N)~
          {EDIT}{HOME}{DEL 2}~
          {GET A9}~
          {IF A9="Y"} もう少しがんばりましょう！~{EDIT}{HOME}{DEL 2}~
          {IF A9="N"} お茶にしましょう！~{EDIT}{HOME}{DEL 2}~

{EDIT} {HOME} {DEL 2}~ は先頭に追加した「半角スペース」を削除するための記述です。

回避策 2

1-2-3 のマクロから Microsoft(R) Visual Basic(R) Programming System Applications Edition (以下 VBA) のモジュールをコールすることができます。VBA で 2 バイトの文字列を入力を行なう場合は一般保護違反は発生しませんので、先頭に「半角スペース」を追加する必要はありません。
1-2-3 のマクロから VBA のモジュールをコールするサンプルは次の通りです。このマクロを実行することによって、「回避策 1 」 と同じ結果が得られます。

1-2-3 マクロ

  \a      {GOTO}A8~
          {XLCALL Message1}~
          {GET A9}~
          {IF A9="Y"}{XLCALL Message2}~
          {IF A9="N"}{XLCALL Message3}~

VBA のモジュール

  Sub Message1()
      ActiveCell.Value = "仕事は捗っていますか？ (Y/N)"
  End Sub
  Sub Message2()
      ActiveCell.Value = "もう少しがんばりましょう！"
  End Sub
  Sub Message3()
      ActiveCell.Value = "お茶にしましょう！"
  End Sub

注意

VBA のモジュールを記述する場合には、[挿入] - [マクロ] - [モジュール] コマンドを実行して作成した、モジュールシートに記述します。1-2-3 のようにワークシートに記述してもマクロとして扱われません。