新手跪求帮写一个简单的VBA代码

小脚bia凉

如图所示，请高手帮忙写个代码：

1、创建一个输入日期的输入框
2、在第1行查找输入框中输入的日期，找到日期所在的列，如J列
3、日期所在列非空值所对应E、F列填充为红色。

小花鹿

这样的代码已经不算简单了.............................................................................

小脚bia凉

小花鹿 发表于 2017-12-17 19:24
这样的代码已经不算简单了............................................................................ ...

我写出来的总是报错，调了半天没调好！可能是有空值，不知道怎么搞了！第一次写代码，一脸懵逼啊

1. Sub 查找()
   
2. Dim inpn As Date
   
3. inpn = InputBox("请输入日期", "计划提取项", Date)
   
4. Set findcell = Rows(1).Find(inpn, LookAt:=xlPart).Column
   
5. If Not findcell Is Nothing Then
   
6.     For RowN = 2 To Cells(65536, findcell).End(xlUp).Row
   
7.      Set  i = Cells(RowN, findcell)
   
8.       If Not i Is Nothing Then
   
9.       Cells(RowN, 6).Interior.ColorIndex = RGB(255,0,0)
   
10.       Else
    
11.       Exit For
    
12.       End If
    
13.     Next RowN
    
14. Else
    
15. MsgBox "没找到符合条件的单元格"
    
16. End If
    
17. End Sub
    

复制代码

duquancai

简单的VBA代码？？？你说得很轻松的样子。。。。。。。。。。。

小脚bia凉

duquancai 发表于 2017-12-17 20:33
简单的VBA代码？？？你说得很轻松的样子。。。。。。。。。。。

这个很难写吗？算是我不知者无畏吧，我以为会很短很简单呢

jsgj2023

把附件也传上来吧!

山菊花

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

这个问题可用条件格式。

小脚bia凉

山菊花 发表于 2017-12-18 14:18
Sub 查找()
    Dim inpn As Date
    On Error Resume Next

谢谢大侠的分享，此问题我琢磨了一天，刚才终于调试成功了，以下是我写的代码
Sub 计划变色()
Dim inpn As Date
inpn = InputBox("请输入日期", "计划提取项", Date)
Set fc = Rows(1).Find(inpn, LookAt:=xlPart)
If Not fc Is Nothing Then
  For one = 2 To Cells(65536, fc.Column).End(xlUp).Row
     If Cells(one, 10) <> "" Then
     Cells(one, 6).Interior.ColorIndex = 3
     End If
  Next one
Else
MsgBox "未查找到该日期，请确认"
End If
End Sub
第一次写代码，这个写了将近两天，总算是试出来了，看来还要更努力的学习了。