当前位置: 首页 > news >正文

建筑网站建设/关键词排名查询官网

建筑网站建设,关键词排名查询官网,辽宁建设工程信息网投标流程,网站备案 接入商备案这个示例的意义在于,当数据量较大时,通过在用户窗体中提供筛选条件,帮助用户快速获取期望数据。 但应为使用多重筛选也能实现同样功能,所以,这里的做法有点鸡肋啊。 Option ExplicitPrivate Sub ComboBox1_Change()sh…

这个示例的意义在于,当数据量较大时,通过在用户窗体中提供筛选条件,帮助用户快速获取期望数据。

但应为使用多重筛选也能实现同样功能,所以,这里的做法有点鸡肋啊。



Option ExplicitPrivate Sub ComboBox1_Change()showall '每次组合框变化都会调用函数showall
End SubPrivate Sub ComboBox2_Change()showall '每次组合框变化都会调用函数showall
End SubPrivate Sub ComboBox3_Change()showall '每次组合框变化都会调用函数showall
End SubPrivate Sub UserForm_Activate()ComboBox1.AddItem "全部月份" '显示所有月份ComboBox1.AddItem 1 '显示1月的数据ComboBox1.AddItem 2 '显示2月的数据ComboBox1.AddItem 3 '显示3月的数据ComboBox1.AddItem 4 '显示4月的数据ComboBox2.AddItem "2次及以上的同学" '加入对迟到次数的提示ComboBox2.AddItem "3次及以上的同学" '加入对迟到次数的提示ComboBox2.AddItem "不限次数" '加入对迟到次数的提示ComboBox3.AddItem "2次及以上的同学" '加入对旷课次数的提示ComboBox3.AddItem "3次及以上的同学" '加入对旷课次数的提示ComboBox3.AddItem "不限次数" '加入对旷课次数的提示
End Sub
Sub showall()showmonth '调用showmonth显示相关月份的所有数据showtimes '调用showtimes显示满足迟到次数的所有数据showAbsenceTimes '调用showtimes显示满足旷课次数的所有数据
End Sub
Sub showmonth()'选择所有月份的数据Range(Cells(1, 1), Cells(33, 13)).Select'显示所有月份的数据Selection.EntireRow.Hidden = False'判断选择了组合框的那一项Select Case ComboBox1.ListIndexCase 0 '表示选择了显示全部月份Case 1 '表示选择了显示1月份'选择1月份的数据Range(Cells(12, 1), Cells(33, 13)).Select'显示1月份的数据Selection.EntireRow.Hidden = TrueCase 2 '表示选择了显示2月份Range(Cells(1, 1), Cells(11, 13)).SelectSelection.EntireRow.Hidden = TrueRange(Cells(21, 1), Cells(33, 13)).SelectSelection.EntireRow.Hidden = TrueCase 3 '表示选择了显示3月份Range(Cells(1, 1), Cells(22, 13)).SelectSelection.EntireRow.Hidden = TrueCase Else '选择其它月份MsgBox "暂时没有其它月份的数据"End Select
End Sub
Sub showtimes()
Dim i As Integer, Irow As Integer
Dim Inum(3) As Integer '定义数组Inum,用来表示限制的次数Inum(0) = -1 '什么都不选时表示限制次数为-1Inum(1) = 2 '选择第1项时表示限制次数为2Inum(2) = 3 '选择第2项时表示限制次数为3Inum(3) = -1 '什选择第3项时表示限制次数为-1,也就是不限制次数'取得当前可见的单元格的行数Irow = Range("A1").CurrentRegion.Rows.CountFor i = 2 To Irow'逐个判断迟到次数是否满足选定的条件If (Cells(i, 12).Value < Inum(ComboBox2.ListIndex + 1)) Then'不满足的就隐藏Rows(i).Hidden = TrueEnd IfNext i
End Sub
Sub showAbsenceTimes()
Dim i As Integer, Irow As Integer
Dim Inum(3) As Integer '定义数组Inum,用来表示限制的次数Inum(0) = -1 '什么都不选时表示限制次数为-1Inum(1) = 2 '选择第1项时表示限制次数为2Inum(2) = 3 '选择第2项时表示限制次数为3Inum(3) = -1 '选择第3项时表示限制次数为-1,也就是不限制次数'取得当前可见的单元格的行数Irow = Range("A1").CurrentRegion.Rows.CountFor i = 2 To Irow'逐个判断旷课次数是否满足选定的条件If (Cells(i, 13).Value < Inum(ComboBox3.ListIndex + 1)) Then'不满足的就隐藏Rows(i).Hidden = TrueEnd IfNext i
End Sub

http://www.lbrq.cn/news/220879.html

相关文章:

  • 在线软件网站建设/青岛关键词排名哪家好
  • 要建一个优惠卷网站怎么做/搜索引擎是网站吗
  • 旅游网站模板html/怎样在百度上打广告
  • 自己做的网站怎样弄网上/大连网络推广
  • 宁波市政务网站建设和管理标准/淘大象关键词排名查询
  • 东莞网站设计电话/营销型网站建设实训总结
  • 青岛网站制作服务/河南seo快速排名
  • 学做面包的网站/微博营销案例
  • 昆山企业网站设计/商城系统开发
  • 电商搜索关键词/seo网站关键字优化
  • 做网站的可行性分析/河南网站推广优化排名
  • 网站建设推广销售好做吗/360推广登陆
  • 做营销网站应该要注意些什么/网络推广培训班
  • 温州教育网站建设/吉安seo招聘
  • 做代还的人都聚集在哪些网站/seo排名快速刷
  • dede网站如何换源码/上海推广服务
  • 怎么自己做电影网站/绍兴百度推广优化排名
  • 苏州网站制作的公司/5118素材网站
  • 怎么做色情网站不被发现/拉新充场app推广平台
  • 平面设计免费模板网站/深圳营销推广引流公司
  • 建设网站的价值/东莞互联网推广
  • 做网站好的网络公司/西安网站公司推广
  • 服务器 网站 app/企业网站搜索优化网络推广
  • 石家庄外贸网站推广/金花关键词工具
  • 合肥公司网站建设价格/百度资源搜索资源平台
  • 做网站刷东西/外贸网站搭建
  • 做网站有必要用wordpress/实体店怎么推广引流
  • 优秀的网站设计方案/高端网站建设报价
  • 如何查询网站备案时间查询/优化设计电子课本
  • 成都快速建网站/互联网营销是干什么
  • 数据统计模块后端架构解析:从Controller到SQL的ECharts数据对接实践
  • x3CTF-2025-web-复现
  • yolo8+ASR+NLP+TTS(视觉语音助手)
  • 2025年C++后端开发高频面试题深度解析:线程安全LRU缓存设计与实现
  • 深入核心:理解Spring Boot的三大基石:起步依赖、自动配置与内嵌容器
  • 数据怎么分层?从ODS、DW、ADS三大层一一拆解!