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

[µo°Ý] "if"¨ç¼Æ¬ö¿ý"°ÊºA"¸ê®Æ¥i§_Åý¸ê®ÆÀRºA°±¤î?

[µo°Ý] "if"¨ç¼Æ¬ö¿ý"°ÊºA"¸ê®Æ¥i§_Åý¸ê®ÆÀRºA°±¤î?

¥Ñ©ó¤W¥q³Ìªñ°g¤WªÑ²¼¡A¦]¦¹±`±`·|«ü¬£©_©Çªºexcel°ÝÃD¡A¦³¨Ç¤w¸g¶W¹L¤p©fªº¯à¤O½d³ò¡A¦]¦¹¤µ¤Ñ¯S¦a¨Óª©¤W¨D§U¤j®a<(_ _)>
²Ä¤@¡B²Ä¤G¦Cªº¸ê®Æ(±qªÑ²¼³nÅé¦Û°Ê¶×¤Jªº°ÊºA¸ê®Æ)
¥N½X        °Ó«~                            ¥æ©ö¤é´Á                 ®É¶¡                 ¶R¶i        ½æ¥X        ¦¨¥æ        º¦¶^
FITX*1        ¥xªÑ«ü¼Æªñ¤ë           2013/10/22        13:45:00        8414        8415        8414          14
¤W¥q¥æ¥N¡A§Æ±æ¨C¦¸¸ê®Æ¨ì¤F¡u¥L«ü©wªº®É¶¡¡A´N¥i¥H¦Û°Ê°O¿ý1)¦¨¥æ2)º¦´T¡v ¦Ó¥L¥æ¥Nªº®É¶¡ÂI¦³: 08:45:05/08:45:15/10:00:00/10:30:00/11:00:00/11:30:00/12:00:00/13:40:00
¥»¨Ó§Ú¬O²³æªº·Q»¡ ¨º§Ú´N¦C­Óªí®æ¦p¤U
®É¶¡                   º¦´T                  ¦¨¥æ
08:45:05              1*                    2*
§Úªº³]©w:
1 = IF( 08:45:05 =$C$4°ÊºA¸ê®Æªº®É¶¡,D$4°ÊºA¸ê®Æªºº¦´T," ")
2 = IF(08:45:05 =$C$4°ÊºA¸ê®Æªº,E$4$°ÊºA¸ê®Æªº¦¨¥æ»ù," ")
°ÝÃD:
¸g¹L´ú¸Õ«á¡A¦b08:45:05®É¡A°ÊºA¸ê®Æªº½T·|Åã¥Ü¦b§Ú©Ò¦w±Æªº1*¡B2*Àx¦s®æ¸Ì¡A¦ý¬O¨ì¤F08:45:06®É¡A¸ê®Æ´N®ø¥¢¤F(²¦³º§Úªºif¨ç¼Æ¤¤©Ò³]©wªºvalue_if_false¬O=" ")¡A¤£ª¾¹D¦³¨S¦³¿ìªk¥i¥HÅý¸ê®Æhold¦b08:45:05©O?????  <(__ __)> ³Ò·Ðª©¤Wªº¤j¤j¤F, ªþ¥ó ªÑ²¼³ø»ù¼Æ¾Ú¦Û°Ê°O¿ý.rar (17.63 KB)

ªÑ²¼³ø»ù¼Æ¾Ú¦Û°Ê°O¿ý.rar (17.63 KB)

Shing~

¦^´_ 1# shing0520


    ±z³o­Ó­n¥Î¤U­±VBA ¤è¦¡ °O¿ý, ¦]¬°¬Ý½L³nÅ骺¸ê®Æ¤£·|¤@ª½«O¯d,·|ÀH®É¶¡©¹«e¨«
©Ò¥H¹L¥hªº¸ê®Æ­n¦Û¤vÀx¦s

    http://forum.twbts.com/viewthread.php?from=notice&tid=10556

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-10-25 09:57 ½s¿è

¦^´_ 1# shing0520
1.  ­º¥ý©p¶}±Ò "ªÑ²¼³ø»ù¼Æ¾Ú¦Û°Ê°O¿ý.xlsx" Àɮ׫á¡A±N¥¦¥t¦s·sÀÉ
      ¦sÀÉÃþ«¬½Ð¿ï¾Ü "Excel ±Ò¥Î¥¨¶°ªº¬¡­¶Ã¯ (*.xlsm)" ¡B©ÎªÌ
      "Excel 97-2003 ¬¡­¶Ã¯ (*.xls) " ªºÀɮ׫¬ºA¡C
2.  ½Ð±N¤U¦Cµ{¦¡½X¥þ³¡°Å¶K¦Ü ThisWorkbook µ{¦¡½X°Ï¶ô¤ºÀx¦s¡G
  1. Option Explicit

  2. Private Sub Workbook_Open()
  3.     If Weekday(Date, 2) <= 5 Then Scheduler     '  «D°²¤é«h°õ¦æ Scheduler
  4. End Sub

  5. Sub RTimer()
  6.     Dim TimeRange As Range, Rng As Range
  7.     Dim tm As Date

  8.     If TimeValue(Now) >= TimeValue("13:45:01") Then Exit Sub    '  ¤@¹L½L«á§Y¦Û¦æ¸õÂ÷¡A¤£¦A°õ¦æ
  9.    
  10.     tm = Now()
  11.     With Sheets("³sµ²®É¶¡°O¿ý")
  12.         Set TimeRange = .[A:A].Find(TimeSerial(Hour(tm), Minute(tm), 0))   '  Àˬd "A" Äæ¦ì¹ïÀ³¤§®É¶¡¸ê®Æ
  13.         If Not TimeRange Is Nothing Then       '  §k¦X¹w¥ý±Æµ{®É¬q¡A«h°õ¦æ¹ïºÙ¼g¤J¸ê®Æ
  14.             Set Rng = TimeRange.Offset(, 1).Resize(1, 2)
  15.             
  16.             Rng(1) = .[I2]     '  º¦´T%
  17.             Rng(2) = .[G2]     '  ¦¨¥æ
  18.         End If
  19.     End With

  20.     Scheduler
  21. End Sub

  22. Sub Scheduler()
  23.     If TimeValue(Now) < TimeValue("08:45:00") Then
  24.         Application.OnTime (TimeValue("08:45:00")), "ThisWorkbook.RTimer"        '  8:45 ®É¶¡¤@¨ì·|¦Û°Ê°õ¦æ
  25.     Else
  26.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.RTimer"      '  ¨C¹j¤@¤ÀÄÁ·j´M¤@¦¸
  27.     End If
  28. End Sub
½Æ»s¥N½X
3.  ±NÀÉ®×¥ý¦æÀx¦sÃö³¬«á¡A¦A­«·s¶}±Ò´N¥i¦Û°Ê³B²z¹B§@¤F¡C
4.  ¦bµ{¦¡¤¤§Ú¥[µù¤F¤@¨Ç»¡©ú¡A§Æ±æ¹ï©p·|¦³©ÒÀ°§U¡C¯¬´r§Ö¡I

TOP

¯u¬O·PÁ¼ӤWªº¤j®aªºÀ°¦£~~§Ú³o´N¨Ó¸Õ¸Õ¬Ý~¦p«áÄò¦³¹J¨ì°ÝÃD ÁÙ«ô°U¤j®a¤F <(___ ___)> ¯u¬Oª÷¦h½¼!
Shing~

TOP

T____T ´ú¸Õ¤F¦n´X¤Ñ¡A¦ü¥G³£¨S°ÊÀR¡A¤£ª¾¹D¬O¤£¬O§Ú­þ¸Ì·d¿ù¤F
ªþ¤W°»¿ù¹Ï¡AÁÙ±æ­þ¦ì¤j®v¦³ªÅµo´§·R¤ßÀ°¦£¸Ñ´b<(__ __)> ·P®¦
Shing~

TOP

¦^´_ 5# shing0520
½Ð°Ý§Aªºµ{¦¡½X©ñ¸m©ó¦ó³B¡H
¼Ò²Õ¸Ì©ñªº¬O¬Æ»ò¡H

TOP

¦^´_ 5# shing0520

TOP

µ{¦¡½X©ñ¸m: §Ú¬OÂI¿ï¡uThisWorkbook¡vÂI¥kÁä¡A¡uÀ˵øµ{¦¡½X¡v¡AµM«á§âc_c_lai¤j®vªºµ{¦¡½X ½Æ»s¶K¤W¦b¡u¥kÃ䪺ªÅ¥Õ®Ø¸Ì¡v

¼Ò²Õ¸Ì­±: ¤§«e¤£¤p¤ß«ö¨ì"¿ý»s¥¨¶°"(¦³°¨¤W«ö°±)¡A­è­è¦³§â¼Ò²Õ¸ÌªºªF¦èµ¹§R°£¤F¡A¦ý¬OÁÙ¬O¨SÀ°§U T_T

PS §Ú·PıVBA¬O¦³Ä²µo¡A¥u¬OµLªk§â§Ú­nªºdata°O¿ý¤U¨Ó~

¥Ñ©ó³o¬O²Ä¤@¦¸¨Ï¥ÎVBA¡A¦pªG¦pªG·d¤FÔ£Äø¨Æ¡AÁ٧Ʊæ¤j®aªÖµo´§·R¤ß <(__ __)> ÁÂÁÂ~
Shing~

TOP

ªþ¤W§ÚªºÀÉ®×~Áٱ浽¤ß¤H¤hªº¸Ñµª <(__ __)> ªÑ²¼³ø»ù¼Æ¾Ú¦Û°Ê°O¿ý1031.rar (24.28 KB)
Shing~

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD