§ä¹ïÀ³¦r¤¸°ÝÃD

basarasy

½Ð°Ý¤j¤j¦³¤°»ò¤èªk¥i¥H§ä¥XA4:A10ªº¸ê®Æ¤º¦³ A1¹ïÀ³¦r¤¸ªº´N¦bB:B ¥X1.

GBKEE

¦^´_ 1# basarasy
b4=IF(ISERROR(FIND($A$1,A4)),"",1)  ¤U©Ô

basarasy

¦^´_ 2# GBKEE


    ÁÂÁ¤j¤j.
¦ý B10¨S¦³¥X1.

GBKEE

¦^´_ 3# basarasy
§A¬O­n§ä¥XA1ÀH·N±Æ¦Cªº¤å¦r¶Ü?
³o¦ÒÃD¦³²`«×«Ý§Ú·Q·Q!!

GBKEE

¦Û­q¨ç¼Æ
1]½Ð±Nµ{¦¡½X,½Æ»s¨ìModule¤@¯ë¼Ò²Õ¤¤«á,°õ¦æSub Ex
2¤u§@ªí B4  =WordCheck($A$1,A4) ¤U©Ô

1. Sub Ex()
   
2. Application.MacroOptions Macro:="WordCheck", Description:="W1 ­n¤ñ¹ïªº¦r¤¸ ,W2 ³Q¤ñ¹ïªº¦r¤¸"
   
3. End Sub
   
4. Function WordCheck(W1 As String, W2 As String)
   
5.     'W1 ­n¤ñ¹ïªº¦r¤¸  'W2 ³Q¤ñ¹ïªº¦r¤¸
   
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

½Æ»s¥N½X

basarasy

¦^´_ 5# GBKEE
ÁÂÁÂGBKEE¤j¤j.
³o­Ó¦Û­q¨ç¼Æ¤Ó±j¤j¤F.