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

¦p¦ó±N¥x«ü´Áªº¨C¤@¤ÀÄÁ¸ê®Æ³£¬ö¿ý¦bsheet 1¸Ì..½Ð±Ðª©¤W°ª¤â«e½ú~~

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-12-15 08:20 ½s¿è
¦³®É·|µo¥Í¤@ºØ±¡§Î, ´N¬ODDE³£¦³Åã¥Ü³sµ²¦¨¥\. ¦ý¬O¯uªº¨ì½L¤¤®É, «o¨S¸õ°Ê. ¸Ñ¨M¤è¦¡½T¹ê¬O­«¶} ...
bobo177 µoªí©ó 2012-12-14 22:39

ÁÙ¬O¦Ñ¸Ü¤@¥y¡G
1.  ¦pªG¨é°Óªº³nÅé±¾¤F­«·s¶}±Ò¡A EXCEL ¥ç­n¤@¨Ö¥ý¤©Ãö³¬«á¦A¶} (­«·s³sµ²DDE)¡C
     µ{§Ç¬O¡G1. ¨é°Óªº³nÅé¡B¥H¤Î¤w¶}±Òªº EXCEL ¨âªÌ§¡­n¥ý¦æÃö³¬¡F
                     2. ¥ý¶}±Ò¨é°Ó³nÅé¡B¤§«á¦A¶}±Ò  EXCEL¡C
2.  ¦pªG¨é°Óªº³nÅé¶}±Ò¥¿±`¡A EXCEL ³£¦³Åã¥ÜDDE³sµ²¦¨¥\¡A¦Ó¥¿±`¶}±Ò«á¡A
     ¦pªG¦³¥hÂsÄýµ{¦¡½X¤£¤p¤ß²§°Ê¤Fµ{¦¡¡B©ÎªÌ¬O¤§«á¤S¥t¥~¶}±Ò¥t¤@¤ä¦³ VBA
    °õ¦æªº EXCEL (¦¹¹Lµ{¥ý«e¤w¶}±Òªº EXCEL  ¨ÌµMÁÙ¦b°õ¦æ¤¤)¡A·¥¦³¥i¯à¥¦·|¼vÅT
    ¨ì¤§«e¤w¶}±Òªº EXCEL ¦Ó³y¦¨¤£·N¤¤Â_¡C¦¹®É¥ý«e¤w¶}±Òªº EXCEL ¥ç­n¤@¨Ö¥ý¤©
    Ãö³¬«á¦A­«¶} (­«·s³sµ²DDE)¡A ·íµM¤§«á²Ä¤G¤ä¥t¥~¶}±Òªº EXCEL ­n¥ýÃö³¬¡C
3. ¦p³£¤£¬O¡A¨º´N­nµû¦ô§Aªº EXCEL µ{¦¡½X¤F¡C

TOP

¦^´_ 40# cfuxiong
38# : ¥u§ï¨ìÄæ¼Æ,¨S§ï¨ì¦ì§}!!!  ,¤w§ó¥¿¥i¦A°Ñ¦Ò¤@¤U!

  1.             ' .Cells(Pos, 2).Resize(, 8) = .[b10:g10].Value  'b10:g10 ¥u¦³6Äæ ***³o¦æ¤£­n¤F****
  2.            ' .Cells(Pos, 2).Resize(, 6) = .[b10:g10].Value   '¥u­n­×§ï¨ìÄæ¼Æ¬° 6 , ¨S§ï¨ì¦ì§}
  3.              .Cells(Pos, 2).Resize(, 6) = .[b2:g2].Value   ' *** ³o¤~§¹¥þ¥¿½T ***
½Æ»s¥N½X

TOP

¦^´_  cfuxiong
ÁÙ¦³¦pªG¨é°Óªº³nÅé±¾¤F­«·s¶}±Ò¡A EXCEL ¥ç­n¤@¨Ö¥ý¤©Ãö³¬«á¦A¶} (­«·s³sµ²DDE)¡C
c_c_lai µoªí©ó 2012-10-3 20:28



    ¦³®É·|µo¥Í¤@ºØ±¡§Î, ´N¬ODDE³£¦³Åã¥Ü³sµ²¦¨¥\. ¦ý¬O¯uªº¨ì½L¤¤®É, «o¨S¸õ°Ê. ¸Ñ¨M¤è¦¡½T¹ê¬O­«¶}¨é°Ó³nÅé, ³s¦PEXCEL¤@°_§ó¦n.
¥u¬O«Ü©_©Çªº¬O, ¬°¤°»ò·|¦³³oºØ±¡§Î©O?  

TOP

¦^´_ 38# GBKEE
¹ï¤£°_~~~§Ñ¤Fªþ¥ó~~

§Y®É¶qºAa.zip (24.16 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 38# GBKEE
GBKEE¤j§A¦n¡F¯à§_·Ð½Ð¬d®Ö[¥¨¶°]¬O§_½s¿è¥¿½T¡A(8:45~13:45)¸ê®Æ¬O¦³¼´¶i¨Ó¦ý«o¤£¯à°O¿ý~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-15 07:21 ½s¿è

¦^´_ 37# cfuxiong
µ{¦¡½X¤¤ ¨C¦æµ{¦¡½X «e­±ªº ' ¬O§@¬°µ{¦¡½Xªºµù¸Ñ(¸ÑÄÀ¥Î) µ{¦¡¤£·|°õ¦æªº
  1. If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub  'Àç·~®É¶¡¤~°õ¦æ
  2.     If Second(Time) Mod 60 = 0 Then '¶¡¹j60¬í         
  3.     'If Second(Time) Mod 5 = 0 Then '¶¡¹j5¬í 10¬í 15¬í ....  ³o¦æ¬Oµù¸Ñ¸ÑÄÀ Á|¦C 5 ¬°¨C5¬í  Ãþ±À....     
  4.         With Sheets("µ¦²¤°O¿ý")
  5.             .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
  6.             Pos = .Cells(4, 2)
  7.             .Cells(Pos, 1) = Time
  8.           '  .Cells(Pos, 2).Resize(, 8) = .[b10:g10].Value   '** ¦p°õ¦æ¦¹¦æ ·|¦³2­Ó "#NA"
  9.              '  ***** Resize(, 8)³o¸Ì¬O8Äæ  ,[b10:g10]  ³o¸Ì b:g  ¥u¦³6Äæ
  10.             .Cells(Pos, 2).Resize(, 6) = .[b2:g2].Value   ' °õ¦æ¦¹¦æ´N¥i¥H  ** ­n­×§ï¬° 6¤Î¦ì§} **
  11.             'Sheets("µ¦²¤°O¿ý").[b2:i2] ¤À§O¬O¥H¤UªºDEE
  12.             '[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ]  '¥u¦³6Äæ
  13.         End With
  14.     End If
½Æ»s¥N½X

TOP

¦^´_ 36# GBKEE
GBKEE¤j§A¦n¡F½Ð±Ð2­Ó°ÝÃD...
Cells(4, 2) = 9 ' ¬ö¿ý±q10¦C¶}©l  [¹ï¶Ü¡H]

If Second(Time) Mod 60 = 0 Then '¶¡¹j60¬í
'If Second(Time) Mod 5 = 0 Then '¶¡¹j5¬í 10¬í 15¬í ....
[¬O§ï¤@¦æÁÙ¬O¤G¦æ³£­n§ï¡H]

ªþ¥ó¡F½Ð«ü¾É¬O§_OK...ÁÂÁÂ!!

§Y®É¶qºAa.zip (24.16 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-15 07:19 ½s¿è

¦^´_ 32# cfuxiong
This Workbook¤w§ï¦¨¡F'Sheets("µ¦²¤°O¿ý").[b10:g10] ¤À§O¬O¥H¤UªºDEE
¦p¹Ï ¤u§@ªí¤]­n§ï:¿é¤J¤½¦¡(¹Ï¤¤¬O¥Ü½dªº¤½¦¡,¬Ý¨º¨ÇDEE¦b­þ¸Ì)




ªþÀɪºµ{¦¡½X§A¦³­×§ï:§A¶·¦A­×§ï
  1. With Sheets("µ¦²¤°O¿ý")
  2.             .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
  3.             Pos = .Cells(4, 2)
  4.             .Cells(Pos, 1) = Time
  5.          '   .Cells(Pos, 2).Resize(, 8) = .[b10:g10].Value  'b10:g10 ¥u¦³6Äæ  ¥B¦ì§}¤]¤£¹ï
  6.             .Cells(Pos, 2).Resize(, 6) = .[b2:g2].Value   '­n­×§ï¬° 6
  7.             'Sheets("µ¦²¤°O¿ý").[b2:i2] ¤À§O¬O¥H¤UªºDEE
  8.             '[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ]  '¥u¦³6Äæ
  9.         End With
½Æ»s¥N½X
Mod 60 = 0 Then¡A¶¡¹j60¬í    ¸Õ¸Õ´Nª¾

TOP

¦^´_ 34# cfuxiong

=23:00:00
¥¿±`13:45:00§Y°±¤î°õ¦ævba

TOP

¦^´_ 33# f3202
§ï¬°     If Time < #9:00:00 AM# Or Time > #11:30:00 PM# Then Exit Sub
¬°¦ó¬O[#11:30:00 PM#]¡H
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD