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

¨Ì¾ÚÀx¦s®æªº¿ù»~­È°õ¦æµ{¦¡

¨Ì¾ÚÀx¦s®æªº¿ù»~­È°õ¦æµ{¦¡

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!°ÝÃD¦p¤U:
          ¦pªGC2=#NUM!®É°õ¦æ(¦Û°Ê®Õ¥¿)µ{¦¡
          Sub ¦Û°Ê®Õ¥¿()
               ¦pªGC2 = #NUM!°õ¦æSub §ó¥¿1()
               µ²ªGC2ÁÙ¬O = #NUM¦A°õ¦æSub §ó¥¿2()
               C2ÁÙ¬O = #NUM¦A°õ¦æSub §ó¥¿3()
              °õ¦æ3¦¸«á µ²ªGC2ÁÙ¬O = #NUMµ{¦¡¥X²{´£¥Ü
               MsgBox "­ì©lªº¸ê®Æ¦³»~": End
          End Sub
          ·§©À¤j·§¦p¦¹!¤£ª¾³o­Ó¦Û°Ê®Õ¥¿µ{¦¡¦p¦ó¼g?
          ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

¦^´_ 1# myleoyes


    range("C2").text = "#NUM!"
    ¬O«ü³o­Ó¶Ü?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2012-1-31 21:22 ½s¿è

¦^´_ 1# myleoyes
  1. Sub ¦Û°Ê®Õ¥¿()
  2.     If IsError(Range("C2")) Then
  3.        §ó¥¿1
  4.     End If
  5.     If IsError(Range("C2")) Then
  6.        §ó¥¿2
  7.     End If
  8.     If IsError(Range("C2")) Then
  9.        §ó¥¿3
  10.     End If
  11.     If IsError(Range("C2")) Then
  12.        MsgBox "­ì©lªº¸ê®Æ¦³»~"
  13.     End If
  14. End Sub

  15. Sub §ó¥¿1()
  16.      MsgBox "§ó¥¿1"
  17. End Sub
  18.    
  19. Sub §ó¥¿2()
  20.      MsgBox "§ó¥¿2"
  21. End Sub
  22.    
  23. Sub §ó¥¿3()
  24.      MsgBox "§ó¥¿3"
  25. End Sub
½Æ»s¥N½X
¤u§@ªí¼Ò²Õ
  1. Private Sub worksheet_change(ByVal target As Range)
  2.   If target.Address = "$C$2" Then
  3.     If IsError(Range("C2")) Then
  4.        §ó¥¿1
  5.     End If
  6.     If IsError(Range("C2")) Then
  7.        §ó¥¿2
  8.     End If
  9.     If IsError(Range("C2")) Then
  10.        §ó¥¿3
  11.     End If
  12.     If IsError(Range("C2")) Then
  13.        MsgBox "­ì©lªº¸ê®Æ¦³»~"
  14.     End If
  15.   End If
  16. End Sub

  17. Sub §ó¥¿1()
  18.     MsgBox "§ó¥¿1"
  19. End Sub
  20.    
  21. Sub §ó¥¿2()
  22.     MsgBox "§ó¥¿2"
  23. End Sub
  24.    
  25. Sub §ó¥¿3()
  26.     MsgBox "§ó¥¿3"
  27. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD