bdld.net
当前位置:首页 >> EXCEL用VBA怎么实现查询功能?高手在哪? >>

EXCEL用VBA怎么实现查询功能?高手在哪?

好吧。扣 你这个挺简单的。 需要你的源文件,以及更进一步了解你的意图。 得空给你弄吧。 或者直接邮扣扣邮件 文件见附...

i=inputbox(" XXXXX :") a = WorksheetFunction.Match(Trim(i), Sheet142.Range("a:a"), False) 用这个找出位置以后,你就知道。。。。。

方法/步骤 新建一张表格,在表格中导入学生的成绩表,如图所示,我们将建立一个按钮,通过它来实现查找。 单击菜单栏中的“开发工具”——插入——表单控件——按钮,在出现的十字箭头上拖住画出一个按钮,如图所示。 在弹出的查找红对话框中选择“录制”...

录制宏,ctrl+F查找,完成一次查找操作,看宏代码即可。不会写了就录制!!改录制的代码即可!!

答:完全按照你的图示,我写了段程序,测试结果正确。 Sub ScoreQuery() Dim Orng As Range Dim ObjRng As Range Dim C As Range Dim FirstAddress As String Dim Cnt As Long Set Orng = Sheets("Sheet1").Range("A2") Orng.Offset(-1, 1).Resi...

推荐你看看这本书:《VB与VBA技术手册》(网上可以搜到) 看完后,结合VBA帮助文档,相信VBA的问题就不是问题。 几年不写VBA代码了,无法直接给你提供代码,抱歉。

Sub Main() Dim I As Long For I = 1 To 1000 '行数,可以根据实际情况进行修改 If InStr(Range("A" & I), "invalidstatus") > 0 Then'假设数据都在A列中,从第一行开始 Range("A" & I).interior.Color = vbRed End If Next End Sub 如果包含特...

我初学VBA,但这个问题我可以回答,用ADODB实现 Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim Str_sql As String Conn.Open ("provider=micros...

sub test()dim sh as workSheetset sh=workSheets.add(after:=workSheets(workSheets.count))with sh.[a1]="name":.[b1]="age":.[c1]="ID"end withend sub

可以说清楚点你的表结构么 首先可以明确表示,你这个还是比较容易实现的 offset函数+match函数酒可以完成 问题1:你要的日期下拉菜单,这个数据来源? 问题2:需查找的数据有多少,就一个值,还是一行? 参考公式:=OFFSET(Sheet1!A1,MATCH(Shee...

网站首页 | 网站地图
All rights reserved Powered by www.bdld.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com