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

Ãö©ó¸ê®Æ¤ñ¹ïªº¼gªk

Ãö©ó¸ê®Æ¤ñ¹ïªº¼gªk

¸ê®Æ¼È¦s.rar (54.84 KB)
¦pªG­n¼g¨â­Ó¥\¯à1.Á`¶qÅÜ°Ê´N±NªÑ»ù¼g¤JE¦C
                                2.¤U¦¸Á`¶q¦AÅܰʮɦA±NE¦Cªº¸ê®Æ¼g¤JF¦C¡A§@³o¤@¬í(E¦C)¸ò«e¤@¬í(F¦C)ªºªÑ»ù§@¤ñ¹ï
¨Ò¦p¡G¥x¿n¹q 9:00:00 ¦¨¥æ»ù¬O100¤¸¡A¥ý±N100¼g¤JE2¡A¤§«á9:00:10 ¦¨¥æ»ù¬O101¡A¦P®É°õ¦æ±N«e¤@¬íªº100¤¸¼g¤JF2¡A³o¤@¬íªº101¼g¤JE2¡A¤@ª½«ùÄò¤U¥h­n¦p¦ó¼g¦¨VBA©O??
ÁٽЪ©¤W¤j¤jÀ°À°¦£¡AÁÂÁÂ

¦^´_ 1# ÂŤÑÄR¦À
§A¬O¥H"Á`¶qÅÜ°Ê" §í©Î¬O "¦¨¥æ»ù" °µ¬°¤ñ¹ï¼Ð·Ç¡H
½Ð¦A¥J²Ó´y­z»¡©ú¡AÁÂÁ¡I

TOP

¦^´_ 2# c_c_lai


    Á`¶qÅÜ°Ê´N¼g¤JªÑ»ù¡A¥HÁ`¶qÅܰʬ°±ø¥ó¨Ó¹ï¤ñªÑ»ù
c¤j·PÁÂ

TOP

¦^´_ 3# ÂŤÑÄR¦À
ThisWorkbook:
  1. Private Sub Workbook_Open()
  2.     Dim rng As Variant
  3.    
  4.     With Sheets(1)
  5.         For Each rng In Range(.[D2], .[D2].End(xlDown))
  6.             rng.Offset(, 26) = IIf(IsNumeric(rng), rng, 0)
  7.             rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
  8.         Next
  9.     End With
  10. End Sub
½Æ»s¥N½X
Sheet1:
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Left(Target.Address, 2) = "$D" And IsNumeric(Target) Then
  3.         If Target.Offset(, 26).Value <> Target.Value Then
  4.             Target.Offset(, 26) = Target
  5.             Target.Offset(, 2) = Target.Offset(, 1)
  6.             Target.Offset(, 1) = IIf(IsNumeric(Target.Offset(, -1)), Target.Offset(, -1), 0)
  7.         End If
  8.     End If
  9. End Sub
½Æ»s¥N½X
¸ê®Æ¼È¦s.rar (61.05 KB)

TOP

¦^´_ 4# c_c_lai
C¤j¡A¥Ø«e¤â°Ê´ú¸ÕOK¡A©ú¤Ñ¶}½L¸Õ¸Õ¬Ý
¸òC¤j½Ð±Ð¤@¤U¡Aµ{¦¡½X¸Ì­±ªº26¬O¬Æ»òªü¡A²©öªº§ÚÁ٬ݱoÀ´¡A¦ý¬OµLªk²z¸Ñ¸Ì­±¬°¤°»ò·|¦³26?

TOP

¦^´_ 5# ÂŤÑÄR¦À
E5.png
2016-7-18 21:11

TOP

¦^´_ 6# c_c_lai


    «¢«¢¡A³o¼Ë§Ú¤F¸Ñ¤F¡AÁÂÁÂc¤j­@¤ß¸ÑÄÀ

TOP

¦^´_ 6# c_c_lai


   c¤j¡A¸ò§A³ø§i¤@¤U´ú¸Õµ²ªG¡A´ú¸Õ«áµLªk°õ¦æ¡A¦ý§Ú¥Î¤â°Ê¿é¤J¼Æ¦r«o¥i¦æ¡A
§Ú¦b·Q·|¤£·|¬Oµ{¦¡¹ï©óddeªº¼Æ­È§P©w¦³°ÝÃD©O¡H

TOP

³o¸ò§Ú¹w´Áªº¤@¼Ë¡A¦]¬° DDE  ªº¶×¤J¸ê®Æ¤§ÅÜ°Ê
½T©w¬O¤£·|IJµo Worksheet_Change() ªº¡C

TOP

¦^´_ 8# ÂŤÑÄR¦À
¥Î³o­Óµ{¦¡¦A¸Õ¸Õ¬Ý¦æ¤£¦æ
¸ê®Æ¼È¦s.rar (61.16 KB)

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD