2

2 つのワークシートを含むワークブックがあります。ワークシート「Sheet2」には新しい月のデータがあり、ワークシート「監査スコア」はデータのコピー先のシートです。私が書いたコードは、「Sheet2」列 c の機器名をチェックし、「監査スコア」で一致するものを見つけ、Sheet2 列 e から値をコピーして、Audit の適切な行の最後の列に貼り付けることを想定しています。スコア。私が抱えている問題は、「監査スコア」に貼り付けられている値が「Sheet2」の正しい値ではないことです。うまくいけば、間違いは単純なものであり、私はそれに気づいていません.

コードは次のとおりです。

Sub newdata()

Dim x As Variant, y As Long, z As Long, v As Date

LRow = Cells(Rows.Count, 2).End(xlUp).Row
Lcol = Cells(3, Columns.Count).End(xlToLeft).Column
v = Date
Worksheets("Audit scores").Activate
Cells(1, Lcol + 1).EntireColumn.Insert
Cells(1, Lcol + 1).Value = v
For y = 1 To LRow
    For z = 1 To LRow
        If Cells(z, "C").Value = Worksheets("Audit scores").Cells(y, "C").Value Then
            Worksheets("Sheet2").Cells(z, "E").Copy Destination:=Worksheets("Audit scores").Cells(y, Lcol + 1)
        Else:
        End If
    Next z
Next y
End Sub

あなたが私に与えることができるどんな助けにも感謝します.

4

1 に答える 1

1

監査スコアを有効にしましたが、チェックは Sheet2 に対してチェックバックしません。

If Cells(z, "C").Value = Worksheets("Audit scores").Cells(y, "C").Value Then

する必要があります

If Worksheets("Sheet2").Cells(z, "C").Value = _
     Worksheets("Audit scores").Cells(y, "C").Value Then

(読みやすいように 2 行に分割)

于 2013-07-18T13:23:42.970 に答える