ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°ÝÀx¦s®æ¦P¤@®æªº³¡¤À¦rÁôÂÃ

½Ð°ÝÀx¦s®æ¦P¤@®æªº³¡¤À¦rÁôÂÃ

½Ð°ÝÀx¦s®æ¦P¤@®æªº³¡¤À¦rÁôÂÃ
¨Ò¦p~
A1 ¶ñ¤J¨­¥÷ÃÒ¦r¸¹   F123456789
§Ú»Ý­n¥¦Åã¥Üªº¬O     F1234***89
½Ð°Ý¥i¥H¥ÎÀx¦s®æ®æ¦¡¨Ó³]©w¶Ü?
ÁÂÁÂ~

¦^´_ 1# amber0083


    ­n¸Õ¸ÕVBA¶Ü
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3. On Error Resume Next
  4. With Target
  5.   If .Row > 1 And .Column = 1 Then   '³]©w¢ÏÄæ(A2°_©l)¬°¼Ðªº
  6.      If .Value <> "" Then
  7.         .Value = Left(.Value, 5) & "***" & Right(.Value, 2)
  8.       Else: .Value = ""
  9.      End If
  10.   End If
  11. End With
  12. Application.EnableEvents = True
  13. End Sub
½Æ»s¥N½X

Book1.rar (6.46 KB)

TOP

¦^´_ 1# amber0083


§Ú¥u·|¥Î¨ç¦¡¡A°²³]¨­¤ÀÃÒ¦bA1Àx¦s®æ¡A¥i¦bB1¼¶¼g¤½¦¡
=REPLACE(A1,6,3,"***")

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD