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

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

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

§Ú¦b²Ä¤GÄæ¿é¤J®É²Ä¤@Äæ·|¥X²{®É¶¡
  1. If Target.Column = 2 And Target.Text <> "" Then
  2.     Target.Offset(0, -1) = Now
  3. End If
½Æ»s¥N½X
¨C¾ãÂI·|¼u¥X­Óªí³æ
  1. Public Sub UserForm_Show()
  2. Dim WinHnd As Long, SUCCESS As Long

  3. If UserForm.Visible = True Then
  4. UserForm.Hide
  5. End If

  6. WinHnd = FindWindow(vbNullString, Me.Caption)
  7. SUCCESS = SetWindowPos(WinHnd, HWND_TOPMOST, 0, 0, 0, 0, Flags)
  8. UserForm.Show
  9. End Sub
½Æ»s¥N½X
¦Ó¦b¤@­Óªí³æ¤W¦³­Ó«ö¶s¨Ïªí³æ®ø¥¢
  1. Private Sub CommandButton1_Click()
  2.     UserForm.Hide
  3. End Sub
½Æ»s¥N½X
°ÝÃD¨Ó¤F¡ã§Ú·Q­n¦b«ö¶s«ö¤U®É¡A¦b²Ä¤@Äæ®É¶¡ÂI¤§«á¡A²Ä¤TÄ檺²Ä¤@­ÓÀx¦s®æ¼W¥[¤@¨Ç¦r
³o¼Ë­n¦p¦ó°µ¨ì©O¡ã
Eric.Tu

¦^´_ 1# riceeric

«ü©w®É¶¡°µ¬Y­Ó°Ê§@¥i¨Ï¥ÎOnTime¤èªk
¥u¬O¡A§A¦bBÄæ¿é¤J¸ê®Æ®É¡AAÄæÅã¥Ü·í«e®É¶¡
¨ºªí³æªº¥X²{ªÖ©w¦b¦¹¤§«á¡A©Ò¥HÀ³¸Ó¬Oª½±µ°õ¦æC1¦r¦êÅܤƤ~¹ï
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
Á|¨Ò¨Ó»¡¦n¤F

²Ä¤@Äæ                                          ²Ä¤GÄæ                      ²Ä¤TÄæ
®É¶¡                                               A                                  ³Æµù
2012/3/29 9:58 AM               2.00                           «ö¤U«ö¶s®É¶¡
2012/3/29 10:20 AM               3.00        

§Ú·N«ä«üªº«ö¤U«ö¶s°²³]¬O10:10 AM¥L·|¥h§ä¨ì²Ä¤@Äæ®É¶¡¤§«áªº²Ä¤TÄæÀx¦s®æ¼W¥[¦r¦ê

²Ä¤@Äæ                                          ²Ä¤GÄæ                      ²Ä¤TÄæ
®É¶¡                                               A                                  ³Æµù
2012/3/29 9:58 AM               2.00                           «ö¤U«ö¶s®É¶¡ 10:10 AM
2012/3/29 10:20 AM               3.00
Eric.Tu

TOP

¦^´_ 3# riceeric

¸Õ¸Õ¬Ý~ ¤£¹L¤£ª¾¹D·|¤£·|¦³bug
  1. Sub ex_1()
  2. Dim a As Date
  3. a = Application.Lookup(Now, Sheet1.Range("A:A"))
  4. '¥ý¨Dnowªº®É¶¡¸¨¦b­þ¤@­Ó¼Æ­È¤W
  5. d = Sheet1.Range("A:A").Find(a).Row
  6. '¦A§Q¥Î¼Æ­È§ä¨ì¹ïÀ³ªº¦C(row)
  7. Sheet1.Range("C" & d) = Now
  8. '³Ì«á±Nnow©ñ¦b²Ä¤TÄæ²Äd¦C
  9. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¥»©«³Ì«á¥Ñ 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 : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD