マクロが動作しない

質問

Office2003にバージョンアップすると動作しないマクロが出ました。ちゃんと動作するものもあります。

内容は変更していないので内容はあってるはずですが

念のためコピーします。

Sub 電装品()

Dim Gyou As Integer
Dim Gyouz As Integer
Dim State As Integer
Dim Statez As Integer
Dim CelValue As String
Dim CelValuez As String
Dim CopyCelNo As String
Dim CopyCelNoz As String
Dim WS1 As Object
Dim WS2 As Object

Set WS1 = Worksheets("購入品リスト")
Set WS2 = Worksheets("電装品リスト")

WS2.Range("A:G").Delete Shift:=xlToLeft

WS2.Range("B1") = "電 装 品 リ ス ト"
With WS2.Range("B1")
.Font.Bold = True
.Font.Italic = True
.Font.Size = 24
End With

WS2.Range("D1") = "作成日：" & Date

WS1.Range("C3:E3").Copy (WS2.Range("A2:C2"))
State = 3
For Gyou = 1 To 2000
CopyCelNo = "A" & State
CelValue = WS1.Cells(Gyou, 17).Value
If CelValue = "1" Then
WS1.Range(WS1.Cells(Gyou, 3), WS1.Cells(Gyou, 5)).Copy (WS2.Range

(CopyCelNo))
State = State + 1
End If
Next

WS1.Range("G3:J3").Copy (WS2.Range("D2:G2"))
Statez = 3
For Gyouz = 1 To 2000
CopyCelNoz = "D" & Statez
CelValuez = WS1.Cells(Gyouz, 18).Value
If CelValuez = "1" Then
WS1.Range(WS1.Cells(Gyouz, 7), WS1.Cells(Gyouz, 10)).Copy (WS2.Range

(CopyCelNoz))
Statez = Statez + 1
End If
Next

End Sub

回答No.3

bin-chan

> 「デバッグのステップイン」等のことと思うんですが
> ステップ実行はどのようにするんですか
「ステップインからの１行ごとの実行」でＯＫです。
黄色の行が現在行。キーボード上部（奥）のＦ８キーを押すごとに１行ずつ実行して行きます。

何行か進んでから止まる場合はその行と内容を補足してください。
いきなり、マクロ名（Subで始まる行）で止まる場合は未定義の変数がある場合は＃２さんのアドバイスを実行してください。
この場合、旧環境では、VBAコードの記述の最初の方に
Option Explicitが無かった、現在の環境にはある、という状況かも？
＃Option Explicitとは変数の宣言を強制させるオプションです

回答No.2

O_cyan

>動作しないマクロが出ました
メニューのツールのマクロからVisualBasicEditorを起動させデバッグにあるVBAProjectのコンパイルをクリックすれば全てコンパイルされますのでエラー箇所が反転されますのでその箇所を修正していけばマクロが動くようになります。
エラー箇所を全部修正する必要があります。

回答No.1

bin-chan

すべてのマクロが動かないなら別の対応もありますが、
動くものがあるんですね？

ステップ実行するなりして、「どこの行で」「どのようにエラーなのか」を記述してください。

補足

すみません
マクロについてはほとんど知りません。
「デバッグのステップイン」等のことと思うんですが
ステップ実行はどのようにするんですか