找對應字元問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-10-24 13:54 | 顯示全部帖子

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-10-24 14:46 | 顯示全部帖子

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2010-10-24 15:04 | 顯示全部帖子

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

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

Sub Ex()
Application.MacroOptions Macro:="WordCheck", Description:="W1 要比對的字元 ,W2 被比對的字元"
End Sub
Function WordCheck(W1 As String, W2 As String)
'W1 要比對的字元 'W2 被比對的字元
Dim i As Integer, Ar()
ReDim Ar(1 To Len(W1))
For i = 1 To Len(W1)
If IsError(Application.Find(Mid(W1, i, 1), W2)) Then
WordCheck = ""
Exit Function
Else
Ar(i) = Application.Find(Mid(W1, i, 1), W2)
End If
Next
If Application.Max(Ar) - Application.Min(Ar) <> Len(W1) - 1 Then
WordCheck = ""
Exit Function
End If
WordCheck = 1
End Function

複製代碼

靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。