mycmyc

¦^´_ 13# GBKEE
  ¯à³Â·Ð§A §â¤½¦¡§Y¨Ï¥Î¤èªk ¶K¥X¨Ó¶Ü

GBKEE

¦^´_ 21# mycmyc
±Nµ{¦¡½X½Æ»s¨ì ¤@¯ë¼Ò²Õ (Module) ª«¥ó¤¤
¤u§@ªí«ü¥O [´¡¤J]->¨ç¼Æ-> ¨Ï¥ÎªÌ©w¸q ->  Name_Defend ¨ç¼Æ
Sub ReWord() ¬O¦bsheet1ªºAÄ椤´M§ä½Æ©m

1. Dim GetEeWord As Object
   
2. Function Name_Defend(Word As String) As String
   
3.     Dim N As String
   
4.     If Len(Word) < 2 Then Name_Defend = Word: Exit Function
   
5.     If GetEeWord Is Nothing Then ReWord
   
6.     If GetEeWord.Exists(Mid(Word, 1, 2)) And Len(Word) >= 3 Then
   
7.         Name_Defend = Mid(Word, 1, 2) & "x" & Mid(Word, 4, Len(Word) - 3)
   
8.     Else
   
9.         Name_Defend = Mid(Word, 1, 1) & "x" & Mid(Word, 3, Len(Word) - 2)
   
10.     End If
    
11. End Function
    
12. Sub ReWord()
    
13.     Dim E As Range
    
14.     Application.MacroOptions "Name_Defend", "ÁôÂém¦W²Ä¤G­Ó¦r   ªLx¥¿"
    
15.     Set GetEeWord = CreateObject("Scripting.Dictionary")
    
16.     For Each E In Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants)
    
17.         GetEeWord(E.Value) = ""
    
18.     Next
    
19. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 20# onegirl0204
Function Name_Defend(Word As String) As String
      µ{¦¡¶Ü¤¤
If GetEeWord.Exists(Mid(Word, 1, 2)) And Len(Word) >= 3 Then
      Name_Defend = Mid(Word, 1, 2) & "O" & Mid(Word, 4, Len(Word) - 3)
Else
       Name_Defend = Mid(Word, 1, 1) & "O" & Mid(Word, 3, Len(Word) - 2)
End If

onegirl0204

¦^´_ 23# GBKEE


«D±`·PÁ±zªº«ü¾É¡I§Ú³º¨S·Q¨ì¥h¥¨¶°¨º¸Ì§ä´M¡AÁöµM§Ú¤£·|¼g«ü¥O¡A¦ý¬O¨Ì±zªº«ü¥Ü¥h½s¿è­×§ï­Ë¬O¨S°ÝÃD¡A¤U¦^´ú¸Õ±zªº¤èªk¥i¥HÀ³¥Î¦b¤°»ò¤è­±¡H