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

Àx¦s¤£·|¦Û°Ê°±¤î¡A¸Ó«ç»ò§ï¡H

¥»©«³Ì«á¥Ñ ahsiek ©ó 2013-9-11 14:02 ½s¿è

¦^´_ 20# GBKEE

To  GBKEE¤j¤j   Àɮתþ¤W¡AÁÂÁ¡C ¼Æ­È°O¿ý.rar (328.25 KB)

¤£¹L¡ACC¤u§@ªíªº¤º®e¬O§Ú­è­è´ú¸Õ10¤ÀÄÁªºµ²ªG¡A¤@¤p®Éªº³Q§Ú¬~±¼¤F¡C

TOP

¦^´_ 20# GBKEE

¼Æ­È°O¿ý1.rar (132.41 KB)   ªþÀɦ³¥t¦s¬°97-2003ª©¥»¡A¥u¬O¤u§@ªí¤Wªº®æ¦¡³£¶]±¼¤F¡C§Ú¸ÕµÛ§âCC¤u§@ªí­×§ï¦¨¤ñ¸û¯à¬Ýªº¼Ë¤l¡C
¤£¹L§A¬Ý¨ìªº¡AÀ³¸Ó³£¬O¤@°ï¼Æ¦r¡C

µ{¦¡½X¼g¦b¼Ò²Õ module3 ¸Ì­±¡C

CC¤u§@ªíªº AÄæ¬O ®É¶¡¡A½Æ»sB3-D3ªº­È¦ÜE4-G4ªºÀx¦s®æ¸Ì¡AH5-M5¦³¤½¦¡·|¦Û¤vºâ¡C
¥D­nªº°ÝÃD¬O¡A§Ú³]©w¤@­Ó¤p®É°O¿ý¤@¦¸¡Aµ²ªG¡A¦b¨C¤@­Ó¤p®É¸Ì¡A¤¤¶¡·|¤S¦h¤@µ§®É¶¡ªº¸ê®Æ¡C
¥i¬O§Ú©ú©ú´N¨S¦³°Ê¨ä¥Lªºµ{¦¡½X¡A¥u§ï®É¶¡¦Ó¤w¡C´N¬O¤£¤F¸Ñ¬°¤°»ò·|¦h¦s®É¶¡©O¡H

TOP

¦^´_ 22# ahsiek
¦]¬°­ì¥»code¤¤stopªº¾÷¨î¡A¤£¬O¥ß§Y°±¤îªº¡A¦Ó¬O¤U¦¸±Æµ{ªº®É¶¡¨ì¤F¤~¥h§PÂ_¨ì¸ÓÅܼơA¤£Åý¥¦¦³¦A¤U¤@¦¸ªº±Æµ{¡C
©Ò¥H­ì¥»³]1¬í¡A¥u­n«ö°±¤î«áªº¤@¬í¤º¤£¦A­«·s¶}©l´N¤£·|¦³°ÝÃD¡A¦Ó²{¦b®É¶¡©Ôªøªº¸Ü´N¦³°ÝÃD¤F¡C¡C¡C

¥i¥H°Ñ¦Ò­×§ï¦p¤U¬Ý¬Ý¡AmainFunc() ¤£ÅÜ¡G
  1. Private gNextRunTime1 As Date
  2. Private gbIsRunning1 As Boolean

  3. Sub ButtonStart1()  '¤u§@ªí¶}©l«ö¶s
  4.   '¨¾¤î¦h¦¸±Ò°Ê
  5.   If gbIsRunning1 = True Then
  6.     If MsgBox("¤w¦³¦s¦bªº±Æµ{:" & gNextRunTime1 & "¡A¬O§_¨ú®ø¸Ó±Æµ{¡A­«·s¬ö¿ý?", vbOKCancel) = vbOK Then
  7.       ButtonStop1
  8.     Else
  9.       Exit Sub
  10.     End If
  11.   End If
  12.   
  13.   With ActiveSheet
  14.     .Range("A4:G270").ClearContents
  15.     gbIsRunning1 = True
  16.     SetTimer1 .Name
  17.   End With
  18. End Sub

  19. Sub ButtonStop1()   '¤u§@ªí°±¤î«ö¶s
  20.   gbIsRunning1 = False
  21.   
  22.   On Error Resume Next
  23.   '¨ú®ø¤U¦¸°õ¦æ®É¶¡
  24.   Application.OnTime gNextRunTime1, "'SetTimer1 """ & ActiveSheet.Name & """'", , False
  25.   On Error GoTo 0
  26. End Sub

  27. Sub SetTimer1(sSheetName As String)
  28.   Const MAX_ROW = 270
  29.   
  30.   gNextRunTime1 = Now + TimeValue("00:00:10")
  31.   Application.OnTime gNextRunTime1, "'SetTimer1 """ & sSheetName & """'"
  32.   
  33.   If mainFunc(sSheetName) >= MAX_ROW Then ButtonStop1 '°õ¦æ¨Ã¦^¶Çrow
  34. End Sub
½Æ»s¥N½X

TOP

¦^´_ 22# ahsiek
ÁÙ¬O¤@¼Ë¨Sµ{¦¡½X,23#  stillfish00 ªº­×¥¿¥i¥H´N¦n ,¦p¤£¦æ¥i±N©Ò¦³¼Ò²Õ¶×¥X«á¦A¤W¶Ç¼Ò²ÕÀÉ.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 23# stillfish00


To stillfish00 ¤j¤j¡A«D±`ÁÂÁ§A¡A¤]Åý§Úª¾¹D¬O¤°»ò­ì¦]³y¦¨ªº¡C§Ú­è­è´ú¸Õ¤F¤@­Ó¤p®É¡A¨ì¥Ø«e¬°¤î³£¨S¦³°ÝÃD¥X²{¡C

¯uªº¯uªº«ÜÁÂÁ§A¡A³o¤U§Ú¤]¾Ç·|¥t¤@­Ó¤è¦¡¡C

TOP

¦^´_ 24# GBKEE


    To GBKEE ¤j¤j¡A¤]ÁÂÁ§AªºÀ°¦£¡C¦ý¬O§Ú¶}±Ò97-2003ª©¥»ªº¡A¶i¥hVBA¸Ì¤]¬O¬Ý±o¨ì¼Ò²Õ¸Ìªºµ{¦¡­C
    §Ú¤£¤j·|±N2010©M2003°µÂà´«¡A©Î³\´N¬O³o¼ËÅý§A¬Ý¤£¨ì¡A¯uªº«Ü©êºp¡C
    ¤£¹L¡Aµ{¦¡½X¤w¸g¦³¸Ñ¨M¤F¡A¤]«ÜÁÂÁ§A¡C

TOP

¦^´_  ahsiek
¦]¬°­ì¥»code¤¤stopªº¾÷¨î¡A¤£¬O¥ß§Y°±¤îªº¡A¦Ó¬O¤U¦¸±Æµ{ªº®É¶¡¨ì¤F¤~¥h§PÂ_¨ì¸ÓÅܼơA¤£Åý ...
stillfish00 µoªí©ó 2013-9-11 17:14


§Ú·Q½Ð°Ý¤@¤U¡ACC ¤u§@ªí¡A§Ú¥u·|®³¨ÓÀx¦s¼Æ¾Ú¡A§Ú³£¦b¨ä¥L¤u§@ªí¤W¤u§@ ¡C
­Y§Ú¦b¨ä¥Lªº¤u§@ªí¤W¡A­Y¦³°µ¥[´î­¼°£©Î¬O§ï´«¨ç¼Æ®É¡ACC ¤u§@ªí´N·|º|¤F´X¬í©Î¬O¾ã­Ó¼È°±¦í¡C
¦³¨S¦³¤èªk¥i¥HÅý CC ¤u§@ªí¤£·|¦]¬°¨ä¥L¤u§@ªí¦b¤u§@¦Ó¨ü¨ì¼vÅT©O¡H
ÁÂÁ¡C
¼Æ­È°O¿ý.rar (333.3 KB)

TOP

¦^´_ 27# ahsiek
®Ú¾ÚApplication.OnTime ¡A¨ä°Ñ¼ÆLatestTime ªº»¡©ú¡G
  1. LatestTime ¿ï¥Î Variant

  2. ¥i¥H¶}©l°õ¦æµ{§Çªº³Ì±ß®É¶¡¡C¨Ò¦p¡A°²³] LatestTime ³]¬° EarliestTime + 30¡A·í®É¶¡¨ì¤F EarliestTime ®É¡A¦pªG¥Ñ©ó¨ä¥Lµ{§Ç¥¿¦b°õ¦æ¤¤¦Ó¨Ï Microsoft Excel ¤£³B©ó [´Nºü]¡B[½Æ»s]¡B[°Å¤U] ©Î [´M§ä] ¼Ò¦¡¡A«h Microsoft Excel ·|µ¥«Ý 30 ¬í¥H§¹¦¨²Ä¤@­Óµ{§Ç¡C¦pªG 30 ¬í¤º Microsoft Excel µLªk¦^¨ì [´Nºü] ¼Ò¦¡¡A«h¤£·|°õ¦æ¦¹µ{§Ç¡C¦pªG¬Ù²¤¦¹¤Þ¼Æ¡AMicrosoft Excel ·|¤@ª½µ¥¨ì¥i¥H°õ¦æ¸Óµ{§Ç¬°¤î¡C
½Æ»s¥N½X
¥Ñ©ó¬Ù²¤¦¹¤Þ¼Æ¡AMicrosoft Excel ·|¤@ª½µ¥¨ì¥i¥H°õ¦æ¸Óµ{§Ç¬°¤î¡C
¤]³\¬O³o¼Ë¾É­P§A¬ö¿ý®É¶¡ªº°Ê§@©µ«á¡A¦Ó¦³§A»¡ªº"º|¤F´X¬í"ªºµ²ªG¡A³o¥i¯à¨S¿ìªk¸Ñ¨M¡C¡C¡C

¦ý§Ú·|«Øij§A¸Õ¸Õ¬Ý¡A¬ö¿ýªº¥¨¶°¥Î¤@­ÓExcelÀ³¥Îµ{¦¡±`¾n¡A¦pªG¦³¨ä¥LExcel ¤u§@»Ý­n³B²zªº¸Ü¡A
¥t¥~¶}¤@­ÓExcelÀ³¥Îµ{¦¡(±q¶}©l¥\¯àªí©Î±¶®|¶}±Òexcel¡A¤£­nª½±µÂùÀ»excelÀɮסA
¨Ï¤u§@ºÞ²z­û¥i¬Ý¨£¨â­ÓExcel.exe³B²zµ{§Ç)¡A¤]³\¯àÁקK¸ê·½½Ä¬ð°ÝÃD¡C

TOP

¦^´_ 28# stillfish00

ÁÂÁ stillfish00¤j¤jªº¦^À³¡C

ÁöµMCC¤u§@ªí¥D­n¬O§@¬°Àx¦sªº¤u§@ªí¡A¦ý¥¦Àx¦sªº¼Æ­Èªº¥­§¡­È¡A·|³sµ²¨ì¥t¤@­Ó¤u§@ªí¦pDD¤u§@ªí¥h¨Ï¥Î
¨Ã¥Bµø±¡ªp¦bDD¤u§@ªí¸Ì°µ¨ÇÅܧó¡A¦p¥[´î­¼°£©Î¬O°Å¤U¶K¤Wªº°Ê§@¡C
¦pªG¬O¥t¶}¤@­Ó¬¡­¶Ã¯ªº¸Ü¡A³o¼ËÀx¦sªº¼Æ­È´NµLªk¤Î®É³sµ²¨ì§Ú»Ý­nªº¤u§@ªí¤º(§Y¡AÀx¦s®æªº¤Î®É³sµ²¬O»Ý­n¨â­Ó¬¡­¶Ã¯ÂùÀ»ÂI¶}ªº)
¨ºÁÙ¦³¨S¦³¨ä¥L¤èªk¥i¥H°µ¥X¦P¼Ëªº½Xªí­p®É¨ÃÀx¦s¼Æ¾Ú¡A«o¤S¤£·|¼vÅT¨ä¥L¤u§@ªí¹B§@ªº©O¡H
¤£¦n·N«ä¤S³Â·Ð§A¤F¡AÁÂÁ¡C

TOP

¦^´_ 29# ahsiek
³o¼Ë§Ú´NµL¯à¬°¤O¤F¡C¡C¡C

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD