For j = 0 To wcData.Tables(0).Rows.Count - 1
For i = 900 To 1700
wcData.Tables("db").Rows(j)("range") = i
Next
Next
「範囲」の各列セルに「i」を挿入しようとしています
なにか提案を。
ありがとう。
For j = 0 To wcData.Tables(0).Rows.Count - 1
For i = 900 To 1700
wcData.Tables("db").Rows(j)("range") = i
Next
Next
「範囲」の各列セルに「i」を挿入しようとしています
なにか提案を。
ありがとう。
Dim rowOffset As Integer = 900;
For j = 0 To wcData.Tables(0).Rows.Count - 1
wcData.Tables("db").Rows(j).Item("range") = rowOffset + j
Next
Dim rowOffset As Integer = 900
For j = 0 To wcData.Tables(0).Rows.Count - 1
wcData.Tables("ratingout").Rows(j).Item("range") = rowOffset + j
If i >= 1700 Then
Exit For
End If
Next
これは今のところうまくいきました。ありがとう