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

[µo°Ý] API³vµ§¹Bºâ­t¾á¤j¡A¥i§_ºë²

¦^´_ 19# GBKEE
¤£¦n·N«ä G¤j ¤S¦³°ÝÃD·Q½Ð±Ð±z¤F¡I
«e´X¤Ñ¸ÕµÛ¥ÎÀɮפºªº"sub°õ¦æ"¡A±Ä¥Î"sub³ø»ù¹Bºâ"·f°t¨ä¥Lµ{§Ç¡A¦b½L«á¹Bºâ«D±`§Ö³t¨S°ÝÃD¡A
½L¤¤¹Bºâ¦b¶}½L®É¼Æ¾Ú¸û¤Ö¡Aªì´Á³£¥i¥H¥¿±`¹B§@¡A¦ý«á´Á´N·|Åܱo¤@ª½¹Bºâ¡A¨S¦³Åã¥Ü¥ô¦ó¹Bºâµ²ªG¡Aª½¨ìexcel±Y¼ì©Î¤â°Ê°±¤î¡F
¦]¬°¦b½L«á¹B¦æ(¼Æ¾Ú¤£·|§ó·s)ªº±¡ªp¤U³£¥i¥H«D±`¶¶§Q¹B§@¡A©Ò¥H§Ú¸ÕµÛ§ïÅܳø»ù¤Î¹Bºâ°j°é¤è¦¡("sub°õ¦æ"ªº¤è¦¡)¡AÅý¨C¤@­Ósub³£¶]§¹¦A¶i¦æ­«·s¾ã²z¨Ó§ó·s³ø»ù¼Æ¾Ú¡A«o¤]¤@¼Ë¤@ª½¹Bºâ¦Ó¨S¦³µ²ªG(¹B§@¤¤¨S¦³¥ô¦óµ²ªG¡A¦ý¤â°Ê«ö¤U°±¤î«á¹Bºâµ²ªG´N¥þ³¡Åã²{...)¡A
³]·Q¬O¦]¬°°j°é¸j¬[¤FCPU¤§Ãþªº¡AÆ[¹î¤FCPU/°O¾ÐÅé¨Ï¥Î²v«o¤]¤£¨ì50%¡A

¬°¤F¸ÕµÛ±Nµ{¦¡­t¾á¦A­°§C¡A·Q°_¤§«e±z¦b¥»¦ê14¼Óªº®É­Ô¦³À°§Ú¼g¹L¤@­Ó°w¹ï¦hªÅ¥[Á`¹Bºâªºsub (©ñ¦b¼Ò²Õ3ªºK¤ßºA)¡A·í®É¨S¦³§¹¾ãªº¦hªÅ§PÂ_¡A²{¦b·Q¥[¤J§PÂ_¦¡¨ÓÂkÃþ¦b¦hªÅ¤W(½Ð°Ñ¦Ò"sub³ø»ù¹Bºâ")¡A
¥i¯à«ä¦Ò¤W¤@ª½¸I¾À¡A¹ïOffsetªº¤è¦¡¤@ª½µLªk¾ã­Ó²z¸Ñ¡A¸ÕµÛ§ï¨Ó§ï¥h³£¥¢±Ñ¡A
©Ò¥H·Q¸ß°Ý
1.¦¹¬qµ{§Ç¸Ó¦p¦ó¥[¤W·s¼Wªº§PÂ_¦¡©O
2.´N±zªº¸gÅç»P¦b½L¤¤°õ¦æ¹J¨ìªº°ÝÃD¡A§ï¦¨°õ¦æ§¹«á¦A¶i¦æ³ø»ù§ó·s¡A¬O§_¦³À°§U©O

¦]Àɮ׶W¹Lªþ¥ó®e¶q­­¨î¡A©Ò¥H¤W¶Ç¦Ü¶³ºÝGoogle¶³ºÝ

ÁÂÁ¡I

TOP

¦^´_ 21# dreamsway
­×§ï¬Ý¬Ý
  1. ElseIf .Cells.Offset(1) = "" Then '****µ{¦¡¹B¦æ³t«×«Ü§Ö·|¶]§¹³ø»ù¼Æ¾Ú **
  2.                     wTime = Time   '**½Ð¦bµ{¦¡½X¶}ºÝ Dim wTime As Date
  3.                     Do
  4.                         If wTime > Time - #12:00:30 AM# Then '30¬í ­«·s¾ã²z ¤@¦¸
  5.                             Application.StatusBar = "­«·s¾ã²z...."
  6.                             ­«·s¾ã²z
  7.                             wTime = Time
  8.                         End If
  9.                         DoEvents
  10.                     Loop While .Cells.Offset(1) = ""  '**·í .Cells.Offset(1) = ""  ¤@ª½°õ¦æ¤U¥h
  11.                     Application.StatusBar = False
  12.                 End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2018/10/30 18:40): ªþ¤WÀɮ׬ݤ@¤U

¦^´_ 22# GBKEE
G¤j¤È¦w¡A¦]¬°§ÚÁÙ¦b¸ÕµÛ¾Ç²ß§ó§ï·sªº¦hªÅ§PÂ_±ø¥ó®M¥Î¦b³oºØ¬Û¹ï¸ô®|ªº¼gªk¡A©Ò¥H³o­Ó®É¶¡©µ¿ðªº³¡¤À¥i¯à»Ý­n©ú«á¤Ñ¤~¯à´ú¸Õ¡A
§Ú·Q¦b­ì¥»ªº±ø¥ó
  1.   Do
  2.         With Sheets("³ø»ù¼Æ¾Ú").Range("b2").Offset(i)
  3.             If ¦¨¥æ»ù < .Cells(1, 2) Then ¦h©ñ = ¦h©ñ + .Cells(1, 3) Else ¦hªÅ = ¦hªÅ + .Cells(1, 3)
  4.             ¦¨¥æ»ù = .Cells(1, 2)
½Æ»s¥N½X
§ó§ï¬°
  1. Do
  2.         With Sheets("³ø»ù¼Æ¾Ú").Range("b1").Offset(i)
  3.         If ¦¨¥æ»ù < .Cells(1, 2) Then ¤è¦V = "¡ô"
  4.         If ¦¨¥æ»ù > .Cells(1, 2) Then ¤è¦V = "¡õ"
  5.         If ¦¨¥æ»ù <= .Cells(1, 2) And ¤è¦V = "¡ô" Then ¦hÁ` = ¦hÁ` + .Cells(2, 3)
  6.         If ¦¨¥æ»ù >= .Cells(1, 2) And ¤è¦V = "¡õ" Then ªÅÁ` = ªÅÁ` + .Cells(2, 3)
  7.         ¦¨¥æ»ù = .Cells(1, 2)
½Æ»s¥N½X
·Q¸ß°Ý¬°¤°»ò³o¤@¦æ¤@ª½Åã¥Ü¿ù»~
  1. ¦¨¥æ»ù = .Cells(1, 2)
½Æ»s¥N½X
[/code]
¬d¤F¤@¤U·L³n»¡©úÅã¥Ü¡G¹Á¸Õ«ü¬£­Èµ¹ With...End With ³¯­z¦¡¤¤¨Ï¥Îªºµ²ºc¦¨­û¡A±N·|¦¬¨ì¿ù»~¡A¦ýG¤j±z´£¨Ñªºªº¥N½X«o¤S¥¿±`:'( :'(

TOP

¦^´_ 22# GBKEE

¶³ºÝÀÉ®×
¦A³Â·ÐG¤j¸Ñ´b¤F¡AÁÂÁ¡I

TOP

¦^´_ 24# dreamsway
Range.Offset ÄÝ©Ê  ·|¶Ç¦^ Range ª«¥ó¡A¥Nªí±q«ü©w¤§½d³ò¦ì²¾ªº½d³ò¡C
¥i¦A¸Ô¬Ý»¡©ú
  1. i = 0     '**b1 ¬O¼ÐÀY¬°¤å¦r   i=0  -->  .Offset(i) ÁÙ¬Ob1,  ¦¨¥æ»ù As Double  ,©Ò¥H¦³§ÎºAªº¿ù»~
  2. Do
  3.         With Sheets("³ø»ù¼Æ¾Ú").Range("b1").Offset(i)
  4.            
  5.    
½Æ»s¥N½X
¥i­×§ï

  1.     i = 1
  2.    Do
  3.    With Sheets("³ø»ù¼Æ¾Ú").Range("b1").Offset(i)
  4. ©Î¬O
  5.     i = 0
  6.    Do
  7.    With Sheets("³ø»ù¼Æ¾Ú").Range("b2").Offset(i)
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 22# GBKEE

G¤j±z¦n¡I25¼Óªº³¡¤À­×§ï«á¤w´ú¸Õ¥i¥H¥¿½T¹Bºâ¤F¡A¦ý21¼Óªº°ÝÃD¤´¦b¡A
·Q¸ß°Ý¥N½Xªº·N«ä¬O¨C¹L30¬í·|°õ¦æ°j°é¶Ü!? ¦]¬°³æ°õ¦æK¤ßºAsub¡A¥u·|°õ¦æ¤@¦¸±N²{¦³ªº³ø»ù¶]§¹¡A¸õ¥XMsgBox¤u§@§¹¦¨«á´N¨S¦³¥ô¦ó°Ê§@¡A´Á¶¡ªº­«·s¾ã²z¤]¨S¤ÏÀ³(°õ¦æ«eªº³ø»ù¸ò°õ¦æµ²§ôªº³ø»ù¨SÅÜ¡AÅý¥¨¶°¹B¦æ¾ã­Ó°±¤î¤]¬O¨SÅÜ)
§Ú¸ÕµÛ¥Î¥H¤U¥N½Xªº°õ¦æsub¡AÅý¥L­«·s¾ã²z¨ÓÀò¨ú³ø»ù¦A°õ¦æK¤ßºAsub¡A«h·|ÅýK¤ßºA¶]¤@¦¸«á¤@ª½§e²{¹BÂબºA¡A¦ý³o´Á¶¡³ø»ù¤£·|§ó·s¡BDDE¼Æ¾Ú¤]¦P¨B°±¤î¡Fª½¨ì§Ú¤â°ÊÅý¥¨¶°°±¤î¹B¦æ«á¤~·|§â³o¬q´Á¶¡ªº³ø»ù¤@¦¸Åã²{¥X¨Ó
  1. Sub °õ¦æ()
  2. Call ¦@¥Î°Ñ·Ó
  3. Sht1.Range("J1") = "¹B¦æ¤¤.."
  4. uMode = 1

  5. Do
  6. Call ­«·s¾ã²z
  7. Call K¤ßºA

  8. Loop Until uMode = 0

  9. If uMode = 0 Then
  10. Sht1.Range("J1") = ">°±¤î<"
  11. End If
  12. End Sub
½Æ»s¥N½X
ªþÀÉ

TOP

¦^´_ 26# dreamsway

·Q¸ß°Ý¥N½Xªº·N«ä¬O¨C¹L30¬í·|°õ¦æ°j°é¶Ü!? ¦]¬°³æ°õ¦æK¤ßºAsub¡A¥u·|°õ¦æ¤@¦¸±N²{¦³ªº³ø»ù¶]§¹¡A¸õ¥X«á´N¨S¦³¥ô¦ó°Ê§@

¬O¼Æ¾Ú¤w¶]¨ì¦¬½L®É¶¡¤F¶Ü?

½Ð¬Ý¤@¤Uµù¸Ñªº»¡©ú
  1. Option Explicit
  2. Const ¶¡¹j = #12:05:00 AM#   '³o¸Ì­×§ï¤ÀÄÁ¶¡¹j
  3. Const ¶}½L = #8:45:00 AM#
  4. Sub K¤ßºA()
  5.     Dim i As Long, Ti As Integer, ¦¨¥æ»ù As Double, ¦hÁ` As Long, ªÅÁ` As Long, ¤è¦V As String
  6.     Dim xTime As Date, wTime As Date
  7.     xTime = ¶}½L + ¶¡¹j
  8.     i = 1: Ti = 0: ¦hÁ` = 0: ªÅÁ` = 0
  9.     ¦¨¥æ»ù = Sheets("¦hªÅÂŹÏ").Range("M4") 'Äæ¦ì¼È¥N
  10.     Do
  11.         With Sheets("³ø»ù¼Æ¾Ú").Range("b1").Offset(i)
  12.         '**¶¡¹j¬°  #12:05:00 AM#  ³o"¡ô","¡õ"¼Æ¾Ú ·Ç½T¶Ü?***
  13.         If ¦¨¥æ»ù < .Cells(1, 2) Then ¤è¦V = "¡ô"
  14.         If ¦¨¥æ»ù > .Cells(1, 2) Then ¤è¦V = "¡õ"
  15.         
  16.         If ¦¨¥æ»ù <= .Cells(1, 2) And ¤è¦V = "¡ô" Then ¦hÁ` = ¦hÁ` + .Cells(2, 3)
  17.         If ¦¨¥æ»ù >= .Cells(1, 2) And ¤è¦V = "¡õ" Then ªÅÁ` = ªÅÁ` + .Cells(2, 3)
  18.         ¦¨¥æ»ù = .Cells(1, 2)
  19.             If .Value > xTime + ¶¡¹j Then
  20.                 With Sheets("´ú¸Õ").Range("A2").Offset(Ti)
  21.                     .Resize(, 3) = Array(xTime, ¦hÁ`, ªÅÁ`)
  22.                     .NumberFormatLocal = "hh:mm;@"
  23.                 End With
  24.                  xTime = xTime + ¶¡¹j: Ti = Ti + 1
  25.              Else
  26.                 If .Cells.Offset(1) = "" And Format(TimeValue(.Cells.Text), "HH:MM") = "13:45" Then
  27.                     '***µ{¦¡¹B¦æ³t«×«Ü§Ö·|¶]§¹³ø»ù¼Æ¾Ú,®É¶¡¤w¨ì"13:45"¦¬½L ¤£¦A¦³¼Æ¾Ú¤F **
  28.                     xTime = xTime + ¶¡¹j
  29.                     With Sheets("´ú¸Õ").Range("A2").Offset(Ti)
  30.                         .Resize(, 3) = Array(xTime, ¦hÁ`, ªÅÁ`)
  31.                         .NumberFormatLocal = "hh:mm;@"
  32.                     End With
  33.                     Exit Do
  34.                 ElseIf .Cells.Offset(1) = "" Then
  35.                     '****µ{¦¡¹B¦æ³t«×«Ü§Ö·|¶]§¹³ø»ù¼Æ¾Ú,¦ý¬O¼Æ¾ÚÁÙ·|¦³ ¦]®É¶¡ÁÙ¥¼¨ì"13:45"¦¬½L ®É ...  **
  36.                     '**µ{¦¡¨ì³o²z °õ¦æ  ­«·s¾ã²z ªºµ{¦¡ ¦³§ó·s¨ì   _20180724_Match  ¹ï¶Ü? **
  37.                      '**********************************************
  38.                       Do
  39.                         If wTime > Time - #12:00:30 AM# Then '30¬í ­«·s¾ã²z ¤@¦¸
  40.                             '**¸Õµy«Ý¤@¤Uµ¥­Ô·sªº¼Æ¾Ú
  41.                             Application.StatusBar = "­«·s¾ã²z...."
  42.                             ­«·s¾ã²z   '** §ó·s   _20180724_Match ¦p¦³·sªº¸ê®Æ¶i¨Ó
  43.                                        '*************************.Cells.Offset(1)´N <>""  ***
  44.                             wTime = Time
  45.                             End If
  46.                         DoEvents
  47.                     Loop While .Cells.Offset(1) = ""  '**ÁÙ¬O¨S¦³·sªº¼Æ¾Ú´N¤@ª½µ¥­Ô...
  48.                     '*** ¦p¦³·sªº¸ê®Æ¶i¨Ó Â÷¶}°j°é Ä~Äò¤U¥h¨ì  i = i + 1 ªº¦a¤è ¦A Loop ¤U¥h ***
  49.                     Application.StatusBar = False
  50.                 End If
  51.             End If
  52.         End With
  53.         DoEvents
  54.         i = i + 1
  55.     Loop
  56.     MsgBox "¤u§@§¹¦¨"
  57. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 27# GBKEE
G¤j±z¦n¡I ¤µ¤Ñ¦b½L¤¤´ú¸Õµo²{ª¬ªp·Ó¡A¸ÕµÛ§â³ø»ù¤â°Ê§@¤F½Õ¾ã«á¥Î¤@µ§¤@µ§F8ºÊ´ú¡Aµo²{´Nºâ²Å¦X±ø¥óªº±¡ªp¤U
  1. If .Cells.Offset(1) = "" Then
½Æ»s¥N½X
¦ý¨C¦¸³£·|§âwTime = Time¥H¤Î­«¾ãªº»yªk¸õ¹L¥h¡A©Ò¥H¤§«e³£¤£·|¶i¦æ«á­±ªº­«·s¾ã²z
«á¨Ó§Ú§âwTime = Time´«¤F¦ì¸m¡AÅܦ¨¥H¤U¥N½X
  1. Do
  2.                       wTime = Time '»yªk¦ì¸m½Õ¾ã
  3.                         If wTime > Time - #12:00:30 AM# Then '30¬í ­«·s¾ã²z ¤@¦¸
  4.                             '**¸Õµy«Ý¤@¤Uµ¥­Ô·sªº¼Æ¾Ú
  5.                             Application.StatusBar = "­«·s¾ã²z...."
  6.                             ­«·s¾ã²z   '** §ó·s   _20180724_Match ¦p¦³·sªº¸ê®Æ¶i¨Ó
  7.                                        '*************************.Cells.Offset(1)´N <>""  ***
  8.                             'wTime = Time ­ì¥»¦ì¸m
  9.                             End If
  10.                         DoEvents
½Æ»s¥N½X
§ï§¹¤§«áÁöµM·|­«·s¾ã²z¤F....¦ý¨C¦¸¦^°é³£­«¾ã¡A¤£·|¦³30¬í¤~­«¾ãªº±¡ªp
  1. if wTime > Time - #12:00:30 AM# Then '30¬í ­«·s¾ã²z ¤@¦¸
½Æ»s¥N½X
±µµÛ´N¬O«ùÄò¤£¶¡Â_­«·s¾ã²z¨ìEXCEL±Y¼ìªº±¡ªpµo¥Í
§Ú¦b·Q¬O¤£¬O¥i¥H±q­«·s¾ã²z¨ºÃä°µ½Õ¾ã
  1. Sub ­«·s¾ã²z()
  2. ActiveWorkbook.RefreshAll
  3. End Sub
½Æ»s¥N½X
½Ð°ÝG¤j¬O§_¯à§ï¦¨¹³¬O5¬í¤º¦A«×°õ¦æ·|exit subªº»yªk©O
ÁÂÁ¡I

TOP

¦^´_ 28# dreamsway

µ{¦¡½X¦³ÂI¿ù»~½Ð§ó¥¿¬Ý¬Ý
  1. ElseIf .Cells.Offset(1) = "" Then
  2.                     '****µ{¦¡¹B¦æ³t«×«Ü§Ö·|¶]§¹³ø»ù¼Æ¾Ú,¦ý¬O¼Æ¾ÚÁÙ·|¦³ ¦]®É¶¡ÁÙ¥¼¨ì"13:45"¦¬½L ®É ...  **
  3.                     '**µ{¦¡¨ì³o²z °õ¦æ  ­«·s¾ã²z ªºµ{¦¡ ¦³§ó·s¨ì   _20180724_Match  ¹ï¶Ü? **
  4.                      '**********************************************
  5.                       wtime = Time   '** ©êºp³o¸Ì¿òº|¤F*****
  6.                       Do
  7.                         '*** ÁÙ¦³À³¬O If wtime < Time - #12:00:30 AM# Then ¤~¹ï
  8.                         If wtime < Time - #12:00:30 AM# Then '30¬í ­«·s¾ã²z ¤@¦¸
  9.                             '**¸Õµy«Ý¤@¤Uµ¥­Ô·sªº¼Æ¾Ú
  10.                             Application.StatusBar = "­«·s¾ã²z...."
  11.                             ­«·s¾ã²z   '** §ó·s   _20180724_Match ¦p¦³·sªº¸ê®Æ¶i¨Ó
  12.                                        '*************************.Cells.Offset(1)´N <>""  ***
  13.                             wtime = Time
  14.                             End If
  15.                         DoEvents
  16.                     Loop While .Cells.Offset(1) = ""  '**ÁÙ¬O¨S¦³·sªº¼Æ¾Ú´N¤@ª½µ¥­Ô...
  17.                     '*** ¦p¦³·sªº¸ê®Æ¶i¨Ó Â÷¶}°j°é Ä~Äò¤U¥h¨ì  i = i + 1 ªº¦a¤è ¦A Loop ¤U¥h ***
  18.                     Application.StatusBar = False
  19.                 End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ dreamsway ©ó 2018-11-6 11:49 ½s¿è

¦^´_ 29# GBKEE
G¤j¦­¦w ´ú¤F´X¤Ñ¡A­Y¥Î¤â°ÊF8´ú¸Õ¤w¥i¥H°õ¦æ¨ì­«·s¾ã²z¤Î30¬íªº³¡¤À¨S°ÝÃD¡A
¤£¹L½L¤¤¦b­«¾ãªº¦a¤è¤@ª½¥dÃö¡A¤â°Ê­«¾ã¬O¨S°ÝÃD¥i¥H§¹¾ã¹B¦æ(¬ù1¬í´N¥i¥H§ó·s§¹)¡A¦ý¦pªG¬O³z¹L¥¨¶°«h·|¥dÃö¡A§e²{¤@ª½Âà°é¦ý¨S³ø»ù¥X²{ªº±¡ªp¡Aª½¨ì¤â°Ê±j¨î¤¤Â_¥¨¶°¤~·|¥X²{¡A
¤£ª¾¹D¬O¤£¬O¹q¸£¤ÓÄê...¤£¹LCPU¸ò°O¾ÐÅé¨Ï¥Î²v³£ÁÙ»á§C(³Ì°ª¥u¨ì35%¥ª¥k)¡A³o´X¤Ñ§ä®É¶¡¸òªB¤Í­É­Ó¦n¤@ÂIªº¹q¸£¶]¶]¬Ý¡A
¥t¥~¦b¹Bºâµ²ªG(¦hªÅ¼Æ¾Ú)ªº§e²{¤W¡A³ø»ù®É¶¡ªº³Ì·s¨â­Ó¬ö¿ýÂI¤£·|°O¿ý¡A¨Ò¦p³ø»ù¤w§ó·s¨ì16¤À¡A¦ý15¤À¸ò20¤Àªº¼Æ¾Ú¨Ã¤£·|Åã²{¡A
¦]¬°¤£·|°µGIFÀÉ..©Ò¥H¥Î¿ý»sªº¤è¦¡ªí²{­«¾ãªºª¬ªp  ¼v¤ù

TOP

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