EXCEL vba 如何顏色判斷改變

KTM520

KTM520
個人積分：6分
文章編號：54220790

6分

樓主

2015-01-26 21:11

大大們好

小弟有寫一個EXCEL來判別目前數值顏色
舉個例子：

EXCEL vba 如何顏色判斷改變

A欄的部份是我手KEY的部份
會根據B欄的顏色判別來KEY進去
條件：
只要B欄的顏色連續兩格是紅色就輸入A
連續是綠色則輸入B
不然則維持原數值

目前的話A欄則是我人工判定
這部份的話有辦法改寫成公式來判定嗎?
------
補充：
EXCEL vba 如何顏色判斷改變

若是改成B欄會跑正負數值
A欄目前是人工判斷
條件是：
只要B欄正數就顯示A
除非遇到連續兩負數才會顯示B
反之一樣

這樣子若要用VBA來判定的話應該怎麼寫比較好?
請大大指教><

-----
2/2補充：
B欄的話有寫公式
所以自己會跑出值出來

A欄的話則是只要判斷目前是A的話
就一直是A直到B欄發生連續兩個綠色
才會換成B
反之亦然~~

謝謝目前留言的兩位大大~~

2015-01-26 21:11 發佈

文章關鍵字 Excel VBA 顏色改變

froce

froce
個人積分：77分
文章編號：54277374

77分

2樓

2015-01-30 11:52

KTM520 wrote:
大大們好小弟有寫一個...(恕刪)

請問為何A6會是"A"?A9、A10為何是"B"?
你的條件寫出來我看不懂。

可以給你的方向是
檢查儲存格，假設第i列是你目前正在檢查的，檢查第i及第i+1列是否為兩連續負數。
if cells(i,2)<0 and cells(i,2)*cells(i+1,2)>0 then
cells(i,1)="B"
else
cells(i,1)="A"
end if

morose

morose
個人積分：0分
文章編號：54282053

0分

3樓

2015-01-30 16:12

Sub 按鈕1_Click()

For i = 2 To Range("B65536").End(xlUp).Row 'Range("B65536").End(xlUp).Row 直接抓B的最後一列

If (Range("B" & i).Interior.Color = Range("B" & i - 1).Interior.Color And Range("B" & i).Interior.Color = "255") Then '255是紅色可以用 Range("B" & i).Interior.Color 去抓色碼

Range("A" & i) = "A"

ElseIf (Range("B" & i).Interior.Color = Range("B" & i - 1).Interior.Color And Range("B" & i).Interior.Color <> "255") Then

Range("A" & i) = "B"

End If

Next

End Sub

從 APP 打開