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

¦p¦ó¦b¿z¿ï«áªº¸ê®Æ§ä¥X¬õ¦â¦rÅ骺Àx¦s®æÁ`©M? VBAµ{¦¡

¦p¦ó¦b¿z¿ï«áªº¸ê®Æ§ä¥X¬õ¦â¦rÅ骺Àx¦s®æÁ`©M? VBAµ{¦¡

¨Ò: ³]©w¦bA1Àx¦s§@¬°­pºâ«áªºÁ`©M,
   A20:C65536¬°¿z¿ï«áªº¸ê®Æ,§ä¥XAÄæA1:A65536ªº¬õ¦â¦rÅ骺Àx¦s®æÁ`©M¡C
   (¤£­n¥[ÁôÂêºÀx¦s®æ)  ÁÂÁ¦U¦ì¤j¤j!!!

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-11-21 17:25 ½s¿è

¦^´_ 1# agwhk
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, xlRow As Integer, S As Long
  4.     'FindFormat ÄÝ©Ê ³]©w©Î¶Ç¦^­n´M§ä¤§Àx¦s®æ®æ¦¡Ãþ«¬ªº·j´M·Ç«h
  5.     Application.FindFormat.Clear
  6.     Application.FindFormat.Interior.ColorIndex = 3
  7.     Set Rng = Range("A20:A65536").Find(What:="", after:=[A65536], SearchFormat:=True)
  8.     If Not Rng Is Nothing Then
  9.         xlRow = Rng.Row
  10.         Do
  11.             S = S + Rng.Value
  12.             Set Rng = Range("A20:A65536").Find(What:="", after:=Rng, SearchFormat:=True)
  13.         Loop While Rng.Row > xlRow
  14.     End If
  15.     MsgBox S
  16. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂ! «Ü¦hÁ±z, §Ú¥¿¬O­n³o­Óµ{¦¡½X

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD