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

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

¦^´_ 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

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD