返回列表 上一主題 發帖

[發問] 宣告問題

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2015-5-6 16:46 | 顯示全部帖子
回復 1# PKKO
dim rng() as byte 沒錯啊，但你要賦值時要用CByte轉換
  1. Option Explicit
  2. Sub Test()
  3.     Dim i, j
  4.     Dim x(1 To 7, 1 To 7) As Byte
  5.    
  6.     With [a1].Resize(7, 7)
  7.         For i = 1 To UBound(x)
  8.             For j = 1 To UBound(x, 2)
  9.                 x(i, j) = CByte(.Cells(i, j).Value)
  10.             Next
  11.         Next
  12.     End With
  13. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-5-7 20:17 | 顯示全部帖子
回復 3# PKKO
1.  並非程式碼較長或使用迴圈速度一定就比較慢
2.  速度快不快是看你怎麼運算..如果只是取出7x7的值根本不用考慮到速度
3.  Byte類型的計算會比Integer快 , 你確定嗎?
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題