请问：在VBA怎样判断在Excel选定区域内是否存在某字符串? 请问：在VBA怎样判断在Excel选定区域内是否存在某字符串...
Excel,VBA\u4e2d\uff0c\u5982\u4f55\u5224\u65ad\u53d8\u91cf\u662f\u5426\u5305\u542b\u7279\u5b9a\u5b57\u7b26\u4e32VBA \u4e2d\u53ef\u4ee5\u4f7f\u7528 \u8fd9\u4e24\u4e2a\u51fd\u6570 \u51fd\u6570\u554a\u2026\u2026
\u4e5f\u53ef\u4ee5\u76f4\u63a5\u4f7f\u7528 \u53e6\u5916\u4e00\u79cd Like \u51fd\u6570\u2026\u2026
\u5982\uff1a
If A Like "*aa*" Then
MsgBox "A\u4e2d\u6709aa \u8fd9\u4e2a\u5b57\u7b26\u4e32"
Else
MsgBox "A\u4e2d\u6ca1\u6709aa \u8fd9\u4e2a\u5b57\u7b26\u4e32"
End If
\u6216\u8005 \u4f7f\u7528 InStr \u8fd9\u4e2a\u51fd\u6570\u8ba1\u7b97 \u4e5f\u53ef\u4ee5\u2026\u2026
'\u5b9e\u73b0\u6307\u5b9a\u5355\u5143\u533a\u57df\uff0c\u6761\u4ef6\u67e5\u8be2
Set a = Application.InputBox("\u8f93\u5165\u67e5\u8be2\u533a\u57df", "\u533a\u57df", Type:=8) '\u8f93\u5165\u67e5\u8be2\u533a\u57df
intext = InputBox("\u8f93\u5165\u67e5\u8be2\u5173\u952e\u5b57", "\u5173\u952e\u5b57\u67e5\u8be2") '\u8f93\u5165\u67e5\u8be2\u5173\u952e\u5b57
With a.Select
For Each b In a
Set F = b.Find(intext, LookIn:=xlValues)
If Not F Is Nothing Then
MsgBox "\u5b58\u5728\u67e5\u8be2\u5173\u952e\u5b57" '\u8fd9\u91cc\u8f93\u5165\u4f60\u60f3\u6267\u884c\u7684\u65b9\u6cd5
End If
Next
End With
假如你的某两个单元格内有以下内容：
我们的家乡
我们的中国
你在在你选定的区域内查找“家乡”这两个字
在sheet1代码编辑器中粘贴以下代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
arr = Split(Target, "")
text1 = "*家乡*"
For x = 0 To UBound(arr)
If arr(x) Like text1 = True Then
MsgBox Target.Address & "包含" & text1
End If
Next
End Sub
然后，选中某些区域进行测试
'实现指定单元区域，条件查询
Set a = Application.InputBox("输入查询区域", "区域", Type:=8) '输入查询区域
intext = InputBox("输入查询关键字", "关键字查询") '输入查询关键字
With a.Select
For Each b In a
Set F = b.Find(intext, LookIn:=xlValues)
If Not F Is Nothing Then
MsgBox "存在查询关键字" '这里输入你想执行的方法
End If
Next
End With
特定区域内判断的话用FIND：
set F = selection.find("字符", LookIn:=xlValues)
if not F is nothing then
msgbox "字符串存在"
endif
绛旓細if cells(i,"B")="" then 娣诲姞杩欎釜锛屽鍒楃殑鍐嶆坊鍔犱釜寰幆
绛旓細exc.Workbooks.Add '(Open "G:\瀛︿範vba鐨勬枃浠禱excel鏁版嵁.xls")'涓婂彞锛屽埄鐢╡xcel鐨勫瓙瀵硅薄Workbooks鐨刼pen鏂规硶锛屾墦寮G鐩樹笂鐨勪竴涓 xls鏂囦欢 exc.Visible = True '涓婂彞锛屾槸灏嗘瀵硅薄鏄剧ず鍑烘潵銆傚鏋滄兂鍦ㄥ悗鍙拌繍琛岃屼笉璁╀汉鐭ラ亾鍒欒涓篎alse 鈥樷欌樷欌樷欌樷欌樷欌樷欌樷樷欌樷欌樷欌樷欌樷欌樷欌樷欌...
绛旓細鎴戜竴鐩寸敤鎵嬪姩瀹炵幇杩欑鎿嶄綔CAD鍜孫FFICE鏄彲浠ュ吋瀹圭殑銆傜涓绉嶆柟娉曪細鐩存帴鍦–AD涓変腑瀵硅薄锛孋TRL+C锛岀劧鍚庡湪OFFICE鏂囨。涓矘璐村嵆鍙傜矘璐村悗鍙互鍙屽嚮璇ュ浘鐗囷紝杩斿洖CAD涓慨鏀癸紝鍦–AD涓渶澶у寲鏄剧ず鍚庯紝淇濆瓨鍐嶉鍑篊AD鍗冲彲銆
绛旓細鍙互浣跨敤vba鎻掑叆鍚с傚亣璁炬暟鎹粠a2寮濮嬶紝杩炵画鐨勶紝涓1 3 5 6 8 10.鎵撳紑excel鍚庯紝鎸塧lt+F11杩涘叆vba缂栬緫锛岃緭鍏ヤ笅闈㈣鍙ワ細Sub 琛ュ叏鏁板瓧()a = 3 While Cells(a, 1) <> ""If Cells(a, 1) <> (Cells(a - 1, 1) + 1) Then Rows(a).Select Selection.Insert Shift:=xlDown Cells(a, 1)...
绛旓細寮鍙戝伐鍏凤紙鎵撳紑excel閫夐」鈥斿父鐢ㄢ斿湪鍔熻兘鍖烘樉绀衡滃紑鍙戝伐鍏封濋夐」鍗★級鈥旀彃鍏モ旈夋嫨绗竴涓紝鍙冲嚮鎸囧畾瀹忥紝鎻掑叆浠ｇ爜锛歅ublic Sub CommandButton1_Click()Sheets("Sheet3").Select 鈥榮heet3涓哄伐浣滆〃鍚 end sub
绛旓細VB绋嬪簭鍦ㄦ墽琛屾椂閫氳繃鍒ゆ柇姝ゆ爣蹇楁枃浠跺瓨鍦ㄤ笌鍚︽潵鍒ゆ柇Excel鏄惁鎵撳紑,濡傛灉姝ゆ爣蹇楁枃浠跺瓨鍦,琛ㄦ槑Excel瀵硅薄姝ｅ湪杩愯,搴旇绂佹鍏跺畠绋嬪簭鐨勮繍琛屻傚鏋滄鏍囧織鏂囦欢涓嶅瓨鍦,琛ㄦ槑Excel瀵硅薄宸茶鍏抽棴,姝ゆ椂濡傛灉瑕佷娇鐢‥xcel瀵硅薄杩愯,蹇呴』閲嶆柊鍒涘缓Excel瀵硅薄銆 鍥涖佷妇渚 1銆鍦╒B涓,寤虹珛涓涓狥ORM,鍦ㄥ叾涓婃斁缃袱涓懡浠ゆ寜閽,灏咰ommand1鐨凜aption灞炴...
绛旓細---57132899--- 鍏跺疄鏈変竴绉嶅彉閫氱殑鏂规硶 姣斿浣犲湪涓涓9涔9鐨勫尯鍩熼噷杈撳叆锛屽彲浠ュ彧杈撳叆32鐨勬牱寮 鐒跺悗鍦ㄧ┖鐧藉尯鍩熼変腑涓涓9涔9鍖哄煙锛岃緭鍏100锛屾寜CTRL+ENTER瀹屾垚 澶嶅埗杩欎釜鍖哄煙鍒板厛鍓嶇殑鍖哄煙锛岄夋嫨鎬х矘璐达紝閫夐櫎锛岀‘瀹 鍐嶅悓鏍风殑鏂规硶锛岃緭鍏1锛岄夋嫨鎬х矘璐达紝閫夊姞 鍗冲彲 ...
绛旓細鐢vba鏈夋槸鏂规硶:1.璋冪敤dir,鏌ユ壘鏂囦欢澶笰涓嬮潰鐨勭涓涓湁鏁堟枃浠跺す(闈.鎴..),璁板綍鍏跺悕绉(鍙橀噺s1),鍐嶆璋冪敤dir,鏌ユ壘瀛愭枃浠跺すs1涓嬬殑宸ヤ綔钖,璁板綍鏂囦欢鍚嶇О(s2),鐒跺悗: name s1 as s2(璁板緱瑕佸湪s1鍜宻2鍓嶉潰鍔犱笂瀹屾暣鐨勮矾寰)2. 璋冪敤dir,鐩村埌鏌ユ壘缁撴潫 ...
绛旓細涓銆 VB璇诲啓EXCEL琛細VB鏈韩鎻愯嚜鍔ㄥ寲鍔熻兘鍙互璇诲啓EXCEL琛紝鍏舵柟娉曞涓嬶細1銆佸湪宸ョ▼涓紩鐢∕icrosoft Excel绫诲瀷搴擄細浠"宸ョ▼"鑿滃崟涓夋嫨"寮曠敤"鏍忥紱閫夋嫨Microsoft Excel 9.0 Object Library锛圗XCEL2000锛夛紝鐒跺悗閫夋嫨"纭畾"銆傝〃绀哄湪宸ョ▼涓寮曠敤EXCEL绫诲瀷搴撱2銆佸湪閫氱敤瀵硅薄鐨勫０鏄庤繃绋嬩腑瀹氫箟EXCEL瀵硅薄锛欴im xl...
绛旓細涓銆侀鍏堬紝鎵撳紑Excel绋嬪簭锛鍦╡xclu绋嬪簭涓墦寮闇瑕佽嚜鍔ㄧ粺璁¤鏁扮殑琛ㄦ牸锛岃繘鍏ヤ富鐣岄潰銆備簩銆佺劧鍚庯紝鍦╡xclu绋嬪簭涓荤晫闈笂鏂归夋嫨鍏紡涓殑鈥滄暟瀛﹀拰涓夎鍑芥暟鈥濓紝閫夋嫨鈥淪UBTOTAL鈥濆嚱鏁帮紝鐐瑰嚮鎵撳紑銆備笁銆佺劧鍚庯紝鍦ㄢ淪UBTOTAL鈥濆璇濇锛岀涓涓弬鏁颁綅缃緭鍏モ103鈥濄傚洓銆佺劧鍚庯紝鍦ㄥ璇濇涓殑绗簩涓弬鏁颁綅缃夋嫨瑕佺粺璁＄殑...
