ªð¦^¦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 : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD