- 帖子
- 5
- 主題
- 2
- 精華
- 0
- 積分
- 7
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- win10
- 閱讀權限
- 10
- 註冊時間
- 2021-11-11
- 最後登錄
- 2022-4-25
|
各位前輩好
請問若要將以下資料改成為迴圈的形式將如何編寫
謝謝
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 |
|
發表於 2022-4-24 10:19
| 
