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

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

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

¦p¦ó¦b¦P¤@Äæ¡A¿é¤J¼Æ¦r«á¡A¦Û°Ê¦b¼Æ¦rªº«e«á¥[¤J¯S©wªº²Å¸¹¡AªþÀÉ: ¼Æ¦r¨ú¥N.rar (3.91 KB)
·PÁ¦Ѯv­Ìªº¸ÑÃDÀ°¦£!

¥»©«³Ì«á¥Ñ 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

¦^´_ 2# owen06

ÁÂÁÂowen06¤jªº¦^µª¡A2ºØ¤èªk¥¿¬O¤p§Ì»Ý­nªº°Ñ¦Ò¡AÁÂÁ§A^^

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD