excel vb窗体查询

eq1122

哪位大神能够帮忙解决一下我的窗口系统查询中时间段查询方式~~不胜感激，急急急~~~

jsqb

excel中使用窗体，问题很多，且效率低，一般不要用窗体显示记录

eq1122

jsqb 发表于 2018-8-30 11:47
excel中使用窗体，问题很多，且效率低，一般不要用窗体显示记录

大神可以看一下，我只是利用窗体一个几面，结果会显示到新表中，我就差一个时间没有弄·还请大神帮忙

一指禅62

eq1122 发表于 2018-8-30 14:42
大神可以看一下，我只是利用窗体一个几面，结果会显示到新表中，我就差一个时间没有弄·还请大神帮忙

1. Private Sub cmd时间段查询_Click()
   
2.     Dim time1 As String, time2 As String  ' Variant
   
3.     Dim arr, a(), i&, j%, n&
   
4.     arr = Sheets("数据源").Range("A1").CurrentRegion
   
5.     time1 = InputBox("请输入期刊开始日期(例:xxxxxxxx)", "期刊日期查询")
   
6.     time2 = InputBox("请输入期刊结束日期(例:xxxxxxxx)", "期刊日期查询")
   
7.     For i = 2 To UBound(arr)
   
8.         If CStr(arr(i, 5)) >= time1 And CStr(arr(i, 5)) <= time2 Then
   
9.             n = n + 1: ReDim Preserve a(1 To 5, 1 To n)
   
10.             For j = 1 To 5
    
11.                 a(j, n) = arr(i, j)
    
12.             Next
    
13.         End If
    
14.     Next
    
15.     Sheets("结果").Select
    
16.     Range("a2:h100").Clear
    
17.     If n > 0 Then
    
18.         MsgBox "共有 " & n & "条 记录"
    
19.         Range("a2").Resize(n, 5) = WorksheetFunction.Transpose(a)
    
20.     Else
    
21.         MsgBox "未找到数据。"
    
22.     End If
    
23.     ListBox1.ColumnCount = 8
    
24.     ListBox1.ColumnWidths = "120,40,40"
    
25.     ListBox1.RowSource = Range("a1:E" & n + 1).Address
    
26. End Sub

复制代码

一指禅62

信息查询系统网-测试.rar (19.39 KB, 下载次数: 402)

2018-8-30 20:11 上传

点击文件名下载附件

eq1122

一指禅62 发表于 2018-8-30 20:11

谢谢大神，受教了~~~

eq1122

一指禅62 发表于 2018-8-30 20:11

大神：我弄个复合框，语句没问题，但是窗体运行是必须在复合框里输入数字才能点击下拉菜单，这是怎么回事？

For I = 1 To [A65536].End(xlUp).Row '1

ComboBox1.AddItem Range("A" & I).Value
Next