[問題] 陣列加速,回傳儲存格
https://goo.gl/KzhEij
目前卡在 陣列資料貼不上N列
另外想問有沒有加速陣列的方式
稅前200p
感恩
(目前參考的資料,其實我看不懂=.=,這個離我太遠了)
Imports jimOfLib
Imports System.Diagnostics
Public Class ThisWorkbook
Private Sub ThisWorkbook_Startup(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Startup
fillArray()
End Sub
Private Sub fillArray()
Dim cell1 As Excel.Range = CType(Globals.Sheet1.Cells(1, 1),
Excel.Range)
Dim cell2 As Excel.Range = CType(Globals.Sheet1.Cells(200, 200),
Excel.Range)
Dim arry(100, 100) As String
Dim arryRange As Excel.Range = Globals.Sheet1.Range(cell1, cell2)
Dim i, j As Integer
Dim sw As New Stopwatch
For i = 0 To 99
For j = 0 To 99
arry(i, j) = (i + j).ToString
Next
Next
sw.Start()
arryRange.Value2 = arry
sw.Stop()
MsgBox(sw.ElapsedMilliseconds.ToString) '共耗 84 豪秒
End Sub
End Class
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.175.20.191
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1481423791.A.47F.html
→
12/11 11:09, , 1F
12/11 11:09, 1F
→
12/11 11:11, , 2F
12/11 11:11, 2F
→
12/11 21:58, , 3F
12/11 21:58, 3F
→
12/12 10:16, , 4F
12/12 10:16, 4F
→
12/12 10:17, , 5F
12/12 10:17, 5F
→
12/12 10:17, , 6F
12/12 10:17, 6F
→
12/12 10:26, , 7F
12/12 10:26, 7F
→
12/12 10:30, , 8F
12/12 10:30, 8F
→
12/12 10:34, , 9F
12/12 10:34, 9F
→
12/12 10:49, , 10F
12/12 10:49, 10F
→
12/12 10:51, , 11F
12/12 10:51, 11F
→
12/13 00:25, , 12F
12/13 00:25, 12F
→
12/13 19:29, , 13F
12/13 19:29, 13F
→
12/13 19:30, , 14F
12/13 19:30, 14F
→
12/13 19:30, , 15F
12/13 19:30, 15F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
