vba编程模糊

㈠ Excel 如何用vba实现模糊查找

1、使用like + 通配符：? 代替一个字节； * 表示多个字节；
举个简单的例子：
if cells(1,1).value like "苹果*" 表示判断单元格A1的值是否是以“苹果”开头，后面还可以有其他汉字或字符
if cells(1,1).value like "*苹果*" 表示判断 A1的里面的内容为 包含苹果俩字
[A-D]* 表示A-D开头的字符串
等等；
2、正则表达式，这个用起来很Nice，但是比较复杂一点，我就不介绍了，上面够你用了，如果需要你去网络下，很多地方都有介绍
再配合你需要的查找功能进行条件循环遍历查找即可（如果你懂vba的话）。

㈡ 如何用EXCEL VBA编写模糊查询程序，并将结果显示在工作表中

不难实现，但代码就懒得写了。
步骤：
1、利用INPUTBOX（）获得想查询的内容，并存放到局部变量INPUTDATA 中
2、用DIM MYRANGE AS RANGE 和以下语句组合进行查找
Set MyRange = Sheets("工作表名称").Cells.Find(what:=INPUTDATA, After:=ActiveCell, LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
3、用条件语句进行判断是否找到或符合
If MyRange Is Nothing Then
MsgBox "没找到符合条件的记录!"
.....
else
找到的话，进行相应的单元格赋值操作
.....
endif
4、用将上述步骤嵌套到一个循环语句内，以便继续查找。

㈢ excel2003如何用VBA模糊查找录入

• 首先，打开你的Excel。

  

㈣ VBA 插入图片 变模糊了

VBA插入图片变模糊了是因为图片被压缩了。
可以将代码里的PDF文件质量是“最小文件”，里面这句：Quality：=xlQualityMinimum修改为：Quality：=xlQualityStandard即为标准文件大小，再插入图片就不会变模糊了。

㈤ vba模糊查询的条件要根据单元格的内容变化

你这些代码是在VBA中的吗？如果是vba里，应该有双引号的。

一般是定义一个变量为这句话，然后再执行变量。所以你的这个应该是

msql="selet*fromuserwherenamelike'%小%'orderbyidasc"

如果用A1单元格的话就是

msql="selet*fromuserwherenamelike'%"range("a1")&"%'orderbyidasc"

这样，就将A1的值转成了这一句代码中的一部分。

㈥ excel vba 里怎么实现模糊查询，需要代码 我做了这样一个窗口，随便在一栏中输入信息，能模糊查询出信息

有窗体，还要给出源数据的格式，最好截图
模糊查询 用FIND 或者like 比较符都可以
窗体上少一个数据输出控件，建议用listview 或者listbox。用于显示模糊查询到的内容

㈦ 关于用EXCEL里面的VBA编写模糊匹配功能

用 instr(1,ThisWorkbook.Worksheets("sheet1").Cells(1, 1).Value,ThisWorkbook.Worksheets("sheet1").Cells(1, 2).Value)<>0 不就OK了

加上长度判断

if len(ThisWorkbook.Worksheets("sheet1").Cells(1, 1).Value)>len(ThisWorkbook.Worksheets("sheet1").Cells(1, 2).Value) then
if instr(1,ThisWorkbook.Worksheets("sheet1").Cells(1, 1).Value,ThisWorkbook.Worksheets("sheet1").Cells(1, 2).Value)<>0 then

end if
else
if instr(1,ThisWorkbook.Worksheets("sheet1").Cells(1, 2).Value,ThisWorkbook.Worksheets("sheet1").Cells(1, 1).Value)<>0 then
end if
end if

㈧ 利用excel vba写一个程序：模糊查找并返回所有位置

方法如下：

1.查找A1:D4中所有含2的单元格，并返回单元格地址：

㈨ 求助，EXCEL VBA 代码 模糊匹配

Sub匹配()
DimRngAsRange,ArrAsVariant,iAsInteger
Arr=Range(Worksheets("Sheet2").Range("A1"),Worksheets("Sheet2").Cells(Rows.Count,1).End(3))
ForEachRngInRange(Worksheets("Sheet1").Range("A1"),Worksheets("Sheet1").Cells(Rows.Count,1).End(3))
Fori=1ToUBound(Arr,1)
IfUCase(Rng.Value)Like"*"&UCase(Arr(i,1))&"*"Then
Rng.Offset(0,1)=Arr(i,1)
ExitFor
EndIf
Nexti
NextRng
EndSub

㈩ Excel 请问如何使用vba模糊输入法

方法/步骤

• 首先我们打开一个工作样表作为例子。