文書番号: 950220 - 最終更新日: 2010年7月1日 - リビジョン: 4.1

Excel で VBA を使用した場合、シート名を 31 文字以上の名前に変更するとエラー メッセージが表示されシートを移動させる処理が行えなくなる

お知らせお使いのオペレーティング システムには適用しない情報が含まれている場合があります。

目次

すべて展開する | すべて折りたたむ

現象

Microsoft Excel 2000、Microsoft Excel 2002、Microsoft Office Excel 2003、Microsoft Office Excel 2007?および Microsoft?Excel 2010 でシート名を 31 文字以上の名前に変更して VBA を実行すると、シートをまたぐシートの移動が行えなくなります。この現象は、シート名を 31 文字以上の名前に変更しようとする際、IME をオンにしている場合にのみ発生します。シート名を 31 文字以上の名前に変更しようとする際に直接入力モードの場合は、現象は発生しません。なお、シート名の最大表示文字数は 31 文字です。

回避策

この現象を回避するには、以下のいずれかを実行します。

方法 1 : 手動でシートを移動する

マウスを使いシートのタブをドラッグすることでシートを移動できます。VBA を使用してシートをまたぐシートの移動ができない場合でも、手動でシートを移動することは可能です。

方法 2 : シート名を変更する

31 文字以上の名前に変更しようとしたシート名を 30 文字以内に設定します。ただしシート名を変更する際、IME をオンにしている必要があります。VBA を使用してシート名の変更を行ったり、直接入力モードでシート名の変更を行った場合は、この現象を回避できません。

状況

マイクロソフトでは、この問題をこの資料の対象製品として記載されているマイクロソフト製品の問題として認識しています。

詳細

問題の再現手順

  1. 新規ワークブック (Book1.xls) を開きます。
  2. Sheet2 のシートのタブを右クリックし [名前の変更] をクリックします。
  3. シート名として以下のように 31 文字を入力します。
    あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほま
  4. IME をオンにした状態で「あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほま」の最後にカーソルを置き、キーボードから文字を入力します。
    : シート名の最大表示文字数は 31 文字なので、この手順を行っても実際に追加した文字は入力されません。
  5. シート内のセルをクリックしてシート名の変更を確定します。
  6. 以下の VBA コードを実行します。
    Worksheets("Sheet1").Move after:=Worksheets("あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほま")

結果

以下のエラー メッセージが発生します。
実行時エラー : 1004 Worksheet クラスの Move メソッドが失敗しました
手順 6 で以下の VBA コードを実行すると、エラー メッセージは発生しませんがシートの移動も行われません。
ExecuteExcel4Macro ("WORKBOOK.MOVE(""Sheet1"", ""Book1"",2)")

この資料は以下の製品について記述したものです。
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2010
キーワード:?
kbharmony kbtshoot kbexpertiseinter KB950220
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"