|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 查找()
Dim inpn As Date
On Error Resume Next
inpn = InputBox("请输入日期", "计划提取项", Format(Date, "yyyy-m-d"))
findcell = Rows(1).Find(inpn, LookAt:=xlPart).Column
Range("e:f").Interior.ColorIndex = 0
If findcell > 0 Then
For rown = 2 To Cells(65536, findcell).End(xlUp).Row
If Cells(rown, findcell).Value <> "" Then
Cells(rown, 5).Resize(1, 2).Interior.ColorIndex = 3
End If
Next rown
Else
MsgBox "没找到符合条件的单元格"
End If
End Sub
这个问题可用条件格式。 |
|