[發問] 兩表比對後將結果輸出

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

31^#

發表於 2022-6-4 20:33 | 只看該作者

回復 30# 准提部林
准大
還能把程式碼再縮短，
這思維跟邏輯真的學不來....
太感謝你了。

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-27

30^#

發表於 2022-6-3 21:40 | 只看該作者

'If UCase(xD(T)(1)) = "DR" Then
' If Arr(i, 10) > Arr(i, 11) Then
'       Brr(M, 7) = Brr(M, 7) + Arr(i, 10)
' Else
'       Brr(M, 7) = Brr(M, 7) + Arr(i, 11)
' End If
' ElseIf UCase(xD(T)(1)) = "CR" Then
' If Arr(i, 10) > Arr(i, 11) Then
'       Brr(M, 7) = Brr(M, 7) - Arr(i, 10)
' Else
'       Brr(M, 7) = Brr(M, 7) - Arr(i, 11)
' End If
' End If

>>>>>
If UCase(xD(T)(1)) = "DR" Then S = 1 Else S = -1
If Arr(i, 10) > Arr(i, 11) Then C = 10 Else C = 11
Brr(M, 7) = Brr(M, 7) + Arr(i, C) * S

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

29^#

發表於 2022-6-3 21:01 | 只看該作者

回復 28# shuo1125
慶大
太感謝了..還將連結告知，
這論壇不但聚集很多高手，還能毫不保留的指導，
真心感激。

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

28^#

發表於 2022-6-3 20:58 | 只看該作者

回復 26# 准提部林
准大
連准大都出現了...你給予我很大的啟發，
但你的思路及邏輯實在太變化莫測，
對我這新手來說難度真的太高...
謝謝您不吝的解說。

singo1232001

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

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

27^#

發表於 2022-6-3 18:35 | 只看該作者

本帖最後由 singo1232001 於 2022-6-3 18:41 編輯

回復 25# shuo1125

陣列貼回工作表
來源台大ptt
https://www.ptt.cc/bbs/Visual_Basic/M.1485488105.A.DB6.html

教學陣列概念視覺化v3.zip (10.35 KB)

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-27

26^#

發表於 2022-6-3 11:36 | 只看該作者

粗淺的說
Dim Arr, Brr(), Crr(9,9)

(1)
Arr 是Variant, 可以賦于單一元素, 或儲存格範圍成一陣列, 或Redim為一個陣列
例:Arr=9, Arr="abc", Arr=range("A1:E9"), Redim Arr(1 to 9, 1 to 3)
不管Arr已被賦于何種型態及內容, 其後仍可直接對其賦于其它型態及內容,
當用 Arr = Crr, 也是可以接收其它"己定義且存在"的陣列,

如果被定為陣列, 最後要釋放其佔用的記憶體時, 若用 Erase Arr, 則它還是陣列型態, 只是沒有大小,
當然, 它還是可以再賦于任何內容, 如 Arr = Empty (初始化)
__它是紙漿, 可以製成任何所需, 回收時變成紙漿

(2)
Brr(), 為陣列, 只是還沒定大小, 而且只能用于陣列, 就像一塊地已規劃蓋房子, 還沒定出蓋幾層及隔間, 除了房子不可挪作它用,
其間可以在任何時候重新定義其大小及維度, 如 Redim Brr(9), 每次重定義, 前身資料即消失,
若要保留前資料, 且擴展空間, 可用 ReDim Preserve , 但只可以改變最後一個維度的上標界，而不能改變維數。
可用 Erase Brr 釋放資料, 但後續要用, 得重新定義!!
__它是一張紙, 無法裝東西, 可以折成任何型狀及大小去裝東西, 恢復時還是一張紙!!!

(3)
Crr(9, 9) ,為固定大小的陣列, 這應不需說明, Erase Crr 釋放資料, 但只是清空內容, 大小還是一樣
__它是個紙箱, 可裝固定大小的東西, 倒掉全部再繼續用

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

25^#

發表於 2022-6-2 21:41 | 只看該作者

回復 23# singo1232001
慶大
你舉的例子陣列說明得很詳盡...
連我這一竅不通的都能大致上理解，
謝謝您抽空回復！

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

24^#

發表於 2022-6-2 21:30 | 只看該作者

回復 22# lpk187
lpk大
大概了解了，因非相關科系所以對程式語言很陌生...
故在解讀上可能誤解，謝謝您還特意關注回復。

singo1232001

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

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

23^#

發表於 2022-6-2 15:45 | 只看該作者

本帖最後由 singo1232001 於 2022-6-2 16:00 編輯

回復 21# shuo1125

用魔獸世界遊戲包包的概念包包內可放任何東西    包括新的包包
dim  br 是 1格包包
redim  br(3,3 ) 是16格包包是4x4(像真實遊戲顯示那樣)
dim  br(15) 也是 16格包包  包包是一條從上到下1234567....16格

' dim  br(3) : dim ar(3) : for i = 0 to 3 : br(i)=ar  : next
br(3)(3) 也是4格包包內放入4格包包  也是4x4  16格

用檔案總管資料夾當概念資料夾內可以放任何東西  包括新資料夾
  dim br 是一個資料夾只能放一樣
  redim br(3,3) 可以放16樣 4x4(類似大圖示的瀏覽方式)
  dim br(15)  資料夾內可以讓你放16個 (類似從上到下詳細清單模式)

  一樣可以br(3)(3)