如果找到一个日期，然后做...- VBA Excel

Question

我努力与一个简单的代码，不合作与我;） 我在列L从行5开始的一些日期。日期格式为yyyy.mm。但在公式栏中可以看到整个日期的格式为dd.mm.yyyy。

列F是相同的日期，以相同的方式格式化。唯一的区别是这里有一些单元格被合并。每个日期都位于与下两个单元格合并的单元格中。
这意味着在单元格F5是一个日期。
该单元格与F6和F7合并。
在单元格F8是下一个日期。此单元格合并...

我想从第L列中找到第一个日期，并在F列中找到它们，如果找到，请执行一些操作。

问题是变量Dates每次都是空的。我会很感激任何建议。

Public Sub Fsaldo() 

Dim Finanse As Worksheet 
Dim x As Range 
Dim Dates As Range 
Dim Sum As Range 
Dim State As Range 

Set Finanse = Sheets("Finanse") 

For Each x In Finanse.Range("L6:L100") 
    If x <= Now() And IsDate(x) Then 
     Set Dates = Finanse.Range("F5:F100").Find(What:=x, LookIn:=xlValues, _ 
     LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 
'  MsgBox Dates.Address 
'  MsgBox Data 
     Set Sum = Dates.Offset(0, 3) 
'  MsgBox sum.Address 
     Set State = x.Offset(0, 1) 
     State = Sum.Value + Sum.Offset(1, 0).Value + Sum.Offset(2, 0).Value 
    End If 
Next 

End Sub 

亲切的问候 Neke

Answer 1

由于没有解决我的问题，我自己做了...

再次澄清。在这两栏中我都写有dd.mm.yyyy的日期。所有单元格的格式都是自定义（yyyy.mm），因此在单元格中显示的就像2017.07，但是在公式栏中仍然类似于01.07.2017。

上面的宏没有工作，因为方法查找被错误地使用。我改变了：

• LookIn：xlFormulas'而不是查看单元格值我只是从公式栏中获取信息。不知道为什么xlValues不起作用。值是相同的。

• SearchOrder：xlColumns'此更改使我可以找到我在合并的单元格中搜索的内容。

也许它可以帮助别人......

Answer 2

我通过您的代码看起来。您正在搜索x的范围。我想一个简单的抵消不会做的伎俩，因为列F和L的日期不是在同一个顺序？ 代码：

Dim x As Range 
(...) 
For Each x In Finanse.Range("L6:L100") 
If x <= Now() And IsDate(x) Then 
     Set Dates = Finanse.Range("F5:F100").Find(What:=x, LookIn:=xlValues, _ 
     LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 

如果简单的偏移会工作，你可以尝试：

If x <= Now() And IsDate(x) Then 
set Dates = Range(x).offset(0,-6).value 

如果您搜索的日期，尽量在末尾添加.value的。

Set Dates = Finanse.Range("F5:F100").Find(What:=x, LookIn:=xlValues, _ 
     LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).value 

或者不是搜索范围搜索日期。我从来没有在Excel vba中搜索范围。我总是在变量中“读取”单元格的值，然后搜索它。但是如果有重复，这会导致问题。

请让我知道它是否有帮助。