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

如何以公式將文字的形式轉換，然後去搜尋對照的料號呢？

謝謝

活頁簿2.rar (10.26 KB)

樓主熱帖

samwang

大學生 Rank: 4

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

2^#

發表於 2021-8-21 00:09 | 只看該作者

回復 1# wayne0303

不好意思看不太懂，可否解釋詳細一點，謝謝

TOP

wayne0303

中學生 Rank: 2

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

3^#

發表於 2021-8-21 00:54 | 只看該作者

回復 2# samwang

抱歉！samwang大

LR220仰角25°轉180° →LR220/25 對照表格為左螺旋底下的213
RR230仰角30°轉180° →RR230/30 對照表格為右螺旋底下的124
RR230仰角20°轉180° →RR230/20 對照表格為右螺旋底下的122
R390轉90°→R390 對照表格為平彎底下的318

用公式找出對照出來的213、124、122、318...這些數字

這樣...不知道您能看得懂嗎(汗)

TOP

samwang

大學生 Rank: 4

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

4^#

發表於 2021-8-21 09:14 | 只看該作者

回復 3# wayne0303

請測試看看，謝謝

Sub test()
Dim Arr, xD, T$, w1$, w2$, i&, j&, k%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range("d3:w16")
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
Arr = Range("a5:a" & [a5].End(4).Row)
For i = 1 To UBound(Arr)
w1 = Left(Arr(i, 1), 1)
w2 = Mid(Arr(i, 1), 2, 1)
If Asc(w1) > 64 And Asc(w1) < 123 And Asc(w2) > 64 And Asc(w2) < 123 Then
      If UCase(w1) = "L" Then
         T = Mid(Arr(i, 1), 2, 4) & "/" & Mid(Arr(i, 1), 8, 2) & "_" & 2
         Arr(i, 1) = xD(T)
      End If
      If UCase(w1) = "R" Then
         T = Mid(Arr(i, 1), 2, 4) & "/" & Mid(Arr(i, 1), 8, 2) & "_" & 1
         Arr(i, 1) = xD(T)
      End If
Else
      T = Left(Arr(i, 1), 4) & "_" & 3
      Arr(i, 1) = xD(T)
End If
Next
Range("b5").Resize(UBound(Arr)) = Arr
End Sub

TOP

hcm19522

大學生 Rank: 4

帖子: 1391
主題: 4
精華: 0
積分: 1401
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-12-16

熱烈參與勳章

5^#

發表於 2021-8-21 10:55 | 只看該作者

C5=OFFSET(C$1,IF(LEFT(A5)="L",8,IF(LEFT(A5,2)="RR",2,14)),MATCH(MID(SUBSTITUTE(A5,"仰角","/"),1+(MID(A5,2,1)="R"),4+(MID(A5,2,1)="R")*3),OFFSET(D$1,IF(LEFT(A5)="L",9,IF(LEFT(A5,2)="RR",3,15)),,,20),))

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

wayne0303