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

[­ì³Ð] Excel VBA ¿ù»~³B²z¬yµ{(¥þ¹Ï¸Ñ)

¥»©«³Ì«á¥Ñ quickfixer ©ó 2018-5-24 00:52 ½s¿è

¸É¥R¡G¤£¦n·N«ä,µo¤å«á¤~µo²{,§Aªº±Ð¾Ç¸Ì­±´N¦³Err.Description,¦hµo¤F¤@½g¼o¤å

³o¼Ë´N¥i¥H¥Îerr.number  ¿ù»~¥N½X
¤]¥i¥H¥Îerr.description ¿ù»~°T®§

¬Ý¬O­n¥Î¤°»òmsgbox ´£¥Ü,ÁÙ¬O­«¶]µ{¦¡
  1. Sub test()

  2.     On Error GoTo checkid
  3.    
  4.         ' µ{¦¡½X
  5.    
  6.    
  7.    
  8.     Exit Sub
  9.    



  10. checkid:

  11.     If Err.Number <> 0 Then
  12.         Debug.Print Err.Description
  13.         Debug.Print Err.Number
  14.     End If

  15. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD