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

[µo°Ý] VBA¬Y¾ã¬qµ{¦¡½X¤£°õ¦æ(GoTo)ªº»yªk

[µo°Ý] VBA¬Y¾ã¬qµ{¦¡½X¤£°õ¦æ(GoTo)ªº»yªk

½Ð°Ý¦U¦ì¤j¤j:
¬õ¦â¾ã¬qµ{¦¡½X¤£°õ¦æªº»yªk½s¼g?
ÁÂÁÂ!
Private Sub CommandButton1_Click()
OOOOOOOOOO
OOOOOOOOOOO
OOOOOOOO
OOOOOOOOOO
OOOOOOOOOOOOO

XXXXXXXXX
XXXXXXXXXX
XXXXXX
XXXXXXX
XXXXXXXXX
XXXXXXXXXXXXX


OOOOOOOOOOO
OOOOOOOOOOOOO
OOOOOO
OOOOOOOO
OOOOO
End Sub

¤]´N¬O»¡:¦p¦ó¸õ¹L¬õ¦â¾ã¬qªºµ{¦¡½X¡AÄ~Äò°õ¦æ«á­±¶Â¦âªºµ{¦¡½X?
ÁÂÁÂ!

TOP

OOOOOOOOOO
OOOOOOOOOOO
OOOOOOOO
OOOOOOOOOO
OOOOOOOOOOOOO
goto line1
XXXXXXXXX
XXXXXXXXXX
XXXXXX
XXXXXXX
XXXXXXXXX
XXXXXXXXXXXXX

line1:
OOOOOOOOOOO
OOOOOOOOOOOOO
OOOOOO
OOOOOOOO
OOOOO

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2017-10-20 13:17 ½s¿è

¦^´_ 3# jcchiang
J¤j:±z¦n!
·PÁ¦^À³!¦ý³o¼Ë¨Ã¨S¦³¸õ¹L¬õ¦â¾ã¬qªºµ{¦¡½X¡Aª½±µÄ~Äò°õ¦æ«á­±¶Â¦âªºµ{¦¡½X¡AÁÙ¬O·|°õ¦æ¬õ¦â¬q¸¨ªºµ{¦¡½X^^"

µo©««e:§Ú¦³ª¦¤å¡A¤]¬O¬Ý¨ì¥u­ngoto "¼Ð°O"§Y¥i!¦ý¬O¹Á¸Õ¤F¥b¤Ñ´N¬O¤£¦æ(¦p¤U©Ò¥Ü)¡A©Ò¥H¤~¤W¨Óµo°Ý¡C
OOOOOOOOOO
OOOOOOOOOOO
OOOOOOOO
OOOOOOOOOO
OOOOOOOOOOOOO
goto 101
XXXXXXXXX
XXXXXXXXXX
XXXXXX
XXXXXXX
XXXXXXXXX
XXXXXXXXXXXXX

101:
OOOOOOOOOOO
OOOOOOOOOOOOO
OOOOOO
OOOOOOOO
OOOOO

TOP

¦^´_ 4# ziv976688
§Ú³£³o¼Ë¨Ï¥Îªº,¥i¥H´£¨Ñµ{¦¡¶Ü??

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2017-10-20 15:22 ½s¿è

¦^´_ 5# jcchiang
J¤j:±z¦n!
³Ì¥D­n¬O¦C328~¦C390(¾÷²vªí)ªº³¡¤À:¦]¬°©|¦³ºÃ°Ý«Ý¨M¡A©Ò¥H·Q¥ý¼È¤£°õ¦æ¡C

¦³¯S·N±N¦C2 ',Msrr(1 To 49), Urr(1 To 49) ÂIºñ¤£°õ¦æ
¦ý«ö°õ¦æÁä«á¡AÁÙ¬O·|°±¦b¦C358Åã¥Ü½s¿è¿ù»~ªºÄµ¥Ü®Ø^^"

½d¨ÒÀɤU¸üºô§}:
http://www.FunP.Net/876373

TOP

¦^´_ 6# ziv976688


    À³¸Ó¬O§AªºGoTo«ü¥O©ñ¿ù¦ì¸m¤F
©ñ¦bElse«á­±¸Õ¸Õ¬Ý
  1. if....
  2. ....
  3. '¾÷²vªí.....
  4. GoTo line1   '---->²¾¥h«á­±
  5. Else
  6. '<-----²¾¨ì³o­Ó¦ì¸m
  7. ....
  8. line1:
  9. End If
½Æ»s¥N½X

TOP

¦^´_ 7# naruto018
n¤j:±z¦n!
ÁÂÁ¦^À³^^

GoTo«ü¥O©ñ¦bElse¤U¤@¦C
µ²ªG¤@¼Ë:ÁÙ¬O·|°±¦b¦C358Åã¥Ü½s¿è¿ù»~ªºÄµ¥Ü®ØQQ

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2017-10-20 20:10 ½s¿è

¦^´_ 1# ziv976688
2017-1020-Q-1 -.rar (96.21 KB)

­ìªþÀɵ{¦¡½X¤Óªø~­«·s¤W¶ÇªþÀÉ©M»¡©ú:
         
             If a = INnum(N2 - 1) Then '¤ñ¹ï´Á¼Æªº¦C  '¦C178
                Sheets.Add
                ActiveSheet.Name = "Sheet1"
                ActiveWindow.Zoom = 75 'ÁY©ñ
                ' ½Æ»s"Sheet1"¤º®e
                [A4].Resize(3, 79).Copy Sheets("Sheet1").Cells(4, 1) '½Æ»sDATA=A4:CA6¶K¤WA4
                Cells(In1rr(N1 - 1) + 6, 1).Resize(In2rr(numh) - In1rr(N1 - 1) + 1, 1).Copy Sheets("Sheet1").Cells(7, 1) '½Æ»sDATA=A&StrRng¨ìA&mthcount´Á¼Æ¶K¤WA7
                Cells(In1rr(N1 - 1) + 6, 2).Resize(In2rr(numh) - In1rr(N1 - 1), 7).Copy Sheets("Sheet1").Cells(7, 2) '½Æ»sDATA=B&StrRng¨ìH&mthcount-1´Á¼Æ¶K¤WB7
                Cells(a.Row + 1, 1).Resize(In2rr(numh) - a.Row + 6, 1).Copy Sheets("Sheet1").Cells(7, 9)  '½Æ»sDATA=AÄæ¤ñ¹ï´Á¼Æ+1¨ìmthcount´Á¼Æ¶K¤WI7
                Cells(a.Row + 1, 2).Resize(In2rr(numh) - a.Row + 5, 7).Copy Sheets("Sheet1").Cells(7, 10)  '½Æ»sDATA=B:HÄæ¤ñ¹ï´Á¼Æ+1¨ìmthcount´Á¼Æ¶K¤WJ7
                Cells(In1rr(N1 - 1) + 6, 1).Resize(a.Row - In1rr(N1 - 1) - 5, 8).Copy Sheets("Sheet1").Cells(In2rr(numh) - a.Row + 13, 9) '½Æ»sDATA=A:HÄæ°_©l´Á¼Æ¨ì¤ñ¹ï´Á¼Æ¶K¤WI & mthcount-¤ñ¹ï´Á¼Æ+13
                a.Copy Sheets("Sheet1").Cells(In2rr(numh) - In1rr(N1 - 1) + 7, a.Column) '½Æ»s·j´M­È¶K¤Wmthcount´Á¼ÆB:H¦PÄæ
                a.Copy Sheets("Sheet1").Cells(In2rr(numh) - a.Row + 12, a.Column + 8) '½Æ»s·j´M­È¶Kmthcount-¤ñ¹ï´Á¼Æ+12¦CªºJ:P¦PÄæ
               
                Sheets("Sheet1").Range("AN5") = Cells(a.Row, 1) '«ü©wªº¦U¤ñ¹ï´Á¼Æ
                ' ½Æ»s&¦rÅé¼Ð¥Ü
                Sheets("Sheet1").Cells(7, 1).Resize(In2rr(numh) - In1rr(N1 - 1) + 1, 8).Copy Sheets("Sheet1").Cells(7, 25) '½Æ»sA:H¶K¤WY
                Sheets("Sheet1").Cells(7, 9).Resize(In2rr(numh) - In1rr(N1 - 1) + 1, 8).Copy Sheets("Sheet1").Cells(7, 17) '½Æ»sI:P¶K¤WQ
                Sheets("Sheet1").Cells(7, 9).Resize(In2rr(numh) - In1rr(N1 - 1) + 1, 1).Font.ColorIndex = 9 'IÄæ¦rÅé¼Ð¥Ü
                Sheets("Sheet1").Cells(7, 17).Resize(In2rr(numh) - In1rr(N1 - 1) + 1, 1).Font.ColorIndex = 10 'QÄæ¦rÅé¼Ð¥Ü
                Sheets("Sheet1").Cells(7, 1).Resize(In2rr(numh) - In1rr(N1 - 1) + 1, 32).Copy Sheets("Sheet1").Cells(7, 47) '½Æ»sA:P¶K¤WAU
                Sheets("Sheet1").Range("B8").Select
                ActiveWindow.FreezePanes = True  '­áµ²µøµ¡
                Sheets("Sheet1").Move
                Application.DisplayAlerts = False
                ActiveWorkbook.SaveAs MyPath & "\49AC_" & INnum(N2 - 1) & "_" & Inlog(LOGN - 1) & "_" & In2rr(numh) & "-" & In1rr(N1 - 1) & "-" & Sheets("Sheet1").Range("AN5") & ".xls"
                ActiveWindow.Close

'GoTo l01
  '¾÷²vªí......................................................................................... '¦C207
                Else
                    Sheets.Add
                    ActiveSheet.Name = "¾÷²vªí"
                    Sheets(1).Cells.RowHeight = 20 '¦C°ª
                    ActiveWindow.Zoom = 75 'ÁY©ñ
                    Sheets(1).Range("B2").Select
                    ActiveWindow.FreezePanes = True
                    With Sheets(1).[A1:F50]
                        .HorizontalAlignment = xlCenter
                        .Font.FontStyle = "²ÊÅé"
                        .Font.Size = 14
                    End With
                    Sheets(1).[A1:F50].Font.Name = "Arial"
                    Sheets(1).[a1] = "±À´ú¼Æ¦r"
                    Sheets(1).[A1:A50].Font.ColorIndex = 7
                    Sheets(1).[A1:A50].NumberFormatLocal = "00"
                    Sheets(1).[B1] = "¦¸¼Æ"
                    Sheets(1).[B1:B50].Font.ColorIndex = 11
                    Sheets(1).[C1] = "¤¤¼ú¼Æ¦r"
                    Sheets(1).[C1:C8].Font.ColorIndex = 3
                    Sheets(1).[C1:C8].NumberFormatLocal = "00"
                    Sheets(1).[D1] = "¤¤¼ú¾÷²v"
                    Sheets(1).[D2] = "=Count(C2:C8)/Count(A2:A50)"
                    Sheets(1).[D1:D2].Font.ColorIndex = 3
                    Sheets(1).[D2].NumberFormatLocal = "0.0%"
                    Sheets(1).Range("D2").Borders.LineStyle = xlContinuous
                    
                    Sheets(1).Columns("A:E").EntireColumn.AutoFit  '¦Û°ÊÄæ¼e
                    Erase Msrr, Urr '²M°£¾÷²vªí°O¿ý
                    Sheets("¾÷²vªí").Move
                    ActiveWorkbook.SaveAs mypath1 & "\49AC¾÷_" & Numberx & "_" & Inlog(LOGN - 1) & "_" & In2rr(numh) & "-" & In1rr(N1 - 1) & ".xls"
                    ActiveWindow.Close
'....................................................................... '¦C240
            
'101:
            
            End If   '¦C244
...................
...................
...................
End Sub    '¦C255

³Ì¥D­n¬O¦C207~¦C240(¾÷²vªí)ªº³¡¤À:¦]¬°©|¦³ºÃ°Ý«Ý¨M¡A©Ò¥H·Q¥ý¼È¤£°õ¦æ¡C

½Ð°Ý:
¤£°õ¦æTEST(1020)-B¦C207:240ªºµ{¦¡½X¡A¨äµ{¦¡½XÀ³¦p¦ó¦A½s¼g~
¤~¥i¥Oµ{¦¡½X¥Ñ¦C204ª½±µ¸õ¨ì¦C244(End If)Ä~Äò°õ¦æ(§Y¨ä°õ¦æ®ÄªG=TEST(1020)-A)?
ÁÂÁÂ!

TOP



¤£ª¾¬°¤°»ò¨Ì·Óª¦¤å©Ò±oªº¸ê°T¾Þ§@~«o¤£¯à¸Ñ¨M°ÝÃD?
³Ò¾r¦U¦ì¤j¤j¤£§[«ü¾É!ÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD