update,

task1/task1-ticket1/helloworld/browser/hello-formatting/HighlightRow.bas

@@ -0,0 +1,43 @@
+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
+
+
+