Excel一鍵實現所選區域相同顏色單元格求和技巧
經由過程VBA實現對所選區域內，填充了不異顏色的單位格進行乞降，然后設置經由過程按鈕來實現代碼的運行。
東西/原料
- Excel（教程以Excel2007為例）
方式/步調
- 1
本教材以下圖數據為例，求黃色填充單位格的數值之和。
- 2
繪制計較按鈕，經由過程插入一張圖片或者一個外形實現，本教材以插入一個矩形外形為例。
- 3
編纂外形文字，最好是設置當作那種比力輕易理解。本教材編纂文字為：黃色填充單位格之和。
- 4
設置外形的輪廓以及外形外形結果。
- 5
從Excel界面進入VBA界面，不清晰操作流程的可以參考以下鏈接：
11打開的三種方式
- 6
插入一個模塊，在模塊中輸入如下代碼：
Sub qiuhe()
Dim rng As Range
Dim s As Long
s = 0
For Each rng In Selection
If rng.Interior.Color = 65535 Then '單位格填充色為黃色就執行下一步
s = s + rng.Value
End If
Next
MsgBox "所選區域黃色填充單位格的數值之和為 " & s
End Sub
- 7
返回Excel窗口，設置按鈕指心猿意馬宏為以上代碼。
- 8
選擇需要乞降的區域，點擊按鈕即可求得黃色填充單位格之和。
注重事項
- 此法同樣合用于乞降單位格中字體(字體顏色)不異，只需要改動一點代碼即可，若是您感樂趣的話，不妨本身脫手嘗嘗。
- 若是對您有點幫忙，請幫手撐持一下，感謝！
- 發表于 2018-03-29 00:00
- 閱讀 ( 1105 )
- 分類：其他類型
admin
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章