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...

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

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执行代码,结果如下:

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

我初学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...

使用Application.WorksheetFunction.Lookup 进行调用 也是3个参数 通过选中Lookup,按F1调出帮助: Excel 开发人员参考 WorksheetFunction.Lookup 方法 从单行或单列区域或者从一个数组返回值。LOOKUP 函数具有两种语法形式:向量形式和数组形式...

=mid(a1,find("V",a1),4)

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