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

[µo°Ý] ½Ð°Ý¦p¦ó±N¥H³s±µEXCELªºDDE¼Æ¾Ú¨C¤ÀÄÁ¬ö¿ý¤U¨Ó¡H

¦^´_ 10# GBKEE


·PÁ±zªº¸Ñµª

²Ä¤G­Ó°ÝÃD½Ð±z¬d¾\ªþÀÉ¡A§Ú¥[¤W¤F§¡¶R¡B§¡½æ¨â­Ó²³æªº­pºâ¦bsheet1¡AµM«á¸ò¤§«e¤@¼Ë¡A§Æ±æ¦bsheet2«ö·Ó¨C¤ÀÄÁ°O¿ý¤U¨Ó

¤µ¤Ñ¶}½Lªº®É­Ô¸Õ¡Aµo²{·s¼WªºÄæ¦ì¨S¿ìªk°O¿ý¤U¨Ó¡]¤]´N¬OªþÀɤ¤ªºJ2¡BK2¡^¥u¦³ÂªºÄæ¦ì¥i¥H«ö¨C¤ÀÄÁ¬ö¿ý

¤µ¤Ñªº¬ö¿ý³Q§Ú¸£´Ý¬~±¼¤F....Orz

¦A¦¸ÁÂÁ±z³o»ò¼ö¤ßªºÀ°¦£¡A¯uªº¤Ó·P°Ê¤F

DDE(Yeswin).rar (20.58 KB)

§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 10# GBKEE


GBKEE¤j¡A§Úªº°ÝÃD¸Ñ¨M¤F

¬O§Ú¦Û¤v¸£´Ý Rng.Value = R.Offset(, 1).Resize(, 6).Value¨S°µ¬Û¹ïÀ³ªº§ó°Ê¡AÃø©Ç¤£·|°O¿ý.....

³o¼Ë´N¤£¥Î³Ò·Ð±z¤F

¯uªºÁÂÁ§Aªº¼ö¤ßÀ°§U¡A·PÁ±z
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

GBKEE¤j
¥»¤H  ¤]¦³Ãþ¦üªº°ÝÃD  ­É¦¹¤@°Ý
¥»¤Hªº¸ê°T·½ ¬O¨Ó¦Ü¥ÃÂת÷ªº©ö§Q±o³nÅé ( ±µ¦¬ ¤j¥x«ü ¸ê®Æ )
¤º®e¦p¤U¡G

Dim i As Single
Private Sub Workbook_Open()

  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
End Sub
Private Sub ExeSelf()
  On Error Resume Next
  i = i + 1
  If i = 1 Then
  Sheets(1).Cells(1, 1) = Date
  i = i + 1
  End If
  Sheets(1).Cells(i, 2) = Time
  Sheets(1).Cells(i, 3) = Sheets(2).Cells(2, 1)
  Sheets(1).Cells(i, 4) = Sheets(2).Cells(2, 2)
  Sheets(1).Cells(i, 5) = Sheets(2).Cells(2, 3)

  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf", , False
End Sub


°ÝÃD¬O¡G
¤@±Ò°ÊÀɮסA¸ê®Æ´N¶}©l±µ¦¬
«D¶}½L®É¶¡¨S¦³¸ê®Æ¤U¡A¤´µM¦b¶]

¥i§_¯à   §Ú8:30¶}°_ÀÉ®×
8:45 «á¤~¶}©l  ±µ¦¬¸ê®Æ
13:45 «á ´N µ²§ô  ±µ¦¬¸ê®Æ

ÁÂÁÂ!!

DDE.rar (40.56 KB)

DDE.rar (40.56 KB)

EEDÀÉ

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

TOP

¦^´_ 13# 7777
³o¼Ë¸Õ¸Õ¬Ý
  1. Dim i As Single
  2. Private Sub Workbook_Open()
  3.   Application.OnTime TimeValue("08:45:00"), "ThisWorkBook.ExeSelf"
  4. End Sub
  5. Private Sub ExeSelf()
  6.   On Error Resume Next
  7.   If TimeValue(Now) > TimeValue("13:45:00") Then Exit Sub
  8.   i = i + 1
  9.   If i = 1 Then
  10.   Sheets(1).Cells(1, 1) = Date
  11.   i = i + 1
  12.   End If
  13.   Sheets(1).Cells(i, 2) = Time
  14.   Sheets(1).Cells(i, 3) = Sheets(2).Cells(2, 1)
  15.   Sheets(1).Cells(i, 4) = Sheets(2).Cells(2, 2)
  16.   Sheets(1).Cells(i, 5) = Sheets(2).Cells(2, 3)
  17.   Sheets(1).Cells(i, 6) = Sheets(2).Cells(2, 4)
  18.   Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
  19. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh ¤j

¤Ó´Î¤F!!

¥Ñ©ó ¬Q¤Ñ¤Ó»°  ¨Ó¤£¤Î´ú¸Õ

¤µ¤Ñ ´ú¸Õ°_¨Ó ¥¿½TµL»~

¦b¦¹ ¯uªº~ ¶W¯Å¸U¤À·PÁÂ!!



¤G.
¦ý¬O ¦sÀÉ«á ¦A¦¸¶i¤J

¹w­p ·Q­×§ï ¬í¼Æ

¦ý¦b µ{¦¡½X½s¿è¾¹¤º ªº¸ê®Æ

«oÅܤ£¨£¤F ¬O ªÅªº£®

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

TOP

¤w¸g¹A¾ä8¤ë¡A«ç»òÁÙ·|¦³ÆF²§¨Æ¥ó?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¼K¼K!!  ¤µ¤Ñ ¤S¥¿±`  

¤£©ú­ì¦]  ¦³¦p  "®ø¥¢ªº±K«Ç"  

ÁÙ¬O ·PÁÂ!!  Hsieh¤j
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¤p§Ìªì¨Ó¥E¨ì,¤]¦]¬°·Q¶}©l³z¹Ldde,§Q¥Îvbaªºµ{¦¡±N·Q°O¿ýªº©T©w®É¶¡¸ê®Æ¦s¨ú¤U¨Ó°µ¤@¨Ç¹Bºâ
«Ü°ª¿³¦³³o»ò¦h°ª¤â¦b¦¹¼ö¤ß¤À¨É
§Æ±æ¯à¦h¦h¾Ç²ß,ÁÂ謉

TOP

¦^´_ 16# Hsieh
½Ð°Ýª©¥D¡G1.­Y¨Ï¥ÎEXCEL DDE+VBA ¬ö¿ý´Á³f¸ê®ÆÀ³¸Ó­n¦³­þ¨Ç±ø¥ó?  
               2.­Y¨Ï¥Î (KGI¥þ²y³qI3_Betaª©)+excel2007ªºDDE¼Æ¾Ú¨C5¤ÀÄÁ¦Û°Ê°O¿ý¤@µ§¸ê®ÆÀ³¸Ó¦p¦ó¼g?(§Ú¨S¦³VBAªº°ò¦)¤£¦n·N«ä¡C  ÁÂÁ¡C
·s¤â

TOP

¯u¬O¼F®`ªºGBKEE ­ô­ô¡AÁöµM§Ú§¹¥þ¬Ý¤£À´¡A¤£¹L¬Ý±o¥XÅÞ¿è¬[ºc¬Û·í§¹¾ã
¬Ý¨Ó¤p§ÌÁÙ¦³¦n¦hÀð­n¥h¼²¡A¤~¯à±NEXECL¨ì¹F¹B¥Î¦Û¦pªº¤õ«J
¨ØªA~¨ØªA~~
swapjj

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD