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

¼Æ¦r¥[¤J²Å¸¹

¥»©«³Ì«á¥Ñ owen06 ©ó 2015-12-11 16:34 ½s¿è

¤èªk¤@¡G±NÀx¦s®æ®æ¦¡³]¬°¡G¦Û­q¡AÃþ«¬³]¬°¡G"#"@"#"
¤èªk¤G¡GVBAªº¼gªk
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3. With Target
  4.    If .Column = 3 And .Row > 1 Then
  5.    On Error Resume Next
  6.         If .Value = "" Then GoTo 99
  7.      .Value = "#" & .Value & "#"
  8.    End If
  9. End With
  10. 99
  11. Application.EnableEvents = True
  12. End Sub
½Æ»s¥N½X
¦^´_ 1# man65boy

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD