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

[µo°Ý] ¦p¦ó­pºâ¨C­ÓÄ檺²Ö­p³Ì¤j¥¢¤À

¦^´_ 7# VBALearner
¦^´_ 5# GBKEE
¥ÎGBKEEª©¤jªº¥h­×§ï¡A¤]¬O¤£¦æ¡A½Ð±Ð¦U¤j¤j¦p¦ó§ï¼g¡AÁÂÁÂ!

test5G.rar (14.6 KB)

TOP

¦^´_ 11# cdkee

³á...§Ú¦ü¥G¦³ÂI»~·|§Aªº·N«ä¡A§Ú¥H¬°¬O³Ð·s°ª«á¨Ó©Ô¦^¦h¤Öªº¬ö¿ý...
§Ú·Q½Ð°Ý¦pªG¹J¨ì¥H¤Uª¬ªp±z§Æ±æÀx¦s®æ¦p¦óÅã¥Ü?
1.¸ê®Æ:0,100,200,300,400,500,600,700,800,900 (µL¥¢¤À)
2.¸ê®Æ:0,100,200,300,400,1000,200,200,200,200 (µL¤j¤G¤j¥¢¤À)
3.¸ê®Æ:0,1000,500,500,2000,1000,1000,500,500,500 (µL¤j¤T¤j¥¢¤À)
¯u¤ß·PÁ¨C¤@¦ìÄ@·N¤À¨É©Ò¾Ç¡B«ü¾É·s¤âªº¤H!

TOP

¦^´_ 12# VBALearner

ÁÂÁ¤j¤j¦^ÂÐ!
(µL¥¢¤À)>>3­Ó(¦C7,8,9)³£Åã¥Ü0
(µL²Ä¤G¤j¥¢¤À)>>¦C8,9³£Åã¥Ü0
(µL²Ä¤T¤j¥¢¤À)>>¦C9³£Åã¥Ü0

TOP

¦^´_ 13# cdkee
¤£¦n·N«ä¡A§Ú¨M©w¥ý°²³]¦s¦b²Ä¤@¤j¥¢¤À»P²Ä¤G¤j¥¢¤Àªº±¡ªp¨Ó¼gµ{¦¡¡A¤£°µDebug¡A¤]¼È®É©ñ±ó¹Á¸Õ­pºâ²Ä¤T¤j¥¢¤À
³Â·Ðª©¤W¦U¦ì°ª¤â¤]¨Ó¶°«ä¼s¯q¡A§Ú¦Û»{§Ú·Qªº³o­Óµ{¦¡¦ü¥G¤£¬O«ÜÁo©ú¡AÁٻݦU¦ì¿EÀú¸£¤O!
³Â·Ð°ÝÃD´£°ÝªÌ¡A¬ÝÀ´³o­Óµ{¦¡ªºÅÞ¿è«á¡A¦A¸Õ¸Õ¬Ý¦p¦ó¼g¥X²Ä¤T¤j¥¢¤À¡A§Ú´N¥ý§V¤O¨ì³o¤F¡A·Ç³Æ¥ð®§ºÎıTwT
¥»µ{¦¡³]©w¸ê®Æ¦ì¦bA1.resize(20,1)¡A°w¹ï¦¹¸ê®Æ½d³ò°µ­pºâ¡C­«ÂI¦b©ó­pºâ¤j¤G¤j¥¢¤À®É¡A¸ê®Æ¤£¯à»P²Ä¤@¤j¥¢¤Àªº¸ê®Æ½d³ò¦³©Ò­«½Æ¡A§_«h±N­pºâ¿ù»~¡A¦]¦¹¤©¥H¬ö¿ý²Ä¤@¤j¥¢¤Àªº¤W¤U¬É¨Ó°µ²Ä¤G¦¸­pºâªº±ø¥ó§PŪ¡C¤å¥½ªþ¦³´ú¸ÕÀÉ¡AÅwªï¤U¸ü§ï¨}!
  1. Sub ³Ì¤j¥¢¤À()
  2.     Dim ¤W¬É, ¤U¬É, ¬ö¿ý¤W¬É, ¬ö¿ý¤U¬É, i, j, k, m, n, x, ¥¢¤À, z As Integer
  3.     ¤W¬É = 21
  4.     ¤U¬É = 0
  5.     ¥¢¤À = 0
  6.         
  7.     For m = 1 To 2
  8.         For i = 1 To 19
  9.             For j = i + 1 To 20
  10.                 ®t­È = (Cells(i, 1) - Cells(j, 1))
  11.                 If ®t­È > 0 And ®t­È > ¥¢¤À Then
  12.                     If i < ¤W¬É And j < ¤W¬É Then
  13.                         ¥¢¤À = ®t­È
  14.                         ¬ö¿ý¤W¬É = i
  15.                         ¬ö¿ý¤U¬É = j
  16.                     ElseIf i > ¤U¬É And j > ¤U¬É Then
  17.                         ¥¢¤À = ®t­È
  18.                         ¬ö¿ý¤W¬É = i
  19.                         ¬ö¿ý¤U¬É = j
  20.                     End If
  21.                 End If
  22.             Next
  23.         Next
  24.         
  25.         ¤W¬É = ¬ö¿ý¤W¬É
  26.         ¤U¬É = ¬ö¿ý¤U¬É
  27.         
  28.         MsgBox "²Ä" & m & "¤j¥¢¤À : " & ¥¢¤À
  29.         ¥¢¤À = 0
  30.     Next
  31. End Sub
½Æ»s¥N½X
´ú¸Õ.zip (11.61 KB)
¯u¤ß·PÁ¨C¤@¦ìÄ@·N¤À¨É©Ò¾Ç¡B«ü¾É·s¤âªº¤H!

TOP

¥»©«³Ì«á¥Ñ cdkee ©ó 2016-8-16 11:00 ½s¿è

¦^´_ 14# VBALearner

·PÁ¤j¤jÀ°¦£!¤w¸gÀ°§Ú¸`¬Ù¤F«Ü¦h¤u§@®É¶¡¡C
¸g¹L­×§ï©M´ú¸Õ«á¡A¦³2²Õ(²Ä3²Õ,²Ä5²Õ)­pºâ¿ù»~¡A¨£ªþ¥ó¡A·Ð½Ð±Ð¦U¦ì¤j¤jÀ°¦£¦p¦ó­×§ï¡AÁÂÁÂ!
test6V.rar (14.12 KB)

TOP

¥»©«³Ì«á¥Ñ VBALearner ©ó 2016-8-16 11:59 ½s¿è

¦^´_ 15# cdkee

±zÁÙ¯u¬O¤£¹½¨ä·Ðªº·Q¹F¦¨³o­Ó¥Ø¼Ð©O-w-
¦AÀ°±z§V¤O¤@¤U§a¡A¦³©l¦³²×¡C¹ï¤F¥i¥H°Ý§A­n«ç»ò¦P®É¦^´_¨â­Ó¤H¶ÜxD? §Ú¬Ý¨ì§A¦³¤@½g¦^´_ªº¦^´_¼ÐÅÒ¦³§Ú©M¶W¯Åª©¥D¡A¦p¦ó°µ¨ì?
³o¬O³Ì²×ª©¤F¡A¥i¥H­pºâ3¤j¥¢¤À¡A¤@¼Ë¤å¥½¦³ªþÀÉ¡Cµ{¦¡Å޿観ÂIÃø¸ÑÄÀ¡A¥D­n¬O®Ú¾ÚÃC¦â°Ï¶ôªº¤£­«½Æ©Ê¡A¨Ó°µ¦³®Ä­È±o¿z¿ï§PÂ_¡A¦]¦¹¦b­pºâ²Ä¤@¤j¥¢¤À®É¡A±ø¥ó¬O³Ì¼eÃPªº¡A¦]¬°¦¹®ÉÁÙ¨S¦³¥X²{ÃC¦â°Ï¶ô(select case m = 1)¡C­pºâ²Ä¤G¤j¥¢¤À®É¡A­nÁקKi,j­È¸ó¹L©Î¸¨¦b¶À¦â°Ï¶ô¡A¦]¦¹i,j­È¥u¦³¨âºØª¬ªp: 1.<¶À¦â°Ï¶ôªº¤W¬É 2.>¶À¦â°Ï¶ôªº¤U¬É¡C®Ú¾Ú³oºØÅÞ¿èÄ~Äò¥h°µ²Ä¤T¤j¥¢¤ÀªºÅÞ¿è§PÂ_¡A­pºâ²Ä3¤j¥¢¤À®É¡A¤w¸g¦³¶ÀÃC»Pºñ¦â¨â¤j°Ï¶ô¡A¦]¦¹·|¦³¨â­Ó¤W¬É©M¨â­Ó¤U¬É¡A¦¹®ÉÀ³¥ý§PÂ_¶À¦â©Îºñ¦â°Ï¶ô½Ö¦b¤W¤è(select case 3¸Ì­±ªºif ¤W¬É(3) > ¤U¬É(2)...)¡A¦A°µ¥¢¤À­pºâ§PÂ_¡A¦¹®É¸ê®Æ¦³¸g³Q¨â¤jÃC¦â°Ï¶ô¤Á¦¨3¥÷¡A¦]¦¹·sªºi,j­ÈÅܦ¨­n¸¨¦b³o3¥÷«DÃC¦â°Ï¶ô¸Ì­±¤~¬O¦³®Ä­È¡A§_«h±N»P¶Àºñ¦â°Ï¶ô­«½Æ¡A¤j·§ªºÅÞ¿è¬O¦p¦¹¡A¦³¨Ç§xÃø¡A¦ý°Ê¤â¦b¯È¤W§â¹Ïµe¥X¨Ó¡A§â¤W¬É©M¤U¬É¼Ð¤W¥hÀ³¸Ó·|¦nÀ´¨Ç¡A¦¹¥~¡A­YµL¥¢¤À¡A·|Åã¥Ü¥¢¤À¬°0¡C¸ò¤§«e¤@¼Ë¡AÅwªï°ª¤â¨Ó§ï¼g§Ú³o¸¨¸¨µ¥ªºµ{¦¡«¢«¢«¢!!!
  1. Dim Äæ, ¥¢¤À, ¬ö¿ý¤W¬É, ¬ö¿ý¤U¬É, ¤W¬É(1 To 3), ¤U¬É(1 To 3), i, j, Z As Integer
  2. Sub ­pºâ¥¢¤À()
  3.     ¬ö¿ý¤W¬É = 0
  4.     ¬ö¿ý¤U¬É = 0

  5.     For Äæ = 1 To 7
  6.         For m = 1 To 3 '­pºâ²Äm¤j¥¢¤À
  7.             ¤W¬É(m) = ¬ö¿ý¤W¬É
  8.             ¤U¬É(m) = ¬ö¿ý¤U¬É
  9.             ¥¢¤À = 0
  10.             For i = 1 To 14
  11.                 For j = i + 1 To 15
  12.                     Z = (Cells(i, Äæ) - Cells(j, Äæ))
  13.                     If Z > ¥¢¤À Then
  14.                         Select Case m
  15.                         Case 1 '²Ä¤@¤j¥¢¤À­pºâ
  16.                             Call ¬ö¿ý
  17.                         Case 2 '²Ä¤G¤j¥¢¤Àªº­­¨î±ø¥ó
  18.                             If i < ¤W¬É(m) And j < ¤W¬É(m) Then
  19.                                 Call ¬ö¿ý
  20.                             ElseIf i > ¤U¬É(m) And j > ¤U¬É(m) Then
  21.                                 Call ¬ö¿ý
  22.                             End If
  23.                         Case 3 '²Ä¤T¤j¥¢¤Àªº­­¨î±ø¥ó
  24.                             If ¤W¬É(3) > ¤U¬É(2) Then
  25.                                 If i < ¤W¬É(2) And j < ¤W¬É(2) Then
  26.                                     Call ¬ö¿ý
  27.                                 ElseIf i > ¤U¬É(2) And j > ¤U¬É(2) And i < ¤W¬É(3) And j < ¤W¬É(3) Then
  28.                                     Call ¬ö¿ý
  29.                                 ElseIf i > ¤U¬É(3) And j > ¤U¬É(3) Then
  30.                                     Call ¬ö¿ý
  31.                                 End If
  32.                             ElseIf ¤W¬É(2) > ¤U¬É(3) Then
  33.                                 If i < ¤W¬É(3) And j < ¤W¬É(3) Then
  34.                                     Call ¬ö¿ý
  35.                                 ElseIf i > ¤U¬É(3) And j > ¤U¬É(3) And i < ¤W¬É(2) And j < ¤W¬É(2) Then
  36.                                     Call ¬ö¿ý
  37.                                 ElseIf i > ¤U¬É(2) And j > ¤U¬É(2) Then
  38.                                     Call ¬ö¿ý
  39.                                 End If
  40.                             End If
  41.                         End Select
  42.                     End If
  43.                 Next
  44.             Next
  45.             
  46.             Cells(6 + m, Äæ + 12) = -¥¢¤À '¶K¤W¤u§@ªí¡A¦ì¸m¦Û¦æ§ó§ï
  47.         Next
  48.     Next
  49. End Sub

  50. Sub ¬ö¿ý()
  51.     ¥¢¤À = Z
  52.     ¬ö¿ý¤W¬É = i
  53.     ¬ö¿ý¤U¬É = j
  54. End Sub
½Æ»s¥N½X
¥¢¤À­pºâ.zip (21.49 KB)
¯u¤ß·PÁ¨C¤@¦ìÄ@·N¤À¨É©Ò¾Ç¡B«ü¾É·s¤âªº¤H!

TOP

¦^´_ 16# VBALearner
ÁÂÁ¤j¤j¤£¹½¤p§Ì·Ð¦ÓÀ°§U¡A¤j¤jªº³Ì²×ª©¤p§Ì¤´¦b¤F¸Ñ¤¤¡C
·Qªí¥Ü¦^ÂЭþ¦ì¤j¤j¡A¥u­n¦b¨º¦ì¤j¤j¯d¨¥«ö"¦^ÂÐ"¡A¤§«áCOPY­ÓURL¡A¦A½Æ»s¨ì¦Û¤vªº¦^ÂФº®e´N¥i¥H¡C
¦AÁÂÁÂVBALearner¤j¤j!

TOP

¦^´_ 15# cdkee
¬Ý¤£À´§AªºÅÞ¿è
²Ä¤@²Õ2016/5/5¶}©l 1000,900,700,800,600,300
700¨ì800¦³±o¤À°Ú¡Aµ²ªG§A¥Î1000-300=700¥¢¤À
¦Ó¤£¬O¤À¬° 1000-700 , 800-300 ³o¨â²Õ¥¢¤À
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 16# VBALearner

­pºâ¦C20¦Ü¦C813³£µL°ÝÃD
­pºâ¦C20¦Ü¦C814¥X"·¸¦ì¿ù»~"
½Ð±Ð¦U¤j¤j§Úªº­×§ï¨º¸Ì¿ù¡AÁÂÁÂ!
TEST7V.rar (26.62 KB)

TOP

¦^´_  cdkee
¬Ý¤£À´§AªºÅÞ¿è
²Ä¤@²Õ2016/5/5¶}©l 1000,900,700,800,600,300
700¨ì800¦³±o¤À°Ú¡Aµ²ªG§A¥Î ...
stillfish00 µoªí©ó 2016-8-16 14:16

¦]¬°¬O­n²Ö­p³Ì¤j¥¢¤À¡A¤£¬O­n³sÄò³Ì¤j¥¢¤À¡C

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD