エクセルVBA パソコン変更で動作不能に

質問

使用するパソコンが変更になり、今まで問題なく動作していたのですが、できなくなってしまいました。
（パソコン環境）
故障によりパソコンは変わりましたが、VISTA、Excel2003という環境は同じです。

（動作内容）
個別の色コードを12個つなぎ合わせて、1つの商品コードにします。
ランダムにピックアップして、400個の商品コードを作成します。

（具体的には）
12箇所の色コードをそれぞれ4パターンの中から1つを選択して、商品コードを作成するものです。
Sheet1には、48個（12箇所×4パターン）のコードを予め用意したものがあり、VBAによって、
Sheet2に400個の商品コード（セル範囲A1～D400）を作成します。

色のコードはあらかじめセル（4種×12面で48個のセル）に入力してあります（手作業で）。
エクセルシートのＡ列に、たてに48個を入力
　・セル（　Ａ３～　Ａ６）にＡ面の色コード
　・セル（　Ａ８～Ａ１１）にＢ面の色コード
　・セル（Ａ１３～Ａ１６）にＣ面の色コード
　・セル（Ａ１８～Ａ２１）にＤ面の色コード
　・セル（Ａ２３～Ａ２６）にＥ面の色コード
　・セル（Ａ２８～Ａ３１）にＦ面の色コード
　　　　　　　　　・
　・セル（Ａ５８～Ａ６１）にＬ面の色コード

（問題点）
動作しているようなのですが、Sheet2が真っ白のままで終了していまいます。
エラー表示のウィンドウは出てきません。
これまでSheet2には商品コードが400行作成（セル範囲A1～D400）できておりました。

（お願い）
原因が分からず途方に暮れております。解決方法をお願いいたします。

（以下にコード転載します。）
Sub 商品コード作成400()
Dim ASide, BSide, CSide, DSide, ESide, FSide, GSide, HSide, ISide, JSide, KSide, LSide
nTotal = 400 '←コード作成数
sFileName = Range("A1") '←商品の名前（Sheet1のA1セル）

'12面分の色コードを配列に取り込む
ASide = Range("A3:A6")
BSide = Range("A8:A11")
CSide = Range("A13:A16")
DSide = Range("A18:A21")
ESide = Range("A23:A26")
FSide = Range("A28:A31")
GSide = Range("A33:A36")
HSide = Range("A38:A41")
ISide = Range("A43:A46")
JSide = Range("A48:A51")
KSide = Range("A53:A56")
LSide = Range("A58:A61")

Application.ScreenUpdating = False

With Sheets("Sheet2")
.Cells.ClearContents
For i = 0 To 4095
'パターン作成　４の６乗　４０９５個
.Cells(i + 1, 1) = sFileName
aa = 1 + Int(i / 4 ^ 5) Mod 4
bb = 1 + Int(i / 4 ^ 4) Mod 4
cc = 1 + Int(i / 4 ^ 3) Mod 4
dd = 1 + Int(i / 4 ^ 2) Mod 4
ee = 1 + Int(i / 4 ^ 1) Mod 4
ff = 1 + Int(i / 4 ^ 0) Mod 4
'前半６個の組み合わせ
.Cells(i + 1, 3) = ASide(aa, 1) & BSide(bb, 1) & CSide(cc, 1) & DSide(dd, 1) & ESide(ee, 1) & FSide(ff, 1)
'後半６個の組み合わせ
.Cells(i + 1, 4) = GSide(aa, 1) & HSide(bb, 1) & ISide(cc, 1) & JSide(dd, 1) & KSide(ee, 1) & LSide(ff, 1)
.Cells(i + 1, 5) = Rnd()
Next i

'ランダムに並び替え
.Range("A1:E4096").Sort Key1:=.Range("E1")

'不要な分を削除　４００個のみ残す
.Range("E1:E4096").ClearContents
.Range("A401:D4096").ClearContents

End With
End Sub

回答No.2

go_straight · ベストアンサー

プログラムコードを見る限り、動作上の問題はないように見えます。
となると、動作しないという点はプログラム以外が原因とみる必要があります。

まず、VBマクロの実行は確実に行われている。かの確認が必要となります。
Windowsアップデートの関係でVistaにおいてVBマクロが動作不可になっている可能性があります。また、PCが変わっていることが原因として考えられるものは、VBマクロの作成場所というのも考えられます。
そのため、VBマクロ内において要素要素でブレークポイントをおいて動作確認をしてください。

ブレークポイントを置いても反応することがなく終了してしまう場合は、マクロが実行されていません。

実際、VBはコード以外にも確認をしてみないとわからないので詳細回答はできないのですが、要素を一つずつ潰しながら調べるのがいいと思います。

お礼

回答ありがとうございます。ポイントは「Windowsアップデートの関係でVistaにおいてVBマクロが動作不可になっている可能性があります。」の箇所でした。今回の不具合は、Excelの互換性の問題だったようです。
『Word/Excel/PowerPoint 用 Microsoft Office 互換機能パック』をダウンロードすることで解決できました。ありがとうございました。

回答No.4

dogs_cats

Application.ScreenUpdating = False
Application.ScreenUpdating = true
上記をコメントにして一時作動中止

next i　の前にブレークポイントを挿入して結果を見れば判明するのでは？
i=0でも指定セルには必ず数値が入力されるのであればその数値と数式で検証出来ますよね。変数や数式の結果は下記３つの方法で確認出来ますね。
Debug.Print
ウィッチ式
変数にカーソルを合わせると結果を表示

セルに計算結果を直接入力していますが、変数に格納してデバックすると結果確認が容易になります。

sheet1を表示させてVBAを実行させないと変数及び配列データの取得が出来ないと思います。
冒頭にSheets("sheet2").Select又はactivateでsheet1をアクティブにした方が良いのではないでしょうか。
私はselect、activeは画面切り替えが発生する可能性があるので、withステートメントの方を使用することの方が多いのですが。

結果が何も出ないのであれば、変数の取得が出来ていない可能性があるのではないでしょうか。

デバック方法
http://www.excel-excel.com/vbachair/step1-7.html

お礼

回答ありがとうございます。デバッグにより調べてみました。
結果が何も出ないので、変数の取得が出来ていない可能性があると思われます。

回答No.3

kichi8000

Sheet2の書式や文字色に何か設定はされていませんか。
見えないだけということはありませんか。

お礼

回答ありがとうございます。
Sheet2には特に書式や文字色の設定はしていません。

回答No.1

tanakanono

どこまでできているかステップでチェックしていけばよいのでは？
ASide = Range("A3:A6")　ASideに値は入っているか？
Application.ScreenUpdating = Falseをやめて、
.Cells(i + 1, 3) = ASide(aa, 1) & BSide(bb, 1) & CSide(cc, 1) & DSide(dd, 1) & ESideが実行されて値が入っているか、、、

お礼

回答ありがとうございます。
ご指示どおりステップチェックしてみたところASideに値が入っていませんでした。
そうなってしまう原因を探そうと思います。