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

myleoyes

¦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!!

freeffly

¦^´_ 1# myleoyes


    range("C2").text = "#NUM!"
    ¬O«ü³o­Ó¶Ü?

register313

¦^´_ 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. 
    
16. Sub §ó¥¿1()
    
17.      MsgBox "§ó¥¿1"
    
18. End Sub
    
19.    
    
20. Sub §ó¥¿2()
    
21.      MsgBox "§ó¥¿2"
    
22. End Sub
    
23.    
    
24. Sub §ó¥¿3()
    
25.      MsgBox "§ó¥¿3"
    
26. 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. 
    
18. Sub §ó¥¿1()
    
19.     MsgBox "§ó¥¿1"
    
20. End Sub
    
21.    
    
22. Sub §ó¥¿2()
    
23.     MsgBox "§ó¥¿2"
    
24. End Sub
    
25.    
    
26. Sub §ó¥¿3()
    
27.     MsgBox "§ó¥¿3"
    
28. End Sub

½Æ»s¥N½X