application.sumif

t8899

A COLUMN ¬°¤é´Á  C COLUMN ¬°¼Æ¦r
·Q¥Î application.sumif   ¥[Á`9¤ë¥÷(C COLUMN)
µ{§Ç¦p¦ó¼g?

GBKEE

¦^´_ 1# t8899

1. Option Explicit
   
2. Sub EX()
   
3.     Dim S_ALL As Single, I As Integer
   
4.     I = 2
   
5.     Do While Cells(I, "A") <> ""
   
6.         If Month(Cells(I, "A")) = 9 Then S_ALL = S_ALL + Cells(I, "B")
   
7.         I = I + 1
   
8.     Loop
   
9.     MsgBox S_ALL
   
10. End Sub

½Æ»s¥N½X

¤u§@ªí¤Wªº¥[Á`
¥Î¸ê®Æ®w¥[Á`¨ç¼Æ,¥[Á`
   

¤U¸ü (45.33 KB)

2014-10-2 06:13

¸ê®Æ®w·Ç«h³]¥ß

¤U¸ü (33.34 KB)

2014-10-2 06:14

t8899

¦^´_  t8899 ¤u§@ªí¤Wªº¥[Á`
¥Î¸ê®Æ®w¥[Á`¨ç¼Æ,¥[Á`
    ¸ê®Æ®w·Ç«h³]¥ß
GBKEE µoªí©ó 2014-10-2 06:31

¤F¸Ñ  
¤£¹L¡A§Ú¬O·Qª¾¹D application.sumif ªº¨Ï¥Î

msgbox application.sumif (range("a:a"), ???? ,range("c:c"))
¬õ¦â4­Ó°Ý¸¹ µ¥©ó9¤ë «ç»òªí¥Ü??¦pªG¬O¤j©ó9¤ë¡A¤S¬O¦p¦óªí¥Ü?

GBKEE

¦^´_ 3# t8899
¤u§@ªíSUMIF ªº·Ç«h: ¥u¥i¥H¥Î"> < = <>"ªº±ø¥ó¦¡­pºâ,¤£¥i¥H¥Î  MONTH(???)=? ªº¨ç¼Æ¦¡­pºâ.

¤U¸ü (84.76 KB)

2014-10-2 07:20

t8899

¦^´_  t8899
¤u§@ªíSUMIF ªº·Ç«h: ¥u¥i¥H¥Î"> < = "ªº±ø¥ó¦¡­pºâ,¤£¥i¥H¥Î  MONTH(???)=? ªº¨ç¼Æ¦¡­pºâ.
...
GBKEE µoªí©ó 2014-10-2 07:20

ÁÂÁÂ!
§Ú¬O¸Õ¤£¥X¨Ó¡A¤~¨Óµo°Ý