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

[µo°Ý] Ãö©ó on error resume next

[µo°Ý] Ãö©ó on error resume next

On Error Resume Next '¹J¿ù»~­nÄ~Äò°õ¦æ
Reset:
x = InputBox("½Ð¿é¤J¹wÂsÄý¤§±Æµ{¤é´Á", , "½Ð¿é¤J¤é´Á <¨Ò¦p 1007 1010 >")
ActiveWorkbook.FollowHyperlink "http://zipsum/fileupload/LCD6RPT/01.«e±Æµ{¬ÛÃö¸ê°T/00.LCD6%20«e¬q±Æµ{%20Watch%20This%20!!/201510/LCD6%20¥Í²£±Æµ{%20»P%20Watch%20This" & x & "«e±Æª©.xls"
If Err.Number <> 0 Then '­Y«e­±¦³µo¥Í¿ù»~
result = MsgBox(prompt:=Err.Description & vbCrLf & vbCrLf & "­nÄ~Äò°õ¦æ¶Ü?", _
Buttons:=vbYesNo, Title:="µo¥Í¿ù»~", HelpFile:=Err.HelpFile, Context:=Err.HelpContext)
GoTo Reset
If Not result = vbYes Then Exit Sub '­Y«ö "§_" ´Nµ²§ô
End If
End Sub

¤p§Ìªº°ÝÃD¦b©ó¦pªG¥X²{¿ù»~¡A«ö§_À³¸Ó¬O·|µ²§ô¡Aµ²ªG¥LÅܦ¨µL­­°j°é¡A­«Âаõ¦æinputbox
¯à§_½Ð¦U¦ì¹F¤HÀ°À°¦£¡@À°¤p§Ì­×§ï¤@¤U  ¥X²{¿ù»~ «ö¬O­«·s°õ¦æ «ö§_ª½±µÂ÷¶}
¥t¤@°Ý ¦pªGÀɮפ¤¦³ºô­¶ªº§ó·s³sµ²°T®§,¬O§_¤]·|³Q·í¦¨¬O¿ù»~¥N½X ±a¤J on error ¤¤©O??

·PÁ¦U¦ìªºÀ°¦£ ¯uªº¨S·Q¨ì¥u¬O¤@­Ó¶¶§Çªº°ÝÃD ³ºµM¯à¾É­PµL­­°j°é
¤p§Ì¨ü±Ð¤F ¤j®a¤Ó§Q®`¤F ÁÂÁÂ

TOP

¦^´_ 1# feecshyrnd

    If Not result = vbYes Then Exit Sub '­Y«ö "§_" ´Nµ²§ô
    Err.Clear     '²M°£ Err
    GoTo Reset
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 1# feecshyrnd
µ{¦¡ªº°»¿ù
vbaµøµ¡ -> ­n°»¿ùªº¼Ò²Õ->·Æ¹«²¾¨ì­n°»¿ùµ{§Ç¤¤
«öF8³v¨B°õ¦æ¬Ý¦¨¬O¦p¦ó°õ¦æµ{¦¡½X

¹Ï¥Ü¬d¬ÝÅܼÆ



·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 1# feecshyrnd
  1. GoTo Reset
  2. If Not result = vbYes Then Exit Sub '­Y«ö "§_" ´Nµ²§ô
½Æ»s¥N½X
§â³o¤G¥y¶¶§Ç¹ï½Õ´N¦æ¤F¡A¦]¬°¦¹¼gªk¬O¥ýª½±µ¸õ¦^reset:¡A
¦]¦¹¨S¦³°õ¦æ¨ìIf Not result = vbYes Then Exit Sub '­Y«ö "§_" ´Nµ²§ô¡A
©Ò¥H¤~·|³y¦¨µL­­°j°é¡C

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD