stillfish00

回復 7# mark15jill

        '        For kkex = 0 To 2
        '        txt1(kkex, 0).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 2).value  (B~D欄位)
        '        txt1(kkex, 1).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 5).value  (E~G欄位)
        '        txt1(kkex, 2).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 8).value  (H~J欄位)
        '        Next
想要將 那三行 合併成一行

為何要合併 , 合併不會比較清楚
For i = 0 to 8
     txt1(int(i/3), i mod 3).Text = oSheet.cells(cmbox(2).Text + 1, Int(i / 3) + 3 * (i Mod 3) + 2).value
Next