¡y¤w¸Ñ¨M¡zdde tick¸ê®ÆÂà´«¤ÀÄÁ¸ê®Æ
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¡y¤w¸Ñ¨M¡zdde tick¸ê®ÆÂà´«¤ÀÄÁ¸ê®Æ
¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-5-10 23:06 ½s¿è
§Ú¬O¨Ï¥Î¥ÃÂת÷ªº(e-leader)ªºDDE
§Ú¨C¤é³£·|¿z¿ï¥X§Ú¤µ¤Ñ·QÆ[¹îªº¼i¬ù»ù¡A¦C¦bSheet1
¨Ã¥H¦U§O¼i¬ù»ù©R¦W·s¼W¤u§@ªí¡A°O¿ý¤U¥¦ªº§Y®É¸ê®Æ
§Ú²{¦bªº°ÝÃD¦b©óe-leader¬O¢ì¢ì¢í¬O¨S¦³¤é´ÁÄæ¦ì
§Ú·Q¦b¨CÓ¤u§@ªí¤¤¢ØÄæ¤À§O¬ö¿ý¤U¥¦Ìªº§Y®É¸ê®Æ
¦A¢ØÄ檺¹j¾À·Q°O¤U¥¦Ì¨C¤ÀÄÁªº¶}¡B°ª¡B¦¬¡B§C¡B¦¨¥æ¶q
¦³·Qªk¡A¦ý«o¤£ª¾¸Ó±q¦ó°µ°_¡I¡I
½Ð¦U¦ì¤j¤jÀ°¦£¡I¡I¡@ÁÂÁ |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-5-6 10:34 ½s¿è
¦^´_ 2# luhpro
¡yº¥ýn§ì¨ú§Y®É³ø»ù³nÅ餺ªº¸ê®Æ,
³Ì²³æªº¤è¦¡´N¬O±Ä¥Î¸Ó³nÅé¦Û±aªº¶×¥X¨ì(©Î¬O©ì¦²¨ì) Excel ªí®æ¤¤ªº¥\¯à,
¶×¥X«á¦bExcelªí¤Wªº´N¬O§Y®Éªº³ø»ù¸ê®Æ, (°O±o¶}³ø»ù³nÅé)
¦p¦¹¨C¹j¤@¬q®É¶¡ Copy ¤@¦¸¨ì¨ä¥Lªí®æ¤ºÀ³¸Ó´N¬O§AnªºªF¦è¤F.¡z
³o¸Ì§Ú¥»¨Ó´N¤w¸g°µ¥X¨Ó¤F¡Aµ´¹ï¤£¬O°½Ãi¨S·Q¹L¡A´N¶K¤W¨Ó°Ý¤j®a
§Ú¦³·j´M¹L¸ê®Æ¡A¦ý¦h¥b¬O¤@¹ï¤@ªº¡]°w¹ï¤@ÀɪѲ¼or¤@ÀÉ´Á³f¡^
¹³§Ú³oºØ¤@¹ï¦hÓªº¦n¹³¤ñ¸û¤Ö¡A¦Ó¥B§Ú©È§ÚªºCalculate¨Æ¥ó·|t¾á¹L¤jorµo¥Í¿ù¶Ã
ÁÙ¦³¤]¤ñ¸û¤Ö¬Ý¨ì¦P®É¦hÓªí®æ³£¶i¦æ§Y®É»ù®æ«ùÄò°O¿ý¨Ã§ì¥X¨C¤@¤ÀÄÁªº¶}¡B°ª¡B¦¬¡B§C¡B¦¨¥æ¶qªº¼gªk¡A
¦Ó¥B§ÚÁÙ¬O¤p¾Ç¥Í¶¥¯Å¡AµLªk¶}ªþ¥ó¨Ó¬Ý
©Ò¥H¤~·|¶K¥X¨Ó½Ð±Ð¤j®aªº¡AÁÂÁ¡C |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-5-6 10:36 ½s¿è
¦^´_ 5# GBKEE
¨C¤@Ó¤u§@ªíªº¾ú¥v¦¨¥æ»ù¬O§Q¥Îsheet1ªºÅܰʨӬö¿ýªº¡A¥un¤@ÅܰʴN·|©¹JÄæ¤@¤U¦V¤U¬ö¿ý¡A
§Ú·Q±qJÄæªº¬ö¿ý¤¤§ì¥X¥¦¨C¤@¤ÀÄÁªº¶}¡B°ª¡B¦¬¡B§C¡BÁ`¶q
(JÄæ¬O³Q°Ê±µ¨üDDE¶Ç¨ÓªºÈ¡A¨C¬í¤£°±ªº±µ¦¬¡A§Ú·Q¨C¨ì¤@¤ÀÄÁ´N²Îp¥X¥¦ªº¶}¡B°ª¡B¦¬¡B§C¡B¦¨¥æ¶q)
sheet2¨ä¹ê¥u¬O§Ú¿z¿ï¥X¼i¬ù»ùªº¤u¨ã¡A¸ò¨ä¥Lsheet¨S¦³¤Ó¤jªºÃö«Y
§Ú¬O·Q¦bsheet1ªºCalculate¨Æ¥ó¼g¤Jµ{¦¡¡A¥H§¹¦¨
¦P®É¦hÓªí®æ³£¶i¦æ¦U¦Ûªº¾ú¥v¦¨¥æ»ù«ùÄò°O¿ý¨Ã§ì¥X¨C¤@¤ÀÄÁªº¶}¡B°ª¡B¦¬¡B§C¡B¦¨¥æ¶qªº¼gªk¡A
¦ý©È·|t¾á¹L¤jorµo¥Í¿ù¶Ã§ì¤£¨ì¥¿¯uÅܰʪºÀx¦s®æ
ÁÂÁÂ |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¦^´_ 7# GBKEE
¤j¤j¤£¦n·N«ä
¦]¬°§Ú¬Oªì¾ÇªÌ¡A°}¦CÁÙ¤£¬O¾Çªº«Ü¦n¡A©Ò¥H¦³´XÓ°ÝÃD·Q½Ð±Ð¡A
1.
¡yAR(1 To 6, 2 To R)¡z¬O(¦C,Äæ)ªº·N«ä¹ï§a!!
¦ý¤£À´ªº¬O¡A¬°¤°»òÄæn¡y2to R¡z
R = .[B1].End(xlDown).Row
¬Oºâ·s¼W¤F´XÓ¤u§@ªí¶Ü?
2.
Cells(i, 3)¬O§Y®É»ù®æ
¬°¤°»ò¡yCells(i, 3) > AR(3, i)¡z´N¥i¥Hª¾¹D¥¦¬O³o¤@¤ÀÄÁ¤ºªº³Ì°ª»ù??
3.¡yApplication.Index(Application.Transpose(AR), i - 1)¡z
½Ð°Ý³o¬qªº·N«ä¬O¤°»ò¡A¦³google¹L¡A¦ýÁÙ¬O¤£¤ÓÀ´¥¦Ìªº¸ÑÄÀªº·N¸q.
¤j¤j¼gªº¶}¡B°ª¡B§C¡Aµ¥¤T»ùªºµ{¦¡¡A¨Ã¨S¦³¬Ý¨ì»¡n§â¥¦¼g¤JþÓ¤u§@ªí¡A
³o¼Ë·|¨CÓsheet¦U§Opºâ¶Ü?(¦]¬°ÁÙ¨S¶}½L¡AÁÙ¨S´ú¸Õ¹L)
¹³¦¬½L»ù´N¦³¼g
P = Sheets(.Cells(i, 2).Text).Cells(Row.Count, "J").End(xlUp).Row + 1
Sheets(.Cells(i, 2).Text).Range("J" & P).Resize(1, 6) =Application.Index(Application.Transpose(AR), i - 1)
¨º¥¦¥i¥Hª¾¹D¸ê®Æ¬On¼g¥hþ¤@Ó¤u§@ªí¡A¨ä¥L¤T»ùªº¨S¼g¡A·|¦s¹ï¦a¤è¶Ü??
ªþ¤WÀÉ®×Åý¤j¤j§ó¤F¸Ñ§Úªº¬[ºc»P·Qªk!!
Calculate OVER.rar (162.25 KB)
|
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-5-9 00:35 ½s¿è
¦^´_ 9# GBKEE
§Ú§â³o¤j¤jªºµ{¦¡¥[¤J§Ú쥻ªºCalculate¨Æ¥ó¤¤«á¡A
¤Ï¦Ó·|³y¦¨§Úsheet1ªº¢Ñ¡B¢ÒÄæªºÈ¥X¤£¨Ó
¡]³o¨âÄæ¬O¼g¢Ò¢Ò¢Ó¤½¦¡¡AÅý¥¦±µ¨ü¶ÇȪº¡^
¦U¤u§@ªíªºJÄæªº¾ú¥v¦¨¥æ»ù¡A¤]³£µLªk©¹¤U°O¿ý
¦Ó¥B¤]·|¤@ª½¦b
¡yP = Sheets(.Cells(i, 2).Text).Cells(Row.Count, "J").End(xlUp).Row + 1¡z
¥X²{¡@¶À©³¦â¡B¡y¦¹³B»Ýnª«¥ó¡zªº¿ù»~
½Ð°Ý¬O§Úþ¸Ì§Ë¿ù¤F¶Ü¡H
¦³¥[.rar (22.85 KB)
¨S¥[.rar (21.57 KB)
§â¨âÓ¦³¥[¡B¨S¥[¡A°õ¦æ«áªºµ{¦¡ªþµ¹¤j¤j¬Ý¬Ý |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-5-9 11:12 ½s¿è
¦^´_ 11# GBKEE
ÁÂÁ¤j¤j
¤µ¤Ñ¸Õ¶]µ{¦¡¡A§Ú¦Û¦æ¦A°µ¤FÂI×§ï«á
µo²{¤F¤@Ó°ÝÃD
´N¬O³Ì§C»ù³ºµM¤ñ¦¬½L»ù°ª
§Ú·Q¥i¯à¬O¦]¬°§Ú̦b¤@¶}©l´N AR(4, i) = .Cells(i, 3)
©Ò¥Hµ{¦¡´N§ì³Ì¤@¶}©lªºCells(i, 3)
½Ð°Ý¸Ó¦p¦ó×§ï?
¥t¥~¦A½Ð±Ð
¤j¤j©Ò¼gªº
P = Sheets(.Cells(i, 2).Text).Cells(Rows.Count, "J").End(xlUp).Row + 1
½Ð°Ý·í¤¤¬°¤°»òn¼g¡y¡¨¢Ø¡¨¡z
ÁÂÁ¤j¤jªº±Ð¾É
°}¦C.rar (23.02 KB)
|
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¦^´_ 11# GBKEE
¤j¤j
§Ú«á¨Ó¦Û¤w¦A´ú¸Õ
§â¤j¤j¦b¤»¼Ó¡@¼gªºµ{¦¡§ï¶K¨ì¡@¤@¯ë¼Ò²Õ
¨Ã¦A¼g¤@Ó
¡ySub test3()
Call test2
TickTime = Now + TimeValue("00:01:00")
Application.OnTime TickTime, "test3"
End Sub¡z
´N¥i¥H§¹¦¨¨C¤Àªº¸ê®Æ§ó·s¡A¦Ó¥B¤£·|§â§Ú쥻dde¼g¤Jªº¤½¦¡¬~±¼¡A
¤]´N¬O§Ú쥻¦b²Ä¤Q¼Ó©Ò»¡ªº°ÝÃD¡C
¦ý¨Ì·|¥X²{§Ú²Ä¢°¢±¼Ó
³Ì§C»ù³ºµM¤ñ¦¬½L»ù°ªªº°ÝÃD¡I¡I
ªþ¤W×§ï«á¡B°õ¦æ«áªºÀɮסA
Àµ½Ð¤j¤j±Ð¾É¡I¡I
ÁÂÁ¡B·P¿E¤£ºÉ:)
³Ì«á´ú¸Õ.rar (44.46 KB)
|
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-5-10 23:04 ½s¿è
¦^´_ 15# GBKEE
¤j¤j
¡yµ{¦¡¤@°õ¦æ«áª½¨ì Loop Until Time <= #1:30:00 PM# ¤~°±¤îªº¡z
³oÓ§ÚÀ´¡A¦ý«Ü©_©Çªº¬O
§Ú13¼ÓªþªºÀÉ
¬O¥ý°õ¦æ test1¡Aµ¥¥¦¶]§¹¦A°õ¦ætest3
³o¼Ë¬O¥i¥H¨C¤À§ó·sªº
¦pªG§Ú¬O¥ý°õ¦ætest1¦A°õ¦ætest2¡A¨S¦³³]©wtest3
³o¼Ë¤ÀÄÁ¸ê®Æ¥u·|§ó·s²Ä¤@¹M¡C
§Úµ¥©ú¤é¶}½L«á¡A¦A´ú¸Õ¬Ý¬Ý¡A
ÁÂÁ¤j¤jªºÀ°¦£:) |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¦^´_ 15# GBKEE
«D±`·PÁ¤j¤jªºÀ°¦£¡A¤w¸Ñ¨M§Úªº°ÝÃD¤F¡I¡I¡I
¤£¹L¢´¡þ¢°¢¯¤é¡A¦A¦¸´ú¸ÕÁÙ¬O±o¨ì¬Û¦Pªºµ²ªG
ok.5.10.rar (74.4 KB)
|
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|