返回列表 上一主題 發帖

[發問] 如何使用vba計算各列底色加總

sax868

帖子
37 
主題
9 
精華
0 
積分
61 
點名
0  
作業系統
Windows7 
軟體版本
office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-4-26 
最後登錄
2014-7-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-9-24 21:28 | 顯示全部帖子

[發問] 如何使用vba計算各列底色加總

本帖最後由 sax868 於 2013-9-24 21:32 編輯

成績單.zip (15.23 KB)
  1. Sub YY()


  4. [J3] = 0

  6. For Each A In [A:G]

  8.   If A.Interior.ColorIndex = 6 Then   'If A.Font.ColorIndex = 6 Then


  11.      [J3] = [J3] + 1

  13.   End If

  15. Next

  17. End Sub
複製代碼
各位大大晚安!

請問要如何編寫vba使計算各列底色加總呢? 我的三腳貓功夫只會全部加而且跑很慢(快當了)但如果要每一列只要有出現黃底色不論次數即為1,我就不會了...能否煩請好心善良的大大們解救弱女子?
需求詳見如下:
1.計算C欄到G欄只要是出現黃色底色則在I欄顯示"1"
2.I欄的計算直到B欄位為空白為止
3.在J3 顯示I欄的所有計數加總 (答案需要是計9, 不是14)


感激不盡~

弱女子留:P
收藏 分享

sax868

帖子
37 
主題
9 
精華
0 
積分
61 
點名
0  
作業系統
Windows7 
軟體版本
office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-4-26 
最後登錄
2014-7-28 
2#
發表於 2013-9-25 10:43 | 顯示全部帖子
復活了、復活了!! 感謝超級版主們的鼎力相助!! 好好用喔~~~
祝各位大大們有個美好的一天! ^_^~

弱女子留

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題