我正在嘗試撰寫一個宏，它在 A 列中查找特定單詞（“是”），然后如果它在那里，則在 D 列中查找（cell.Offset(0, 4)）。如果單元格的日期值介于今天（現在）和兩年之間，則填寫該框。我遇到的問題是我似乎無法將這兩個搜索聯系在一起。我可以找到所有包含“是”的單元格，然后我可以轉到 D 列中的相鄰單元格。我似乎無法運行下一部分。
最終結果將類似于圖片：
Sub Test_Text()
Range("A7").Value = Now
Dim cell As Range
For Each cell In Range("$A1:$A6")
If InStr(cell.Value, "YES") > 0 Then cell.Offset(0, 4).Activate
'this activates cells in column D
'can't seem to now run the if/then statement on activated cell
If ActiveCell.Value > DateAdd("d", 1, Now) And (cell.Value) < DateAdd("d", 730, Now) Then cell.Interior.Color = RGB(0, 176, 80)
Next cell
Range("A7").Select
Selection.ClearContents
End Sub
uj5u.com熱心網友回復：
看評論：
Sub Test_Text()
With ActiveSheet 'better to set the specific sheet ie Worksheet("Sheet1")
.Range("A7").Value = Now
Dim cell As Range
For Each cell In .Range("A1:A6") 'No need for `$` in vba
If UCase(cell) = "YES" Then 'case insensitve
With cell.Offset(, 3) 'we now refer to the cell in column D.
If .Value > DateAdd("d", 1, Now) And .Value < DateAdd("d", 730, Now) Then .Interior.Color = RGB(0, 176, 80)
End With
End If
Next cell
.Range("A7").ClearContents
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/372339.html
上一篇：拆分嵌套的json資料