ªð¦^¦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

§Ú­Ó¤Hªº§@ªk¬O¾ã¬q¥ý¥[¤Wµù¸Ñ²Å¸¹¡A­n°õ¦æ®É¤~¨ú®øµù¸Ñ²Å¸¹  ¡A¶È¨Ñ°Ñ¦Ò!!!
±j¯P¤ä«ù³Ì¨ã¼u©Êªº EXCEL

TOP

§A¦n¹³¬O¥´   GOTO  L01  ¦Ó«D101

¥t GOTO  101 ¥H¤Î101:
³Ì«e­±ªº'­n®³±¼¡A¤£µM·|³Q·í¦¨µù¸Ñ

TOP

¦^´_ 19# jcchiang
j¤j:¦­¦w!
­ì¨Ó¦p¦¹!©Ç¤£±o§ï¥ÎStop«ü¥O¦b¿ù»~½X¤§«e´ú¸Õ¡Aµ²ªG¤]¬O¤@¼Ë¡A­n¥ý­×¥¿¿ù»~½X¡A¤~¯à°±¤î°õ¦æµ{¦¡¡C
ÁA¸Ñ¤F!ÁÂÁ±z^^

TOP

¦^´_ 18# ziv976688
µ{¦¡¤º®e¿ù»~,¦bµ{¦¡°õ¦æ¶}©l®É³£·|¦³Äµ°T,»PGoto«ü¥OµLÃö
©Ò¥H¥²»Ý­n­×¥¿¥¿½T¤~¯àÄ~Äòµ{¦¡ªº°õ¦æ

TOP

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

¦^´_ 17# naruto018
¥H±zªº½d¨Ò(©Î¬O§Úª¦¤å®É©Ò¨£¨ìªº´X­Ó½d¨Ò)¨Ó»¡:¦ü¥G¬OGoTo ¦b¥ô·N³B´¡¤J§Y¥i!

¦ý¬°¦ó¦b§Úªº½d¨Ò¤¤¡A«o¥²¶·±N±ý¸õ¹L¤£°õ¦æªºµ{¦¡½X¤¤¤§¿ù»~­×¥¿«á¡A¤~¯à¥¿±`°õ¦æµ{¦¡½X?
³o¼Ë°Z¤£¬O¥Nªí§Ú´¡¤JªºGoTo ¨Ã¨S¦³°_§@¥Î(¥¢®Ä)!

°ÝÃD­«ÂI:§Ú´¡¤JªºGoTo µL®Äªº­ì¦]¬°¦ó?
ÁÂÁ±z^^

TOP

¦^´_ 16# ziv976688

¤U­±Á|­Ó½d¨Ò¡G
text1¥u·|¸õ¥X1©M3ªºµøµ¡¡A¤£·|¥X²{2
text2¤¤¥[¤J¦³¿ù»~ªº¦a¤è¡A1ªºµøµ¡¥X²{¡A2ÁÙ¬O³Q¸õ¹L¡Aµ{¦¡·|¥X²{­n³Q¸õ¹Lªº³¡¤À¤¤¦³¿ù»~
  1. Public Sub text1()
  2. MsgBox "1"
  3. GoTo 101
  4. MsgBox "2"
  5. 101:
  6. MsgBox "3"
  7. End Sub

  8. Public Sub text2()
  9. MsgBox "1"
  10. GoTo 101
  11. MsgBox "2"
  12. AAA = Max(Range("A1:A3")) '<---------¬G·N¦bµ{¦¡½X¤¤¼g¿ù

  13. 101:
  14. MsgBox "3"
  15. End Sub
½Æ»s¥N½X

TOP

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

¦^´_ 15# naruto018
n¤j:±z¦n!
¤p§Ìª¾¹D~¦ýÁÙ¬OÁÂÁ±zªº´£¿ô^^

¥i¯à¤j®a³£»~¸Ñ¤p§Ì³o­Ó´£°Ýªº¥D¶b¤F!?
§Úªº°ÝÃD­«ÂI¬O¦bGoToªº¥Îªk:
¬O¤£¬O¦bµ{¦¡½Xªº¥ô·N³B´¡¤JGoTo 101[/b]............101:¡A
«h.............ªºµ{¦¡½X´N·|¸õ¹L¤£°õ¦æ!?
¦pªG¬Oªº¸Ü¡A¨º...........ªº¤º®e´N¤£À³¸Ó·|¼vÅT°õ¦æªº¹Lµ{¤~¹ï¡F
¦pªG¤£¬Oªº¸Ü¡A¨º´Nªí¥ÜGoToªº¥Îªk¦³­­¨î©Î³W½d¡AEX:GoTo¤£¬O¦bµ{¦¡½Xªº¥ô·N³B´¡¤J§Y¥i¡C

©Ò¥H~¤p§Ì¥»ÃDªº»Ý¨D¬O·QÂǥѦU¦ì°ª¤âªº¥¿½T©M¤£¹ï¤§¹ê¨Ò(¤£¤@©w¬O­n¥H¤p§Ì¶K¤Wªº½d¨Ò)«ü¾É¡A¾Ç²ßGoToªº¥¿½T¥Îªk^^

TOP

¦^´_ 14# ziv976688
1.§Aı±ogoto¨S³Q¨Ï¥Îªº­ì¦]¬O¦]¬°¸õ¥X¿ù»~Åã¥Ü¦ì¸mµ{¦¡½X­n¸õ¹Lªº¦a¤è
¨ä¹êµ{¦¡½X¬O¦³³Q¸õ¹Lªº¡A¦ý¦]¬°µ{¦¡¤]Àˬd¬O§_¦³¿ù»~

2.§A¿ù»~¦a¤è
¦]¬°§A³o­Ó°j°éÅܼƸò§A¤W¤@¼h°j°éªºÅܼƤ@¼Ë
  1. For Each a In Sheets(1).Range("C2:C8")
  2.   If a = "" Then Exit For
  3. '-------§ï¦¨¤U­±
  4. For Each a1 In Sheets(1).Range("C2:C8")
  5.   If a1 = "" Then Exit For
½Æ»s¥N½X

TOP

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

¦^´_ 12# naruto018
  1.   '¾÷²vªí...........
  2.                 Else
  3. GoTo 101
  4.                     Sheets.Add
  5.                     ActiveSheet.Name = "¾÷²vªí"
  6.                     Sheets(1).Cells.RowHeight = 20 '¦C°ª
  7.                     ActiveWindow.Zoom = 75 'ÁY©ñ
  8.                     Sheets(1).Range("B2").Select
  9.                     ActiveWindow.FreezePanes = True
  10.                     With Sheets(1).[A1:F50]
  11.                         .HorizontalAlignment = xlCenter
  12.                         .Font.FontStyle = "²ÊÅé"
  13.                         .Font.Size = 14
  14.                     End With
  15.                     Sheets(1).[A1:F50].Font.Name = "Arial"
  16.                     Sheets(1).[a1] = "±À´ú¼Æ¦r"
  17.                     Sheets(1).[A1:A50].Font.ColorIndex = 7
  18.                     Sheets(1).[A1:A50].NumberFormatLocal = "00"
  19.                     Sheets(1).[B1] = "¦¸¼Æ"
  20.                     Sheets(1).[B1:B50].Font.ColorIndex = 11
  21.                     Sheets(1).[C1] = "¤¤¼ú¼Æ¦r"
  22.                     Sheets(1).[C1:C8].Font.ColorIndex = 3
  23.                     Sheets(1).[C1:C8].NumberFormatLocal = "00"
  24.                     Sheets(1).[D1] = "¤¤¼ú¾÷²v"
  25.                     Sheets(1).[D2] = "=Count(C2:C8)/Count(A2:A50)"
  26.                     Sheets(1).[D1:D2].Font.ColorIndex = 3
  27.                     Sheets(1).[D2].NumberFormatLocal = "0.0%"
  28.                     Sheets(1).Range("D2").Borders.LineStyle = xlContinuous
  29.                     n = 1: m = 1: o = 1
  30.                     For i = 1 To 49
  31.                         If Msrr(i) > 0 Then
  32.                             n = n + 1
  33.                             Sheets(1).Cells(n, "A") = i
  34.                             Sheets(1).Cells(n, "B") = Msrr(i)
  35.                             If Urr(i) > 0 Then Sheets(1).Cells(n, "A").Interior.ColorIndex = 4
  36.                         End If
  37.                         If Urr(i) > 0 Then
  38.                             m = m + 1
  39.                             Sheets(1).Cells(m, "C") = i
  40.                         End If
  41.                     Next
  42.                         If Sheets(2).Range("H" & In2rr(numh) + 6) <> "" Then
  43.                         'For Each a In Sheets(1).Range("C2:C8")
  44.                         If a = "" Then Exit For
  45.                         If Application.CountIf(Sheets(2).Range("H" & In2rr(numh) + 6), a) Then: a.Interior.ColorIndex = 8
  46.                         'Next
  47.                         End If
  48.                     With Sheets(1).Range("C1:C" & m)
  49.                         .Borders.LineStyle = xlContinuous
  50.                     End With
  51.                     With Sheets(1).Range("A1:B" & n)
  52.                         .Borders.LineStyle = xlContinuous
  53.                     End With
  54.                     With Sheets(1)  'Âù±Æ§Ç
  55.                          .Columns("A:B").Sort Key1:=.[B2], Order1:=xlDescending, Key2:=.[a2], Order2:=xlAscending, Header:=xlGuess
  56.                     End With
  57.                     
  58.                     Sheets(1).Columns("A:E").EntireColumn.AutoFit  '¦Û°ÊÄæ¼e
  59.                     Erase Msrr, Urr '²M°£¾÷²vªí°O¿ý
  60.                     Sheets("¾÷²vªí").Move
  61.                     ActiveWorkbook.SaveAs mypath1 & "\49AC¾÷_" & Numberx & "_" & Inlog(LOGN - 1) & "_" & In2rr(numh) & "-" & In1rr(N1 - 1) & ".xls"
  62.                     ActiveWindow.Close
  63. '.......................................................................
  64.             
  65. 101:
½Æ»s¥N½X
n¤j:±z¦n!ÁÂÁ±zªº¦A¦¸«ü¾É¡C¥Ø«e¤p§Ì¥HTEST(1021)ªº´ú¸Õª¬ªp¬O:
¦bElse(¦C208)¤U¤è´¡¤JGoTo 101(¦C209),¦b¦C271´¡¤J101:´ú¸Õ=>·|°±¦b¦C249  For Each a In Sheets(1).Range("C2:C8")
ªí¥Ü¦C210~¦C268ªºµ{¦¡½XÁÙ¬O¦³³Q°õ¦æ¡C
±N¦C249©M¦C252 Next ÂIºñ¤£°õ¦æ=>´NOKªº

¦ý¨Æ¹ê¤W¦C210~¦C268ªºµ{¦¡½XÁÙ¬O¦³³Q°õ¦æ¡C

PS:¥N½X¦C2=½d¨ÒÀɦC208¡F¥N½X¦C65=½d¨ÒÀɦC279

½d¨ÒÀÉ:
TEST(1021).rar (50.36 KB)

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD