返回列表 上一主題 發帖

[發問] 請教迴圈寫法

[發問] 請教迴圈寫法

各位前輩好         
請問若要將以下資料改成為迴圈的形式將如何編寫
謝謝

Dim key1 As String

Dim key2 As String

Dim key3 As String

key1 = "NS_RAY[nsRayGrid_73.r1].NS_SEGMENT[segment_1]"

key2 = "NS_RAY[nsRayGrid_73.r2].NS_SEGMENT[segment_1]"

key3 = "NS_RAY[nsRayGrid_73.r3].NS_SEGMENT[segment_1]"


X1 = LT.DbGet(key1, "Global_X")

X2 = LT.DbGet(key2, "Global_X")

X3 = LT.DbGet(key3, "Global_X")


Cells(1, 1).Value = X1

Cells(1, 2).Value = X2

Cells(1, 3).Value = X3

我覺得可以將陣列作變數來使用。
9.PNG
2022-4-27 14:45

TOP

        靜思自在 : 盡多少本份,就得多少本事。
返回列表 上一主題