- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 84
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-4-8
               
|
回復 3# oak0723-1 - Private Sub CommandButton2_Click()
- Dim a, r%, i%, arr()
- a = Sheets("1").[c10].CurrentRegion
- r = 1
- For i = 1 To UBound(a)
- ReDim Preserve arr(1 To 3, 1 To r)
- arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
- r = r + 6
- Next
- [j9] = r
- For j = 1 To UBound(arr, 2)
- For i = 1 To 3
- mystr = mystr & "," & arr(i, j)
- Next: Next
- MsgBox mystr
- End Sub
- Private Sub CommandButton3_Click()
- Dim a, r%, i%, arr()
- a = Sheets("1").[c10].CurrentRegion
- r = 1
- For i = 1 To UBound(a)
- ReDim arr(1 To 3, 1 To r)
- arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
- r = r + 6
- Next
- [j12] = r
- For j = 1 To UBound(arr, 2)
- For i = 1 To 3
- mystr = mystr & "," & arr(i, j)
- Next: Next
- MsgBox mystr
- End Sub
|
|
發表於 2010-9-9 10:25
| 
