ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦h±ø¥ó¬d¸ß³]©wªº°ÝÃD

[µo°Ý] ¦h±ø¥ó¬d¸ß³]©wªº°ÝÃD

½Ð±Ð¦U¦ì¥ý¶i,ªí³æ¦h±ø¥ó³]©w,¦p¦ó³]¬°,[ªÅ¥Õ±ø¥ó]¬°¥þ³¡,¨Ò,[¥«³õ]ªÅ¥Õ=¥þ³¡.¤T­Ó±ø¥ó³£ªÅ¥Õ,ªí¥Ü¥þ³¡¬d¸ß,ÁÂÁÂ.
¦h±ø¥ó¬d¸ß.jpg

¦h±ø¥ó¬d¸ß.rar (27.82 KB)

§ù¤p¥­

¦^´_ 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¥þ³¡¸ê®Æ,ÁÂÁÂ.
§ù¤p¥­

TOP

¦^´_ 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

TOP

¦^´_ 1# dou10801

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

¦h±ø¥ó¬d¸ß1.zip (61.96 KB)

TOP

¥»©«³Ì«á¥Ñ dou10801 ©ó 2021-7-19 20:01 ½s¿è

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

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-19 23:31 ½s¿è

¦^´_ 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
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

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

TOP

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

¦h±ø¥ó¬d¸ß6.rar (28.94 KB)

§ù¤p¥­

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-24 00:52 ½s¿è

¦^´_ 8# dou10801


§AªºIÄæ¨Ã«D¥¿±`ªº¤é´Á®æ¦¡¡A¬O¦r¦ê

¥¿±`ªº¤é´Á¬O¥i¥H¥[´î¹Bºâªº¡AEx:  A = #7/24/2021#   ,  Msgbox A+1    '2021/7/25

­n¥ýÂন¤é´Á®æ¦¡¡A¦A¤ñ¤j¤p´N¦n¤F



¤é´Á¦Û = Cells(2, "J")
¤é´Á¤î = Cells(2, "K")
For R = 2 To UBound(MA1) + 1
   T = Cells(R, "I")
   ¤é´ÁStr = Left(T, 7) & "/" & Right(T, 2)
   ¤é´Á = CDate(¤é´ÁStr)   '¦r¦ê => ¤é´Á
  If ¤é´Á >= ¤é´Á¦Û And ¤é´Á <= ¤é´Á¤î Then   '·j´M
    '===========
    '-----§Aªºµ{¦¡-----
    '===========
  End If
Next
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 9# n7822123
·PÁ«üÂI¡A¤é´Á§PÂ_+link¤ñ¹ï¡A¹F¦¨§Ú¶·¨D·P®¦¡A­ì¥ý¥H¬°link¥i¥H°Ï¶¡§PÂ_¤é´Á¡A¥ý¦bÀ´¤F¡AÁÂÁ¡C
§ù¤p¥­

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD