¦p¦ó¥ÎÀx¦s®æªºÃC¦â¨Ó¥[Á`©Îpºâ¤@Äæ¸Ìªº¸ê®ÆÁ`©M©MÓ¼Æ
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
 
|
¥»©«³Ì«á¥Ñ register313 ©ó 2012-5-30 21:22 ½s¿è
¦^´_ 1# almond
VBA:- Sub YY()
- [A11] = 0
- [A12] = 0
- For Each A In [A1:A10]
- If A.Interior.ColorIndex = 3 Then 'If A.Font.ColorIndex = 3 Then
- [A11] = [A11] + A
- [A12] = [A12] + 1
- End If
- Next
- End Sub
½Æ»s¥N½X ¤@¯ë°Ï:
1.¿ïB1,©w¸qx=GET.CELL(63,Sheet1!A1)
2.B1=x ©¹¤U½Æ»s¨ìB10
3.A11=SUMIF(B1:B10,3,A1:A10)
4.A12=COUNTIF(B1:B10,3) |
|
|
|
|
|
|