44 lines
1.1 KiB
QBasic
44 lines
1.1 KiB
QBasic
Attribute VB_Name = "HighlightRow"
|
|
Option Explicit
|
|
|
|
function resetColor(cell as variant)
|
|
cell.Interior.Color = rgb(255,255,255)
|
|
resetColor = true
|
|
end function
|
|
|
|
|
|
function setColor(cell as variant)
|
|
cell.Interior.Color = rgb(255, 234, 167)
|
|
setColor = true
|
|
end function
|
|
|
|
Function run(row As Integer)
|
|
On Error GoTo eh
|
|
Dim need_highlight as boolean
|
|
Dim rsi_10_14_diff_positive as boolean
|
|
Dim macd_12_25_positive as boolean
|
|
need_highlight = false
|
|
|
|
'need to highlight ?
|
|
rsi_10_14_diff_positive = Worksheets(TARGET_SHEET).Range(COL_RSI10_DIFF_RSI14 & CStr(row)) > 0
|
|
macd_12_25_positive = Worksheets(TARGET_SHEET).Range(COL_MACD_12_25_DAYS & CStr(row)) > 0
|
|
need_highlight = rsi_10_14_diff_positive and macd_12_25_positive
|
|
|
|
if (need_highlight = True) then
|
|
HighlightRow.setColor Worksheets(TARGET_SHEET).Range(COL_STOCK_CODE & CStr(row) & ":" & COL_MACD_12_25_DAYS & CStr(row))
|
|
else
|
|
HighlightRow.resetColor Worksheets(TARGET_SHEET).Range(COL_STOCK_CODE & CStr(row) & ":" & COL_MACD_12_25_DAYS & CStr(row))
|
|
end if
|
|
|
|
Done:
|
|
Exit Function
|
|
|
|
eh:
|
|
Debug.Print "HighlightRow"
|
|
Debug.Print row
|
|
|
|
End Function
|
|
|
|
|
|
|