wayne0303

回復 4# samwang

報告samwang大！
  我執行完沒東西吔...

R是3~4位數字

samwang

回復  samwang

報告samwang大！
  我執行完沒東西吔...

R是3~4位數字
wayne0303 發表於 2021-8-30 23:54

如附件圖片，我執行沒問題依據4#程式碼，結果在B欄，請再確認，謝謝。

wayne0303

回復 12# samwang


感謝samwang大！但
   1.如圖現在遇到仰角是個位數字跟R為4位數字就搜尋不到
   2.如果我的表格是必需引用到外部的表格那我要改代碼的哪邊呢？
   3.用"模組"的話有辦法按個滑鼠的右鍵或左鍵就更新數值 或是 數值有變更就可立即更新數值(不需關掉檔案再開)？

   謝謝

samwang

回復 13# wayne0303

請再測試看看，謝謝

   1.如圖現在遇到仰角是個位數字跟R為4位數字就搜尋不到  >> 已更新如附件
   2.如果我的表格是必需引用到外部的表格那我要改代碼的哪邊呢？ >> 程式碼有備註需要更改的地方(第1段)
   3.用"模組"的話有辦法按個滑鼠的右鍵或左鍵就更新數值 或是 數值有變更就可立即更新數值(不需關掉檔案再開)？  >>已更新，當A5~A65536有更新會自動更新

ML089

C5 陣列公式
=MAX(IF(SUBSTITUTE(SUBSTITUTE(LEFT(A5,FIND("轉",A5)-1),"仰角","/"),"°",)=({"R";0;0;0;0;0;"L";0;0;0;0;0;""}&D$4:W$16),D$3:W$15))

wayne0303

回復 15# ML089


感謝ML089大大 的超簡潔公式~
但我引用外部表格的時候會出現#N/A

ML089

回復 16# wayne0303

公式就是麻煩，只要移動一下就需要修改

最好資料位置，公式位置要跟你元資料一樣，這拿回去才能直接套用。

先試試放入你原先的樣本EXCEL是否OK

真的不會改再重新PO一下目前的資料格式

wayne0303

回復 17# ML089

   

回復  wayne0303

公式就是麻煩，只要移動一下就需要修改

最好資料位置，公式位置要跟你元資料一樣， ...
ML089 發表於 2021-8-31 18:09

哈哈~ML089大大，公式是比較好了解啦，不然我ｖｂａ完全苦手，沒基底也看不太懂...
我剛試改了一下可以套用了

非常謝謝大大幫忙~

wayne0303

回復 14# samwang


samwang大大~

2.如果我的表格是必需引用到外部的表格那我要改代碼的哪邊呢？ 這個部分例如我要引用的外部表格在D:\資料夾123\活頁簿abc 裡的 "d3:w16" 這個範圍該怎麼寫呢？

謝謝

samwang

回復  samwang


samwang大大~

2.如果我的表格是必需引用到外部的表格那我要改代碼的哪邊呢？ 這個 ...
wayne0303 發表於 2021-8-31 19:37

修改如紅字部分，請測試看看，謝謝
Sub 更新()
Dim Arr, xD, T1$, T2$, T$, w1$, w2$, i&, j&, k%
Set xD = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set WB = Workbooks.Open("D:\資料夾123\活頁簿abc.xlsx")
Arr = Range("d3:w16")
WB.Close

For i = 2 To UBound(Arr) Step 6
    k = k + 1
    For j = 1 To UBound(Arr, 2)
        T = Arr(i, j): If T = "" Then GoTo 99
        xD(T & "_" & k) = Arr(i - 1, j)
    Next j
99: Next i
....
...
....