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

¨Ï¥Î ¸ê®Æ>ÅçÃÒ>Àx¦s®æªº¤U©Ô¦¡²M³æ¡A¥i¥HÅý¤U©ÔÅã¥Üµ¡®æ¼W¥[¦C¼Æ¶Ü?

¥»©«³Ì«á¥Ñ FAlonso ©ó 2010-12-14 12:25 ½s¿è
  1. If Not prvTarget Is Nothing Then
  2.        If Not oDpd Is Nothing Then
  3.            If oDpd.value = 0 Then
  4.                prvTarget.value = vbNullString
  5.            Else
  6.                prvTarget.value = Range(Mid(sFml1, 2)).Item(oDpd.value)
  7.            End If
  8.            Set prvTarget = Nothing
  9.        End If
  10.    End If

  11.    On Error Resume Next
  12.    oDpd.Delete
  13.    sFml1 = vbNullString
  14.    Set oDpd = Nothing
  15.    On Error GoTo 0
½Æ»s¥N½X
³o¬qµ{¦¡«ç»ò¸Ñ,·Q¤F«Ü¤[³£¨SÀYºü
ÁÙ¦³³o­ÓVBA¦ü¥G¦³¤@­Ó«á¿ò¯g,´N¬O·íclick¦³¤U©Ô¦¡²M³æ®æ¤l®É,¥¦·|¦Û°Ê¼W¥[¤@­Ó¤U©Ô¦¡²M³æ(¤Î¨ä½s¸¹¤]¸`¸`¤W¤É),·d±o¸Ó®æ¤lº¡¬O²M³æ,²V¶Ã¦Ü·¥
¦³¨S¦³¿ìªk§â²M³æªº.listfullrange¤Î.dropdownlines³]©wreplace±¼´Nºâ¤F?
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD