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

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

我做好了,用VBA做的,具体在附件里,为了防止别人随意下载,下载时我加了几个财富值,请谅解 http://wenku.baidu.com/view/f66bf82cddccda38376baf90.html

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

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

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

答:完全按照你的图示,我写了段程序,测试结果正确。 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...

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 如果包含特...

用Find方法即可: 如在ABC.xls工作簿的Sheet1工作表中查找“ABCDE” set Rng=Workbooks("ABC.xls").sheet1.cell.Find("ABCD",,,2) 如果找到,Rng 就是找到的单元格,如果没找到。Rng为空值 Nothing

不难实现,但代码就懒得写了。 步骤: 1、利用INPUTBOX()获得想查询的内容,并存放到局部变量INPUTDATA 中 2、用DIM MYRANGE AS RANGE 和以下语句组合进行查找 Set MyRange = Sheets("工作表名称").Cells.Find(what:=INPUTDATA, After:=Active...

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

方法如下: 1.查找A1:D4中所有含2的单元格,并返回单元格地址: 2.Alt+F11,输入代码如下: 3.F5执行代码,结果如下:

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