文書番号: 191176 - 最終更新日: 2011年7月6日 - リビジョン: 5.0

XL98。 Value プロパティで For Each ループをバリアント型に変更

英語を並べて表示英語と日本語を並べて表示する
機械翻訳機械翻訳版の免責を確認する
Retired KB Articleサポート期間が終了した「サポート技術情報」資料に関する免責事項
対象製品
お知らせお使いのオペレーティング システムには適用しない情報が含まれている場合があります。
すべて展開する | すべて折りたたむ

現象

For を使用すると、各ループで、Visual Basic for Applications マクロは、エラーが発生せず、マクロを実行することができますが、値を変更した For Each ループを可能性がありますいない実際に変更します。
先頭へ戻る

原因

値の変更が実行中に変更する for Each ループがのみ表示されます可能性があります、次の条件に該当する場合のマクロが実行します。

  • オブジェクトまたは要素の既定値プロパティを変更します。配列。- と -

  • ループ制御変数はバリアント型です。
この現象は、Microsoft Excel の仕様です。
先頭へ戻る

回避策

この問題を回避するには、次の方法のいずれかを使用します。

  • コントロール変数の型オブジェクトを宣言するのに Dim ステートメントを使用します。バリアント型ではなく。- または -

  • マクロ コードで、明示的な既定値のプロパティを使用します。
先頭へ戻る

詳細

Microsoft プログラミング例としては、明示または黙示の保証もないだけを提供します。これを含むが、商品性や特定目的への適合性の黙示的な保証に制限はありません。この資料は、例示されているプログラミング言語やを作成したりプロシージャをデバッグするために使用されるツールに精通するいると仮定します。マイクロソフト サポート エンジニアに、特定のプロシージャの機能について説明する役立ちますが追加機能を提供またはお客様固有の要件を満たすようにプロシージャを作成するこれらの例は変更されません。 前に記載された問題を示すには、次の手順を実行します。

  1. 保存しすべての開いているブックを閉じるし、新しいブックを開きます。
  2. Sheet1 に次を入力します。
    A1: 1
    A2: 2
    A3: 3
  3. Visual Basic エディター (オプション + F11 キーを押します) を起動します。
  4. [挿入] メニューの [モジュール] をクリックします。
  5. モジュールに次のコードを入力します。
           ' In this macro, cellRange is an Object variable
      ' and cellItem is a Variant variable.

      Sub LoopTest()

         Set cellRange = ActiveSheet.Range("A1:A3")

         ' The following concatenates an "A" to the default value of each
         ' cell.
         For Each cellItem In cellRange
            cellItem = cellItem & "A"
            MsgBox cellItem
         Next

         ' The cellRange will return the default value (not value&"A"),
         ' even though the loop above changed the value of the object.
         For Each cellItem In cellRange
            MsgBox cellItem
         Next

      End Sub
  6. LoopTest マクロを実行します。

    連結 a1: a3 に値が最初の 3 つのメッセージ ボックスを表示します。aただし、次の 3 つをボックスの表示メッセージをa1: a3、し、マクロが終了すると、値の元の値A1: a3 は変更されません。
  7. マクロ Sub LoopTest() の行のすぐ下には、次の行を追加します。
          Dim cellItem As Object
  8. LoopTest マクロを再実行してください。

    メッセージ ボックスの 1 番目と 2 番目のセット内の値を表示します。A1: a3 の a を連結します。マクロが終了すると、a1: a3 に値もそれに応じて変更されます。
注: この問題を回避するには、コード行を変更することもできます。
   cellItem = cellItem & "A"
：
   
cellItem.Value = cellItem & "A"
先頭へ戻る

関連情報

For についてそれぞれ、Visual Basic エディターから、ループOffice アシスタントをクリックして型 それぞれ、検索] をクリックし、をクリックして"の各... を表示するのにはNext ステートメント」を参照します。

注: アシスタントが表示されない場合は、[Office アシスタント] ボタンをクリックして、標準ツールバーのします。アシスタントは、してください、クエリに応答できない場合以下の資料は、マイクロソフト サポート技術を参照してください。
176476? (http://support.microsoft.com/kb/176476/EN-US/ ) OFF: Visual Basic の質問に答えてない不在時のアシスタント
Visual Basic のヘルプの表示の詳細についてはアプリケーションは、次の資料で、マイクロソフト サポート技術情報をご覧ください。ベース:
163435? (http://support.microsoft.com/kb/163435/EN-US/ ) VBA: リソースの Visual Basic for Applications のプログラミング
先頭へ戻る
この資料は以下の製品について記述したものです。
  • Microsoft Excel 98 for Macintosh
先頭へ戻る
キーワード:?
kbdtacode kbprb kbmt KB191176 KbMtja
先頭へ戻る
機械翻訳機械翻訳
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB：191176? (http://support.microsoft.com/kb/191176/en-us/ )
先頭へ戻る
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"
Retired KB Articleサポート期間が終了した「サポート技術情報」資料に関する免責事項
この資料は、マイクロソフトでサポートされていない製品について記述したものです。そのため、この資料は現状ベースで提供されており、今後更新されることはありません。
先頭へ戻る