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

¦p¦ó¥ÎÀx¦s®æªºÃC¦â¨Ó¥[Á`©Î­pºâ¤@Äæ¸Ìªº¸ê®ÆÁ`©M©M­Ó¼Æ

¥»©«³Ì«á¥Ñ register313 ©ó 2012-5-30 21:22 ½s¿è

¦^´_ 1# almond

VBA:
  1. Sub YY()
  2. [A11] = 0
  3. [A12] = 0
  4. For Each A In [A1:A10]
  5.   If A.Interior.ColorIndex = 3 Then   'If A.Font.ColorIndex = 3 Then
  6.      [A11] = [A11] + A
  7.      [A12] = [A12] + 1
  8.   End If
  9. Next
  10. 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)

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD