°õ¦æ®É¶¡°ÝÃD?

mead

¦U¦ì¤j¤j:
ªþ¥óªºEXCEL§Ú³]©w¦b8:45~13:45¶¡°õ¦æ
¦ý¨C¦¸¦b8:45«e°õ¦æ  ¥Hµ¥«Ý8:45¶}©l°O¿ý  ¦ý¥h³£µLªk±Ò°Êµ{¦¡¬ö¿ý
³£¥²¶·µ¥8:45«á°õ¦æ  µ{¦¡¤~·|±Ò°Ê°O¿ý!¤£ª¾°ÝÃD¥X¦b­þ¨à?
Àµ½Ðª©¤W¤j¤j¨ó§U­×¥¿

ÁÂÁÂ

·P®¦

¶q.rar (12.12 KB)

¤U¸ü¦¸¼Æ: 22

2012-6-7 17:22

c_c_lai

¦^´_ 36# GBKEE
¦hÁ«üÂI¡I
«Ü´Îªº½d¨Ò¡A©öÀ´¦ý·|¸£µ¬¥´¦ºµ²ªº¡I

GBKEE

¦^´_ 35# c_c_lai

1. '#   #  ¬°¨t²Î¿é¤J¤é´Á®É¶¡ªºÃöÁä¦r
   
2. '#00:00#  ¨t²Î¦Û°Ê¥Í¦¨ -> #12:00:00 AM#
   
3. '#11:59#  ¨t²Î¦Û°Ê¥Í¦¨ -> #11:59:00 AM#
   
4. '#13:01#  ¨t²Î¦Û°Ê¥Í¦¨ -> #1:01:00 PM#
   
5. '#23:01#  ¨t²Î¦Û°Ê¥Í¦¨ -> #11:01:00 PM#
   
6. Option Explicit
   
7. Sub Ex()
   
8.     Dim TheTime As Date, xTime As Date
   
9.     MsgBox "#11:59:59 AM# + #12:00:01 AM#" & Chr(10) & CDate(#11:59:59 AM# + #12:00:01 AM#)
   
10.     TheTime = #8:45:05 AM#
    
11.     xTime = TimeSerial(Hour(TheTime), 0, 0)
    
12.     MsgBox xTime
    
13.     xTime = TimeSerial(Hour(TheTime), Minute(TheTime), 0)
    
14.     MsgBox xTime
    
15.     xTime = TimeSerial(Hour(TheTime), Minute(TheTime), 0) + #12:01:00 AM#
    
16.     MsgBox xTime
    
17. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 34# GBKEE
ÁÂÁ±z¡I
½Ð±Ð TheTime = TimeSerial(Hour(Time), Minute(Time), 0) + #12:01:00 AM# ªº¥Î·N¦ó¦b¡H
¬°¦ó°¾°¾¥[¤W 12:01:00¡A¬O«ü¦V¤U¤@¤ÀÄÁ¶Ü¡H ¦pªG¬Oªº¸Ü¡A¬°¦ó¤£¬O 00:01:00 ¡H

GBKEE

¦^´_ 31# c_c_lai
³o¼Ë¤]·|¦Û°Ê¤Æ
DDE³sµ²¤u§@ªí¼Ò²Õµ{¦¡½X

1. 'DDE³sµ² ¤u§@ªíªº¹w³]¨Æ¥ó :  ·í¤½¦¡¸ê®Æ¦³Åܰʮɷ|IJµo¦¹¨Æ¥ó
   
2. Dim TheTime As Date  '°O¿ý¤U¤@¤ÀÄÁªº®É¶¡ : DDE³sµ²¤u§@ªí¼Ò²Õªº¨p¥ÎÅܼÆ
   
3. Private Sub Worksheet_Calculate()
   
4.      Application.EnableEvents = False
   
5.     If IsError([C2]) Or Time < #8:45:00 AM# Then
   
6.         Sheets("µ¦²¤°O¿ý").[a1].CurrentRegion.Offset(1).Clear
   
7.         Application.EnableEvents = True
   
8.         Exit Sub
   
9.     ElseIf Time > #1:30:00 PM# Then
   
10.        Application.EnableEvents = True
    
11.         Exit Sub
    
12.     End If   
    
13.     If CDbl(TheTime) = 0 Or TheTime <= Time Then    ' TheTimeÅܼƥ¼µ¹­È  or   °O¿ý¤U¤@¤ÀÄÁªº®É¶¡>= Time
    
14.         With Sheets("µ¦²¤°O¿ý")
    
15.             .Cells(.Rows.Count, 1).End(xlUp).Offset(1).EntireRow = Rows(2).Value
    
16.         End With
    
17.         TheTime = TimeSerial(Hour(Time), Minute(Time), 0) + #12:01:00 AM#
    
18.     End If
    
19.     Application.EnableEvents = True
    
20. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 32# devidlin
¦³µª®×®É¦A§i¶D§Ú¡C
»¡¯u®æªº¡A§Ú¹ï©ó§A»¡ªºÄ_¨ÓÂIºëÆF¤§³sµ²¤è¦¡·P¨ìÆZ¦n©_ªº¡C

devidlin

¦^´_ 31# c_c_lai


    ·PÁª©¤jªº¨ó§U¡A¦³ªÅ©ú¤Ñ§Ú¦A¨Ó´ú¸Õ¡AÁÂÁ±z¡C

c_c_lai

¦^´_  c_c_lai


    ¤p§Ì©úÁA±zªº·N«ä¡A­ì¨ÓÄ_¨ÓÀô²y³q¤£¹³easywinªºdde¦³µ{¦¡½X¥N¸¹¡A©Ò¥HÄ_¨ÓÀô²y³q ...
devidlin µoªí©ó 2012-6-27 18:00

ÆZ¦n©_¥¦¬O«ç»ò³sµ²ªº¡A Anyway §Ú¨Ì¾Ú§A²{¦³ªº¸ê®Æ (new.xls) ±N VBA µ{¦¡¼¶¼g§¹²¦¡A(½Ð¯d·N¨C­Ó¼Ò²Õ¶¡ªº¤¬°ÊÃö«Y)
¤è«K¤µ«á§A¯à§Y®É´ú¸Õ¡A¬°©úÁA¦U­Ó¤u§@ªí³æ©Ò¨ã¯S©Ê¨Ã¦P®É±N¥¦­Ì Rename¦¨ "DDE³sµ²"¡B¤Î "µ¦²¤¬ö¿ý"¡C
§A¨C¤é 08:45 «e³s½u«á¡A¥¦·|µ¥¨ì¤F 08:45 «K¦Û°Ê°õ¦æ¸ê®Æ¶×¤J¡A¤§«á¨C¹j¤@¤ÀÄÁ«K°õ¦æ¤@¦¸¡F
ª½¨ì 13:45 ¤@¹L«K¦Û°Ê°±¤î¡A¤@¤Á¦Û°Ê¤Æ¡C ±µ¤U¨Ó¡A´N­n¾a§A¦Û­Ó¨àÆp¬ã¤F¡C
¯¬ ±ß¦w¡I
DDE³sµ².rar (13.24 KB)

¤U¸ü¦¸¼Æ: 10

2012-6-27 20:42

devidlin

¦^´_ 29# c_c_lai


    ¤p§Ì©úÁA±zªº·N«ä¡A­ì¨ÓÄ_¨ÓÀô²y³q¤£¹³easywinªºdde¦³µ{¦¡½X¥N¸¹¡A©Ò¥HÄ_¨ÓÀô²y³q¬O°°ªºdde¡C

c_c_lai

¦^´_ 28# devidlin
§Ú­nªº¬O¦pªþ¹Ï¼Ð¥Üªº¸ê®ÆÀÉ¡C

¤U¸ü (92.07 KB)

2012-6-27 17:30

new.rar (14.06 KB)

¤U¸ü¦¸¼Æ: 7

2012-6-27 17:30