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

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

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

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

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

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

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

' 以下代码筛选活动工作表已用单元格区域中的第二列值为2的所有行。ActiveSheet.UsedRange.AutoFilter 2, 2

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

看你具体要找什么了,find,vlookup,search等等都有一定的查找功能。

Function myvlookup(val, rg As Range, n As Integer, f As Boolean) arr = rg If f Then For i = UBound(arr) To 1 Step -1 If val >= arr(i, 1) Then myvlookup = arr(i, n) End Function End If Next Else For i = 1 To UBound(arr) If val =...

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