| ©«¤l396 ¥DÃD12 ºëµØ0 ¿n¤À425 ÂI¦W0  §@·~¨t²ÎWin10 ³nÅ骩¥»Office 2016 ¾\ŪÅv20 ©Ê§O¨k ¨Ó¦Û¥x¤¤ µù¥U®É¶¡2013-7-2 ³Ì«áµn¿ý2024-8-23 
   
 | 
                
| ¥»©«³Ì«á¥Ñ owen06 ©ó 2015-12-11 16:34 ½s¿è 
 ¤èªk¤@¡G±NÀx¦s®æ®æ¦¡³]¬°¡G¦Ûq¡AÃþ«¬³]¬°¡G"#"@"#"
 ¤èªk¤G¡GVBAªº¼gªk
 ¦^´_ 1# man65boy½Æ»s¥N½XPrivate Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 With Target
   If .Column = 3 And .Row > 1 Then
   On Error Resume Next
        If .Value = "" Then GoTo 99
     .Value = "#" & .Value & "#"
   End If
 End With
99
Application.EnableEvents = True
End Sub
 | 
 |