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

[µo°Ý] ½Ð°Ý«ç»ò¤ñ¸û¤é´Á?

¦^´_ 6# GBKEE


   §ÚªºÀɮפ½¥q¦³¥[±K §Ú¨S¦³¿ìªk§Ëµ¹§A­C
¥L¬O¸ò§Ú»¡¦p¿ù»~°T®§»¡ªº  §ä¤£¨ì¥LªºÄÝ©Ê
³o¦³¿ìªk¸Ñ¨M¥LªºÄݩʤèªk¶Ü?

TOP

¦^´_ 6# GBKEE
  1. Option Explicit
  2. Sub EX()
  3.    
  4. Dim xlMax As Date, Co As String
  5.    
  6. Co = InputBox("¿é¤J¤½¥q¦WºÙ", "¿é¤J¤½¥q¦WºÙ")
  7.    
  8. With ActiveSheet
  9.         
  10. .Range("H1").AutoFilter FIELD:=8, Criteria1:=Co         '¤u§@ªí«ü©w½d³ò¦Û°Ê¿z¿ï,µ¹·Ç«h
  11.         
  12. xlMax = Application.WorksheetFunction.Max(Columns(30).SpecialCells(xlCellTypeVisible))
  13.         
  14. '¿z¿ï«á¥i¨£¸ê®Æªº³Ì¤j­È
  15.         
  16. .Range("H1").AutoFilter                                  '¤u§@ªí«ü©w½d³ò¨ú®ø¦Û°Ê¿z¿ï
  17.    
  18. End With
  19.    
  20. MsgBox IIf(xlMax > 0, xlMax, "¬dµL " & Co)
  21. End Sub
½Æ»s¥N½X
¬¡­¶Ã¯1.zip (11.3 KB)
    ½Ð¬d¬Ý ³o¬OÄæ¦ìªº½T©w¦ì¸m
§Ú¤£½T©w¥Lªº¿ù»~°T®§¬O¬Æ»ò·N«ä

TOP

¦^´_ 10# ­ã´£³¡ªL


    ©êºp¥i¥H¤¤¤å¸ÑÄÀ¤@¤U¶Ü ? ¦³¨º¨Ç¦a¤è¬O¥i¥HÄæ¦ìÅܰʪº?

TOP

¦^´_ 13# SinYun


¬Ý½d¨ÒÀÉ¡G
  1. Sub §ä³Ì¤j¤é´Á()
  2. Dim R&, i&, Arr, Brr, DD, MXD
  3. [B2] = "": If [A2] = "" Then Exit Sub
  4. ¡@
  5. With Sheets("¤u§@ªí2").UsedRange¡@ '¤u§@ªí¤w¨Ï¥Î°Ï°ì
  6. ¡@¡@Arr = .Columns("H")  ¡@'User¸ê®Æ°}¦C
  7. ¡@¡@Brr = .Columns("AD")¡@ 'Expire Date¤é´Á¸ê®Æ°}¦C
  8. End With
  9. ¡@
  10. DD = Application.Match([A2], Arr, 0)¡@'ÀË´ú¬d¸ß¹ï¶H¬O§_¦s¦b
  11. If IsError(DD) Then [B2] = "¦WºÙ¤£¦s¦b": Exit Sub

  12. For i = 2 To UBound(Arr)
  13. ¡@¡@If Arr(i, 1) = [A2] Then
  14. ¡@¡@¡@DD = Brr(i, 1)
  15. ¡@¡@¡@If IsDate(DD) Then If DD > MXD Then MXD = DD
  16. ¡@¡@End If
  17. Next i
  18. ¡@
  19. If MXD > 0 Then [B2] = MXD Else [B2] = "µL¤é´Á¥i¤ñ¹ï"
  20. End Sub
½Æ»s¥N½X
¡@
Xl0000090.rar (13.75 KB)
¡@

TOP

¦^´_ 14# ­ã´£³¡ªL


    SOORY~ ¥L»¡¸ê®Æ¯Á¤Þ¶W¥X½d³ò §Ú·Q°Ý»¡A2¸òB2¬O«üÀx¦s®æ¶Ü?

TOP

¦^´_ 15# SinYun


¢°¡D¸ê®Æ¯Á¤Þ¶W¥X½d³ò¡@¡@¡Ö¡Ö¬O¥Î½d¨ÒÀÉ°õ¦æªº¶Ü¡H¿ù»~¦b­þ¤@¦æ¡H
¢±¡D§Ú·Q°Ý»¡A2¸òB2¬O«üÀx¦s®æ¶Ü?¡@¡@¡Ö¡Ö«ü¡e¤u§@ªí3¡fªºA2.A3

µ{¦¡½X¨Ã¤£½ÆÂø¡A¥ý¥h¤F¸Ñ¡e¤u§@ªí¡DÀx¦s®æ¡fªº¤Þ¥Î¤èªk¡I
¡@

TOP

¦^´_ 16# ­ã´£³¡ªL


    ©êºp §Úªº¯Å§OÁÙ¤£¯à¤U¸üªþ¥ó  ©Ò¥H§Ú¬O½Æ»s¤U¨Ó¥Î¨ì§ÚªºÀÉ®×¥h§Ë
¥L¬O»¡²Ä6¸ò²Ä7¦æ°õ¦æ¿ù»~  

A2 ¸òB2¬O¥t¦s·sªº¤u§@ªí·N«ä¶Ü?

TOP

¦^´_ 17# SinYun

¥t¤@¤U¸ü§}¡G
http://www.funp.net/491882

§Ú¥u¦³OFFICE 2000¡A½Ð¦Û¦æ¥h®M¥Î¡I

TOP

¦^´_ 14# ­ã´£³¡ªL
§AªºÀɮתþÀɦW.xlsx¨S¦³¥¨¶°ªºExcelÀÉ,°õ¦æ§A­×§ïªºµ{¦¡½X,¨S¦³°ÝÃDªº.
­n¬Ý¬ÝªþÀɦW.xlsm¦³¥¨¶°ªºEXCELÀÉ,¤~ª¾§A¿ù¦b­þ¸Ì.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 19# GBKEE

§A¦n §ÚªºÀɮפӤj¤F  ©Ò¥H§Ú²{ªþ¤W¥t¥~¤@­Óºô§}
   http://www.funp.net/858398

½Ð±z¬d¬Ý §Ú¦³¦b¥¨¶°¸Ì¶K¤W¦³°ÝÃDªº¨º­Ó¥¨¶°

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD