[已解决]如何实现用VBA代码按条件调用数据

cunfu2010

如题，如何实现用VBA代码按条件调用数据，能够循环，并可延续下月，

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-19 14:34

没注意旁边的数据改过了

跳转到最佳答案楼层

xingkongwubian

看不懂题意，

grf1973

1. Sub tt()
   
2.     Dim xrng As Range
   
3.     [a5:h40] = ""
   
4.     [a5:h40].Interior.ColorIndex = 0
   
5.     yf = [H2]
   
6.     minday = DateSerial(Year(Date), yf, 1)
   
7.     maxday = DateSerial(Year(Date), yf + 1, 0)
   
8.     For rq = minday To maxday
   
9.         n = n + 1
   
10.         Cells(n + 4, 1) = rq
    
11.     Next
    
12.    
    
13.     Dim k(1 To 3)
    
14.     For i = 5 To n + 4    '找到日期，标色，填入内容
    
15.         Set xrng = [N:O].Find(Cells(i, 1))
    
16.         If Not xrng Is Nothing Then
    
17.             c = xrng.Column
    
18.             xc = IIf(c = 14, 3, 6)
    
19.             Cells(i, 1).Resize(1, 8).Interior.ColorIndex = xc       '找到日期，标色
    
20.             For j = 1 To 3       '填入内容
    
21.                 k(j) = k(j) + 2
    
22.                 k1 = k(j) + 1: k2 = k(j) + 2
    
23.                 r = Cells(65536, j + 15).End(3).Row
    
24.                 If k1 > r Then
    
25.                     k1 = 3: k(j) = 0: k2 = 4
    
26.                 ElseIf k2 > r Then
    
27.                     k2 = 3: k(j) = 0
    
28.                 End If
    
29.                 Cells(i, j + 5) = Cells(k1, j + 15) & Chr(10) & Cells(k2, j + 15)
    
30.             Next
    
31.         End If
    
32.     Next
    
33. End Sub

复制代码

cunfu2010

grf1973 发表于 2016-4-18 16:26

太感谢了

cunfu2010

grf1973 发表于 2016-4-18 16:26

代码放入这个附件后，运行不了，怎么回事？帮忙看看这个

好了。

cunfu2010

grf1973 发表于 2016-4-18 16:26

不用按钮，H2值变化时直接调用程序如何实现？
另，O列日期不调用数据只标黄色，只有N列日期才调用数据

再看看吧

爱疯

cunfu2010 发表于 2016-4-19 08:44
不用按钮，H2值变化时直接调用程序如何实现？
另，O列日期不调用数据只标黄色，只有N列日期才调用数据
...

应楼主要求，取消最佳。

cunfu2010

爱疯 发表于 2016-4-19 11:28
应楼主要求，取消最佳。

谢谢！！！

cunfu2010

grf1973 发表于 2016-4-18 16:26

不好意思，因问题没有解决，撤消了最佳，不然问题解决不了了，抱歉。

grf1973

请看附件。