轉換文字形式搜尋 - Excelㄧ般區

wayne0303

中學生 Rank: 2

帖子: 86
主題: 15
精華: 0
積分: 148
點名: 48
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2024-4-18

11^# 跳轉到 »

發表於 2021-8-30 23:54 | 只看該作者

本帖最後由 wayne0303 於 2021-8-31 00:09 編輯

回復 4# samwang

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

R是3~4位數字

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

12^#

發表於 2021-8-31 07:17 | 只看該作者

本帖最後由 samwang 於 2021-8-31 07:19 編輯

回復 samwang

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

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

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

擷取1.PNG (137.39 KB)

TOP

wayne0303

中學生 Rank: 2

帖子: 86
主題: 15
精華: 0
積分: 148
點名: 48
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2024-4-18

13^#

發表於 2021-8-31 08:42 | 只看該作者

回復 12# samwang

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

謝謝

2021-08-31_081911.jpg (118.24 KB)

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

14^#

發表於 2021-8-31 10:22 | 只看該作者

回復 13# wayne0303

請再測試看看，謝謝

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

轉換文字形式搜尋_0831.zip (394.62 KB)

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

15^#

發表於 2021-8-31 11:25 | 只看該作者

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))

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

wayne0303

中學生 Rank: 2

帖子: 86
主題: 15
精華: 0
積分: 148
點名: 48
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2024-4-18

16^#

發表於 2021-8-31 14:22 | 只看該作者

回復 15# ML089

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

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

17^#

發表於 2021-8-31 18:09 | 只看該作者

回復 16# wayne0303

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

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

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

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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

wayne0303

中學生 Rank: 2

帖子: 86
主題: 15
精華: 0
積分: 148
點名: 48
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2024-4-18

18^#

發表於 2021-8-31 18:28 | 只看該作者

回復 17# ML089

回復 wayne0303

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

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

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

非常謝謝大大幫忙~

TOP

wayne0303

中學生 Rank: 2

帖子: 86
主題: 15
精華: 0
積分: 148
點名: 48
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2024-4-18

19^#

發表於 2021-8-31 19:37 | 只看該作者

回復 14# samwang

samwang大大~

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

謝謝

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

20^#

發表於 2021-9-1 07:11 | 只看該作者

回復 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
....
...
....

TOP

[發問] 轉換文字形式搜尋

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]