1

ネストされたループはポイントを取得し、その説明を見つけて別の列に書き込む必要があります。私が抱えている問題は、 からの値のみB20が に書き込まれることC10:C20です。4行目を に変更するb.valueと、出力では正しく機能しますが、列が間違っているため、ループの問題だと思いますが、解決策がわかりません。

For Each b In Worksheets("Device").Range("B10:B20").Cells
    For Each c In Worksheets("Device").Range("C10:C20").Cells
        Set pt = srv.PIPoints(b.Value)
        c.Value = pt.PointAttributes.Item("descriptor")
    Next
Next
4

1 に答える 1

3

代わりにこれを使用してみてください：

For Each b in WorkSheets("Device").Range("B10:B20").Cells   
    Set pt = srv.PIPoints(b.Value)
    b.Offset(,1).Value = pt.PointAttributes.Item("descriptor")
Next

whereは、b.Offset(,1)から 1 列右のセルを示します。bbB11b.Offset(,1)C11

于 2014-03-04T20:26:21.053 に答える