PKKO

　暱稱: PKKO

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-5-6 10:12 | 只看該作者

[發問] 宣告問題

超版大大們都會使用Option Explicit 來限制程式碼一定要宣告

但想請教一下,下面這行程式碼是rng=某位置的陣列,我要如何可以宣告出rng陣列的內容值都是BYTE呢?
rng=[a1].resize[7,7]
a=rng(1,1)
我原本的寫法會出現錯誤
dim rng as byte
或是dim rng() as byte

樓主熱帖

PKKO

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-5-6 16:46 | 只看該作者

回復 1# PKKO
dim rng() as byte 沒錯啊，但你要賦值時要用CByte轉換

Option Explicit
Sub Test()
Dim i, j
Dim x(1 To 7, 1 To 7) As Byte
With [a1].Resize(7, 7)
For i = 1 To UBound(x)
For j = 1 To UBound(x, 2)
x(i, j) = CByte(.Cells(i, j).Value)
Next
Next
End With
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2015-5-6 23:37 | 只看該作者

回復 2# stillfish00

我剛測試,會失敗

但若真要如此,似乎宣告為BYTE有點辛苦,而且速度上無法增加多少對嗎?

PKKO

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2015-5-7 20:17 | 只看該作者

回復 3# PKKO
1.  並非程式碼較長或使用迴圈速度一定就比較慢
2.  速度快不快是看你怎麼運算..如果只是取出7x7的值根本不用考慮到速度
3.  Byte類型的計算會比Integer快 , 你確定嗎?

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2015-5-8 17:15 | 只看該作者

本帖最後由 PKKO 於 2015-5-8 17:18 編輯

回復 4# stillfish00

S大您好

我並不確定BYTE會比integer快

因為我自己實驗的時候發現,沒宣告居然還比宣告為BYTE之後快= =?

我不曉得原因在哪~

主要是針對下列程式碼

一個7*7的陣列

想要一次七個比對一組六個號碼
看有幾個號碼符合

若符合用陣列將值記憶起來

下方是我的程式碼?

不曉得有沒有可以一次比對的程式碼?
或是比下方更快的程式碼?