標題: 找對應字元問題 [打印本頁]

---

作者: basarasy    時間: 2010-10-24 12:18     標題: 找對應字元問題

請問大大有什麼方法可以找出A4:A10的資料內有 A1對應字元的就在B:B 出1.

---

作者: GBKEE    時間: 2010-10-24 13:54

回復 1# basarasy
b4=IF(ISERROR(FIND($A$1,A4)),"",1)  下拉

---

作者: basarasy    時間: 2010-10-24 14:01

回復 2# GBKEE


    謝謝大大.
但 B10沒有出1.

---

作者: GBKEE    時間: 2010-10-24 14:46

回復 3# basarasy
你是要找出A1隨意排列的文字嗎?
這考題有深度待我想想!!

---

作者: GBKEE    時間: 2010-10-24 15:04

本帖最後由 GBKEE 於 2010-10-24 15:29 編輯

自訂函數
1]請將程式碼,複製到Module一般模組中後,執行Sub Ex
2工作表 B4  =WordCheck($A$1,A4) 下拉

1. Sub Ex()
   
2. Application.MacroOptions Macro:="WordCheck", Description:="W1 要比對的字元 ,W2 被比對的字元"
   
3. End Sub
   
4. Function WordCheck(W1 As String, W2 As String)
   
5.     'W1 要比對的字元  'W2 被比對的字元
   
6.     Dim i As Integer, Ar()
   
7.     ReDim Ar(1 To Len(W1))
   
8.     For i = 1 To Len(W1)
   
9.         If IsError(Application.Find(Mid(W1, i, 1), W2)) Then
   
10.             WordCheck = ""
    
11.             Exit Function
    
12.         Else
    
13.             Ar(i) = Application.Find(Mid(W1, i, 1), W2)
    
14.         End If
    
15.     Next
    
16.     If Application.Max(Ar) - Application.Min(Ar) <> Len(W1) - 1 Then
    
17.             WordCheck = ""
    
18.             Exit Function
    
19.     End If
    
20.     WordCheck = 1
    
21. End Function

複製代碼

---

作者: basarasy    時間: 2010-10-24 16:23

回復 5# GBKEE
謝謝GBKEE大大.
這個自訂函數太強大了.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)