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

ªí³æ«ö¶s§P©w®É¶¡¿é¤J¦r¦ê

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-3-29 17:57 ½s¿è

¦^´_ 1# riceeric
§Ú·Q­n¦b«ö¶s«ö¤U®É¡A¦b²Ä¤@Äæ®É¶¡ÂI¤§«á¡A²Ä¤TÄ檺²Ä¤@­ÓÀx¦s®æ¼W¥[¤@¨Ç¦r ³o¼Ë­n¦p¦ó°µ¨ì©O¡ã
«Øij¥Î¤u§@ªí¨ç¼Æ
  AÄæ       BÄæ
²£«~    ¶µ¥Ø­Ó¼Æ
­»¿¼        25
¬a¾ï       38
Ä«ªG        40
±ù¤l       41
¤½¦¡ ±Ô­z(µ²ªG)
=MATCH(39,B2:B5,1) ¦]¬°¨S¦³§¹¥þ²Å¦Xªº¶µ¥Ø¡A©Ò¥H·|¶Ç¦^½d³ò B2:B5 ¤¤¤U¤@­Ó¸û¤pªº­È (38)¡C(2)
=MATCH(41,B2:B5.0) ½d³ò B2:B5 ¤¤ 41 ªº¦ì¸m¡C(4)
=MATCH(40,B2:B5,-1) ¦]¬° B2:B5 ¤£¬O¨Ì»¼´î¶¶§Ç±Æ¦C¡A©Ò¥H·|¶Ç¦^¿ù»~¡C(#N/A)

§AªºÀɮפ¤¦p ²Ä¤@Äæ¬OAÄæ ,²Ä¤TÄæ¬OCÄæ
  1. Option Explicit
  2. Sub Ex()
  3.     Dim D As Variant, D1 As Double
  4.     D1 = Now
  5.     D = Application.Match(D1, [A:A], 1)
  6.     If Not IsError(D) Then
  7.         Range("C" & D) = " «ö¤U«ö¶s®É¶¡ " & Format(Time, "HH:MM AM/PM")
  8.     Else
  9.         MsgBox "§ä¤£¨ì®É¶¡ÂI !!!"
  10.     End If
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD