ExcelTip.Net留存知识帖 ---【注：附件之前被网盘供应商清空后，现已修复-现已修复-现已修复为本地下载！】
现在位置：首页 > E问E答 > Excel VBA > 如何运用单元格有效性和复选框实现单一条件或多条件查询

如何运用单元格有效性和复选框实现单一条件或多条件查询

作者：绿色风 分类： 时间：2022-08-17 浏览：66
楼主
xmyjk		 Q:    1、在“查询表”的C1单元格输入单位名称，应能自动将该单位相关业务记录的“内容”“单价”“数量”“金额”“经办人”“备注”项依次提取出来，填入此表相应位置。
  例如：在C1录入“县职教中心”，应能自动将县职教中心相关业务记录的“内容”“单价”“数量”“金额”“经办人”“备注”项依次提取出来，填入此表相应位置。
   2、若需同时查看多个单位的记录，可将第一行中的复选按钮选中后依次添加多个单位的业务记录。
   3、单元格C1中应会出现下拉列表框，将“业务记录表”中各单位名称提取到列表中，以便选择（也可直接中C1中输入）需查询的单位。
    4、“业务记录表”中记录的数据量很大时也应能完成。
   注：“业务记录表”中记录了各单位在本部门所办业务的相关信息。


A:
  1. Dim vl As String

  3. Private Sub CheckBox1_Click()
  4.     [c1:g1].ClearContents
  5.     vl = ""
  6.     [a1].CurrentRegion.Offset(2).Clear
  7. End Sub

  9. Private Sub Worksheet_Activate()
  10.     Dim cnn As Object, sql As String, arr
  11.     Range("C1:G1").Validation.Delete
  12.     Set cnn = CreateObject("ADODB.Connection")
  13.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
  14.     sql = "Select distinct 单位 From[业务记录表$] where 单位 is not null"
  15.     arr = cnn.Execute(sql).getrows
  16.     cnn.Close: Set cnn = Nothing

  18.     With Range("C1:G1").Validation
  19.         .Delete
  20.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(Application.Transpose(Application.Transpose(arr)), ",")
  21.         .IgnoreBlank = True
  22.         .InCellDropdown = True
  23.         .IMEMode = xlIMEModeNoControl
  24.         .ShowInput = True
  25.         .ShowError = True
  26.     End With
  27. End Sub


  30. Private Sub Worksheet_Change(ByVal Target As Range)
  31.     Application.EnableEvents = False
  32.     If Target.Address(0, 0) = "C1" Or Target.Address(0, 0) = "C1:G1" Then
  33.         Dim cnn As Object, sql As String
  34.         [a1].CurrentRegion.Offset(2).Clear
  35.         If [c1] <> "" Then
  36.             Set cnn = CreateObject("ADODB.Connection")
  37.             cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
  38.             sql = "Select 序号,内容,单价,数量,金额,经办人,备注 From[业务记录表$] where 单位 = '" & Range("c1").Value & "'"
  39.             If Sheet1.CheckBox1.Value = True Then
  40.                 If vl <> [c1] Then
  41.                     If vl <> "" Then
  42.                         [c1] = vl & "," & "'" & [c1] & "'"
  43.                         sql = "Select 序号,内容,单价,数量,金额,经办人,备注 From[业务记录表$] where 单位 in ('" & Range("c1").Value & ")"
  44.                     Else
  45.                         [c1] = "'" & [c1] & "'"
  46.                     End If
  47.                     vl = [c1]
  48.                 Else
  49.                     Exit Sub
  50.                 End If
  51.             End If
  52.             [a65536].End(3).Offset(1).CopyFromRecordset cnn.Execute(sql)
  53.             cnn.Close: Set cnn = Nothing
  54.         Else
  55.             vl = ""
  56.         End If
  57.     End If
  58.     Application.EnableEvents = True
  59. End Sub

业务记录效果表.zip
2楼
eliane_lei		 进来学习！
3楼
老糊涂		 进来学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素， 经与ExcelTip.Net站长Apolloh商议并征得其同意， 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示， 供有需要的人士查询使用，也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议， 可与本人沟通提出，或于本站点留言，我们会尽快处理。 在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢
评论列表
搜索

鄂ICP备2021011689号-2

powered by emlog pro Theme By 蓝叶

sitemap