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

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

¥»©«³Ì«á¥Ñ jackyq ©ó 2017-10-21 06:55 ½s¿è

¦]¬° GoTo l01 ¬Ý°_¨Ó¥H¬°¬O 3¦U¼Æ¦r 101

¦ý¨ä¹ê¥L¬O GoTo  L01  (  Lªº¤p¼g¦b VBA IDE ¤U¬Ý°_¨Ó®Ú¥»´N¦p¦P1, ¦]¦Ó»~¥H¬°¯uªº¬O1  )

TOP

¦^´_ 8# ziv976688

1.¦C358¬O¤U­±³o¤@¦æ¶Ü?¦]¬°§Ú°õ¦æ®Éµo¥Í¡A¿ù»~¤£¬O¥X²{¦b³o¤@¦æ
  1. Sheets(1).[D2].NumberFormatLocal = "0.0%"
½Æ»s¥N½X
2.¦pªGgoto¨Sªk¥Î¡A§A¥i¥H§â¨º¤@¬q³£Åܦ¨µù¸Ñ´N¦n¤F
¨Ï¥Î½s¿è¤u¨ã¦Cªº "¨Ïµ{¦¡¦æÅܬ°µù¸Ñ"¡AÁ٭쪺¸Ü¨Ï¥Î¥L¥kÃ䨺­Ó«ö¶s"¨Ïµù¸ÑÁ٭쬰µ{¦¡"

2017-10-21_143918.png (4.49 KB)

2017-10-21_143918.png

TOP

¦^´_ 11# jackyq
j¤j:±z¦n!ÁÂÁ±zªº«ü¾É¡C¥i¬O§ï¬°line1,µ²ªG¤]¬O¤@¼Ë^^"

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

¦^´_ 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-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

¦^´_ 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 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

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

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

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD