|
非常好的设计思路和构架,感谢楼主的辛勤付出!学习了
现有模块是查询三条件的交集,楼主能否辛苦一下,再做一个用三个条件分别查询并集的模块?
关于记录表生成部分代码,当仅查询到一个数据时,记录表中会多出三次重复记录(虽然不影响后面数据的录入,但看起来不够完美和美观).
如果把这部分代码修改为下面,可完美解决上面的问题:
x = Sheets("查询").Cells(1, 8).Value + 2
y = Sheets("查询").Cells(1, 14).Value
Z = Sheets("查询").Cells(1, 15).Value + 1
If x > 3 Then
Sheets("查询").Range(Sheets("查询").Cells(3, 1), Sheets("查询").Cells(x, y)).Copy Sheets("记录").Range(Sheets("记录").Cells(Z, 3), Sheets("记录").Cells(Z + x, y + 2))
Sheets("记录").Range(Sheets("记录").Cells(Z, 1), Sheets("记录").Cells(Z + x - 3, 1)) = Now()
Sheets("记录").Range(Sheets("记录").Cells(Z, 2), Sheets("记录").Cells(Z + x - 3, 2)) = Sheets("查询").Cells(1, 3)
End If
If x = 3 Then
Sheets("查询").Range(Sheets("查询").Cells(3, 1), Sheets("查询").Cells(x, y)).Copy Sheets("记录").Range(Sheets("记录").Cells(Z, 3), Sheets("记录").Cells(Z + x - 3, y + 2))
Sheets("记录").Range(Sheets("记录").Cells(Z, 1), Sheets("记录").Cells(Z + x - 3, 1)) = Now()
Sheets("记录").Range(Sheets("记录").Cells(Z, 2), Sheets("记录").Cells(Z + x - 3, 2)) = Sheets("查询").Cells(1, 3)
End If
End Sub
|
|