Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2855|回复: 5

[已解决]求助,修改个查询窗体。

[复制链接]
发表于 2014-5-27 16:20 | 显示全部楼层 |阅读模式
本帖最后由 biaobiaow 于 2014-5-27 17:14 编辑

QQ截图20140527155632.png

附件: 查询窗体.zip (14.89 KB, 下载次数: 22)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-5-27 16:30 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2014-5-27 16:36 | 显示全部楼层
hwc2ycy 发表于 2014-5-27 16:30
工程密码呢。

不好意思,刚忘记了,已取消了。
回复

使用道具 举报

发表于 2014-5-27 16:39 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub CommandButton1_Click()
  2.     Dim i As Range
  3.     With Sheets("分类汇总")
  4.         Select Case True
  5.             Case Len(Me.TextBox1.Text) > 0
  6.                 Set i = Range("A2:A65536").Find(TextBox1, lookat:=xlWhole)    '需要单元格匹配查找
  7.                 If Not i Is Nothing Then
  8.                     TextBox2 = i.Offset(, 2)    '产品名称
  9.                     TextBox8 = i.Offset(, 1)    'YOLIFT展厅
  10.                     TextBox7 = i.Offset(, 3)    '数量
  11.                 Else
  12.                     TextBox1 = ""
  13.                     TextBox2 = ""
  14.                     TextBox7 = ""
  15.                     TextBox8 = ""
  16.                     MsgBox "对不起!您查询的产品不存在,请核对编码输入是否有误。", 1 + 64, "错误提示!"
  17.                 End If
  18.             Case Len(Me.TextBox8.Text) > 0
  19.                 Set i = Range("B2:B65536").Find(TextBox8, lookat:=xlWhole)    '需要单元格匹配查找
  20.                 If Not i Is Nothing Then
  21.                     TextBox1 = i.Offset(, -1)    '产品名称
  22.                     TextBox2 = i.Offset(, 1)    'YOLIFT展厅
  23.                     TextBox7 = i.Offset(, 2)    '数量
  24.                 Else
  25.                     TextBox1 = ""
  26.                     TextBox2 = ""
  27.                     TextBox7 = ""
  28.                     TextBox8 = ""

  29.                     MsgBox "对不起!您查询的产品不存在,请核对编码输入是否有误。", 1 + 64, "错误提示!"
  30.                 End If

  31.             Case Else
  32.                 MsgBox "对不起!请输入编码1或编号2 输入是否有误。", 1 + 64, "错误提示!"
  33.         End Select
  34.     End With
  35. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2014-5-27 17:14 | 显示全部楼层
hwc2ycy 发表于 2014-5-27 16:39

OK,完美搞定。谢谢!
回复

使用道具 举报

发表于 2014-5-27 18:34 | 显示全部楼层
学习了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 23:29 , Processed in 1.147103 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表