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

¥[Åv¥­§¡¼ÆVBA

¦^´_ 10# GBKEE


¤£¦n·N«ä!!!!
§Ú¥[¤W¨º­ÓIF»yªk«ávba³£µLªk¦^À³¬O«ç»ò¤F¶Ü?!
¬°¤°»ò·|³o¼Ë©O?!

°Ý³Ì«á¤@­Ó¥i¥HÅý»yªk¥i¥Î¦b¦U­Ó¤u§@ªíªº»yªk­n©ñ¦b­þ¸Ì©O?!

TOP

¦^´_ 10# GBKEE


¤£¦n·N«ä¡A§ÚÁÙ¬O¥Î¤£¥X¨Ó
¤£ª¾¹D¯à¤£¯à½Ðª©¤jÀ°À°§Ú¡A¬Ý¤@¤U¨ì©³­þ¥X°ÝÃD¥H¤Î¥[¤J¯à°÷Åý¦U¤u§@ªí³£¥i¥H¨Ï¥Îªº»yªk

«ô°U«ô°U.....!!!!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-14 06:24 ½s¿è

¦^´_ 12# 518587
­n»{ÃÑVBA ,µ{¦¡°Ïªº¥DÃD­n¦h¬Ý.

  1. '10.¦pªG AvgOld-AvgNew>0.1 (¥[¤Wµ´¹ï­È)ªº¸Ü ¡A·sªº¥­§¡­È´N¥²¶·¨ú¥Nªº¡AµM«á¦^¨ì²Ä¤G¨B­«½Æ­pºâ¨ì¤p©ó0.1
  2.                 If Abs(.Cells(1, 2) - .Cells(1, 10)) > 0.1 Then
  3.                     .Cells(1, 11) = Abs(.Cells(1, 2) - .Cells(1, 10))
  4.                     .Cells(1, 2) = Avg   'Avgªº¤½¦¡???
  5.                     GoTo A
  6.                 End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE
«Ü´Î¡B«Ü§¹¾ãªº Find, FindNext ªº¨Ï¥Î½d¨Ò, ¦¬¤U, ÁÂÁª©¥D!!

TOP

¦^´_ 13# GBKEE


ª©¤j¡A§A¦n!!!!
¹ï¤£°_¡A§Úªº°ÝÃD³o»ò¦h....¤@ª½³Â·Ðª©¤j¯uªº«Ü¤£¦n·N«ä!!!

ªþ¥ó¦³ªþ¤WÀɮסA¥X²{¤F¥H¤Uªº°ÝÃD:
1¡B§Ú¦b³Ì¤W­±¥[¤J¤FÄæ¦ìªº¦r¦ê¦WºÙ¡A¦ý¬O¬°¤°»ò¥u¥X²{L¡BMÄ檺¦r¦ê
2¡Bª©¤j¦pªG¤U¦b¶}±Ò«á°õ¦æ¬O¥i¥H¶]±o¡A¦ý¬O¦pªG§â¤U­±ªº§PÂ_¦¡ªºµù¸Ñ®³±¼¡A¶}©l°õ¦æ§PÂ_¦¡´N·|¥X²{°ÝÃD
       ¥X²{ªº°ÝÃD¦³
      (1) ¤u§@ªí1ªº¨º¬Oª½±µ¥Î¤â¥´­pºâ¥Xªºµ²ªG¡A¸òVBA¶]¥X¨Ó(¤u§@ªí5)ªºµ²ªG¤£¬Û¦P¡A¬°¤°»ò©O?!¬O¦]¬°VBA­pºâ¼Æ­È¤£¤@¼Ë¶Ü?
      (2)°õ¦æªº®É­Ô¡A¥L°±¤£¤U¨Ó¡A¥²¶·±j¨î°±¤î¡A«ç»ò¼Ë¤~¯à°÷Åý¥L¦Û°Ê°±¤î?
      (3)°õ¦æ°±¤î«á¡A¬d¬Ýµ{¦¡µ²ªG¡A¤W­±¦³­pºâ¥X¨Ó¡A¦ý¬O¤U­±¨ì¤F¤@­Ó¦a¤è¥H«á¥þ³¡³£¨S¦³¥X²{¡A¬°¤°»ò©O?!






°Ý.rar (82.92 KB)

TOP

¦^´_ 13# GBKEE


§A¦n!!!!
·PÁ§AªºÀ°¦£¡A§Ú¤w¸g°µ¥X¨Ó¤F°j°é!
¦ý¬O¥X²{¤F¤@­Ó°ÝÃD´N¬O
¥L¥u·|°õ¦æ¨ì417¦C¤§«áªº³£·|¥X¿ù¡A¦ý¬O§â417¤§«eªº²¾°£¦b°õ¦æµ{¦¡¬O¥i¥H°õ¦æªº
·Q½Ð°Ý¬°¤°»ò·|³o¼Ë©O?!

TOP

¦^´_ 16# 518587
6# ¤¤¦³µù¸Ñ
  1.                '*** ¨ì A578 ®É H578 = 1 Ln(.Cells(1, 6))=0

  2. 41.                '*** ¤À¥À=0 ¤£¥i°£ ªº¿ù»~  ***************

  3. 42.                '*** ±µ¤Uªº¼Æ¦r·|¦³¿ù»~    ***************
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 17# GBKEE


¥i¬O¥L¬O¨ìA417Äæ´N¨S¦³¶]¤U¥h¤F!!
µM«á§Ú§â1¨ì416ªº²¾¨ì¨ä¥L¦a¤è¡A
²Ä417Äæ¦ì²¾¨ì²Ä2Äê«á­±ªº¤@°_²¾°Ê¡A
¦b¤@¦¸¶]VBA¬O¥i¥H¶]±o¡A¦Ó¥B¤]·|°±¤î¡A¤£·|°±¨ì578Äæ

¨Ìª©¤jªº±M·~¨Ó¬Ý¡A³o¬O¤°»ò¼Ëªº°ÝÃD©O?!
§Ú©l²×§ä¤£¨ì°ÝÃD...

TOP

¦^´_ 17# GBKEE


  Àɮצbªþ¥ó¤¤!!!

¥þ³¡ªº¨º­Ó¶]·|Â_¦b417Äæ
µM«á§Ú±N1~416¸ò417¥H«áªº©î¦¨¨â­Ó¤u§@ªí
µo²{1~416ªº·|¤@ª½¶]¤£·|°±
417¤§«áªº¬O¥i¥H¶]¥Xµ²ªGªº

·Q½Ðª©¤jÀ°§Ú¬Ý¬Ý¨ì©³¬O­þ¤@³¡¤À¥X¤F°ÝÃD!!!!

°Ý.rar (123.78 KB)

TOP

¦^´_ 19# 518587
  1. .Cells(1, 11) = Abs(.Cells(1, 2) - .Cells(1, 10))
  2. Debug.Print .Cells(1, 11).Address & " : " & .Cells(1, 11)  '¥[¤W³o¦æ¬d¬Ý.Cells(1, 11)ªº­È
  3. GoTo A
½Æ»s¥N½X


Debug.Print ¹î¬Ý¨ì «e¬q¨ìM410 ¤@ª½¬O>0.1
¸õ¤£¥X If .Cells(1, 11) > 0.1 Then ªº§PÂ_
  1. $M$410 : 1.11185372875004
  2. $M$410 : 1.11185372875005
  3. $M$410 : 1.11185372875006
  4. $M$410 : 1.11185372875006
  5. $M$410 : 1.11185372875006
  6. $M$410 : 1.11185372875006
  7. $M$410 : 1.11185372875004
  8. $M$410 : 1.11185372875005
  9. $M$410 : 1.11185372875006
  10. $M$410 : 1.11185372875006
  11. $M$410 : 1.11185372875006
  12. $M$410 : 1.11185372875006
  13. $M$410 : 1.11185372875004
  14. $M$410 : 1.11185372875005
  15. $M$410 : 1.11185372875006
  16. $M$410 : 1.11185372875006
  17. $M$410 : 1.11185372875006
  18. $M$410 : 1.11185372875006
  19. $M$410 : 1.11185372875004
  20. $M$410 : 1.11185372875005
  21. $M$410 : 1.11185372875006
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD