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模糊輸入法

方法/步驟

• 首先我們打開一個工作樣表作為例子。