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

½Ð°Ý¬O§_¯à°µ¨ì

½Ð°Ý¬O§_¯à°µ¨ì

°²¨Ï§Ú­nºÊ±±¬Y¶µ¼Æ¾Ú¡A¦pªø«×¡A
¥Ñ©ó¨C¤é³£·|·s¼W¤£¦Pªº¼Æ­È¡AEx: 200, 102.32, 88.52, 100....
¦ý¥u­n¥[Á`«á¹F¨ì¤W­­1000¡A¼Æ¦r§Y³]©wÅܬõ¡A
¦ý±µ¤U¨Ó¯à§_¦b¨Ï¥ÎªÌÁä¤J¤U¤@­Ó¼Æ­È®É¡A
¥[Á`­È±q·sªº¼Æ­È¶}©l­pºâ¦Ó¤£¬O1000Ä~Äò©¹¤W²Ö¥[?

¦^´_ 1# ¤pyoyo
¸Õ¸Õ¬Ý¦b¸Ó¤u§@ªí¼Ò²Õ¤ºªºµ{¦¡½X
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. r = Target.Row: k = Target.Column
  3. Do Until cnt >= 1000 Or Cells(r, k).Interior.ColorIndex = 3
  4.    cnt = cnt + Cells(r, k)
  5.    r = r - 1
  6.    If r < 1 Then Exit Do
  7. Loop
  8. If Application.Sum(Range(Cells(r + 1, k), Target)) >= 1000 Then Target.Interior.ColorIndex = 3
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD