假設有乙個一季度的庫存資料存放在sheet2工作表的a1:b4區域中,並且由這些資料生成了一張柱形圖表.
圖1再假設目前的庫存警戒值設定為50,如果超過這個值,希望圖表中對應的柱子變成紅色來提醒,不超過50時柱子顯示綠色.
如果是針對資料表改變顏色,可以用"條件格式"來實現,但想讓圖表改變顏色就只能用vba編寫**了.
在sheet2工作表的底部標籤上點滑鼠右鍵,選"檢視**",調出該工作表的vba視窗,把下面**貼上進去.
圖2privatesubworksheet_change(byvaltargetasrange)
x=y=
'數值改變的區域為b列的b2:b4時,生成新的圖表
ify=2andx>1andx<5thencall生成圖表
endsub
sub生成圖表()
'先刪除表中的所有圖表
'下面是生成圖表並設定圖**式
sett=
witht
.charttype=xlcolumnclustered
.setsourcedatasource:=sheets("sheet2").
range("a1:b4"),plotby:=xlcolumns'圖表的源資料,其中最後乙個引數表示系列產生在列
.locationwhere:=xllocationasobject,name:="sheet2"'圖表顯示到sheet2工作表中
endwith
'下面對b2:b4單元格的值進行判斷,如果大於50就變成紅色
fori=2to4
ifrange("b"&i)>50then
b=3'大於50變紅色(3是紅色的**)
else
b=10'小於50為綠色(10是綠色的**)
endif
'設定圖表的各個柱子的顏色
next
endsub
從**中可以看到,這是使用了sheet2工作表的change事件來實現的,只要工作表中b2:b4區域中的資料被修改了,圖表就會自動根據庫存數改變顏色.
上面的例子中,每次改變資料區域的值,都會刪除舊的圖表,再生成乙個新的圖表,有的朋友不喜歡這樣,希望只生成一次圖表,以後資料改變時,只針對該圖表改變顏色,這樣圖表中的其他設定不受影響.
用下面**可以實現
執行下面**前,必須先手工生成一張b2:b4區域的圖表,且該圖表在sheet2表中的圖表id為1(最好除這一張圖表外,沒有其他圖表).
privatesubworksheet_change(byvaltargetasrange)
x=y=
'數值改變的區域為b列的b2:b4時,生成新的圖表
ify=2andx>1andx<5thencall圖表變色
endsub
sub圖表變色()
'啟用第一張圖表
'下面對b2:b4單元格的值進行判斷,如果大於50就變成紅色
fori=2to4
ifrange("b"&i)>50then
b=3'大於50變紅色(3是紅色的**)
else
b=10'小於50為綠色(10是綠色的**)
endif
'設定圖表的各個柱子的顏色
next
endsub
下面是改變顏色後的圖表
注意b2單元格與b4單元格中的數值是大於50的,所以圖表自動改變了對應的柱子顏色為紅色.
反比例函式值大小比較習題的教學反思
作者 袁茂芝 新課程學習 中 2014年第10期 摘要 九年級上冊第一章反比例函式的性質中，特別強調 在每個象限內 這一前提條件，然而在教學中往往容易忽略，給後面的解題帶來困惑。教學中從例題入手，讓學生自主學習 嘗試 體驗反比例函式性質的含義和數學的嚴謹，從而達到充分理解 鞏固知識 培養數學精神的目...
家庭裝修選購衛生間門學問根據衛生間大小選擇
從品種上說，應盡量選擇那些耐磨 耐酸鹼的大理石類和花崗石類石材。從 上來看，產量大的淺色花崗石系列比較便宜，適合一般收入家庭選購，更換損壞的部分也好配料。從板材規格上來說，地面盡量選擇花崗石薄板 8 12mm 的，這主要是考慮地面的強度和房屋承重兩方面因素。檯面顏色要耐髒 石材裝飾用品進入家庭，更多...
數值計算方法教案 數值微分
第四章數值微分 一 中點公式 1.導數定義及數值微分的含義 向前公式 向後公式 中心公式 但當f x 不能或很難直接求導，或f x 並沒有解析表示式，只是乙個數表，此時如何計算呢？中點微分公式 用來替代f x 在a點的導數值 2.中點公式的誤差分析 作泰勒展開 把以上2式代入中點公式有 則從截斷誤差...