dou10801

¦^´_ 6# n7822123 ½Ð±Ðn7822123¤j¤j,¦pªG°Ï¬q¤é´Á,­n¦p¦ó³]©w,·P®¦.

dou10801

¤@­Ó°ÝÃD,·PÁÂ,­ã´£³¡ªL, samwang, n7822123¤T¦ì«e½ú¬Û§U,¦Ó¥B¦³¤TºØ¤£¦P¤èªk,·|¤@¤@¦n¦n¾Ç²ß,·P®¦·P®¦.

n7822123

¦^´_ 1# dou10801

¤Ï¦V«ä¦Ò¥i¥H¥Î·Ç¤jªº±Æ°£ªk

­n¥¿¦V«ä¦Ò¡A¥i¥H¾Ç²ß¥Î "Like" ¶i¦æ¼Ò½k¤ñ¹ï

¤ä´©ÂX¥RNºØ±ø¥ó

Dim SrhKey$, T$
For i = 1 To 3
  T = Trim(Controls("TextBox" & i).Text)
  SrhKey = SrhKey & "/" & IIf(T = "", "*", T)
Next i
For R = 2 To UBound(MA1)
  Key = "/" & Cells(R, "A") & "/" & Cells(R, "C") & "/" & Cells(R, "E")
  If Key Like SrhKey Then     '·j´M
    '===========
    '-----§Aªºµ{¦¡-----
    '===========
  End If
Next R

dou10801

¦^´_ 3# ­ã´£³¡ªL ½Ð±Ð­ã´£¤j®v,¦]­è¾ÇvbaÁÙÅé·|¤£¥X§A´£¨Ñªº¥Îªk,¬O§_«ü¾É¯à±N[±Æ°£ªk]¥[¤J½d¥»¤¤Åý¤p§Ì¾Ç²ß,·P®¦.¡Ä

samwang

¦^´_ 1# dou10801

¬O­n³o¼Ë¶Ü? ½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

­ã´£³¡ªL

¦^´_ 2# dou10801

¥i§ï¥Î"±Æ°£ªk"
for i= 1 to 999
If Trim(MB1)<>"" and  Cells(i, "A") <> Trim(MB1) then goto i01
if Trim(MB2)<>"" and  Cells(i, "C") <> Trim(MB2) then goto i01
if Trim(MB3)<>"" and  Cells(i, "E") <> Val(MB3)  Then  goto i01
²Å¦X±ø¥ó..do something...

i01: next i

dou10801

¦^´_ 1# dou10801 ½Ð±Ð¦U¦ì¥ý¶i,ªí³æ¦h±ø¥ó³]©w,¦p¦ó³]¬°,[ªÅ¥Õ±ø¥ó]¬°¥þ³¡,
­ìµ{¦¡:If Cells(i, "A") = Trim(MB1) And Cells(i, "C") = Trim(MB2) And Cells(i, "E") = Val(MB3) Then     '·j´M
¨Ò,[¥«³õ]ªÅ¥Õ=ªí¥Ü¬d¥þ³¡¥«³õ¸ê®Æ,[«~ºØ¥N¸¹]=F1,[µ¥¯Å]=1,·|Åܦ¨:If  Cells(i, "C") = Trim(MB2) And Cells(i, "E") = Val(MB3) Then     '·j´M
¨Ò,[¥«³õ]ªÅ¥Õ=,[«~ºØ¥N¸¹]=ªÅ¥Õ,[µ¥¯Å]=1,·|Åܦ¨:If  Cells(i, "E") = Val(MB3) Then     '·j´M
¨Ò,[¥«³õ]ªÅ¥Õ,[«~ºØ¥N¸¹]=F1,[µ¥¯Å]=ªÅ¥Õ,·|Åܦ¨:If  Cells(i, "C") = Trim(MB2)  Then     '·j´M
¤T­Ó±ø¥ó³£ªÅ¥Õ,ªí¥Ü¬d¥þ³¡¸ê®Æ,ÁÂÁÂ.