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

[µo°Ý] Ãö©ó¹Ïªí..«ô°U¦U¦ì¤j¤j¤F ><

[µo°Ý] Ãö©ó¹Ïªí..«ô°U¦U¦ì¤j¤j¤F ><

¤p©f¯uªº¤w¸g¸Õ¹L¦UºØ¤èªk«Ü©_©Çªº´N¬O¤£¦æ
«ô°U½Ö¨Ó±Ï±Ï¤p©f§a T_T

¥H¤U¬Oµ{¦¡½X
  1. Option Explicit

  2. Dim timerEnabled As Boolean

  3. Sub Timer()  '¨C¤ÀÄÁ¬ö¿ý¸ê®ÆªºTimer

  4. If timerEnabled Then
  5. Application.OnTime (Now + TimeValue("00:01:00")), "Update" '«ü©wªº®É¶¡°Ï¬q
  6. Else
  7. timerEnabled = True

  8. If (TimeValue(Now) <= TimeValue("08:45:00")) Then
  9. Application.OnTime (TimeValue("08:45:00")), "Update"
  10. Else
  11. Application.OnTime (Now + TimeValue("00:00:05")), "Update" 'DDE½w½Ä®É¶¡
  12. End If
  13. End If

  14. End Sub

  15. Sub Update() '¨C¤ÀÄÁ¬ö¿ý¸ê®Æªº Sub

  16. On Error Resume Next
  17. If (TimeValue(Now) < TimeValue("8:45:00") Or TimeValue(Now) > TimeValue("13:45:30")) Then Exit Sub '¥u¦b«ü©wªº®É¶¡°Ï¬q¤º¬ö¿ý¸ê®Æ

  18. With ¤u§@ªí1

  19. .Range("A2:ZZ2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  20. .Range("A3:ZZ3") = .Range("A3:ZZ3").Value

  21. End With

  22. ¤u§@ªí2.Rows(2).Copy
  23. ¤u§@ªí1.Rows(2).PasteSpecial

  24. If timerEnabled Then Call Timer
  25. End Sub
½Æ»s¥N½X
¤p©f¦b¤u§@ªí 3 ¦³¤@­Ó¹Ïªí
³o­Ó¹Ïªí·|§ì A2~A(M) ¨ä¤¤M¬O¨C¤ÀÄÁ°O¿ýªº¸ê®Æ
«Ü©_©Çªº¬O¦b Update ³o­Óµ{¦¡¨C¶]§¹¤@¦¸´N·|·s¼W¤@¦C¨ì²Ä 2 ¦C
µM«á¹Ïªíªº¸ê®Æ¿ï¨ú´N·|¦Û°Ê±q
=¤u§@ªí1!$A$2:$A$10

Åܦ¨
=¤u§@ªí1!$A$3:$A$11

§Ú·Q­n°µ¨ì¬O¥i¥H«e­±ªº $A$2 ¥Ã»·¤£°Ê , «á­±«h¸òµÛ³Ì·s¦³¸ê®Æªº¨º¦æ¶]


«ô½Ð¤j¤j­Ì¨Ó´N±Ï¤p©f¤F Q_____Q
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

¥»©«³Ì«á¥Ñ luhpro ©ó 2015-1-26 00:12 ½s¿è

¦^´_ 1# saleen
¦]¬°§A©³¤U³o¤@¦æ·|§ïÅÜ¹Ïªíªº¨Ó·½¹ïÀ³¦ì§}:
.Range("A2:ZZ2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

¸Õ¸Õ¦b³Q§ïÅÜ«á¦A­«³]¦^­ì¦ì§}ªº¤è¦¡,¬Ý¬O§_²Å¦X§Aªº»Ý¨D :
  1. With ¤u§@ªí1
  2. .Range("A2:ZZ2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  3. .Range("A3:ZZ3") = .Range("A3:ZZ3").Value

  4. Sheets("¤u§@ªí3").ChartObjects("¹Ïªí 1").Activate
  5. ActiveChart.SetSourceData Source:=Sheets("¤u§@ªí1").Range("$A$2:$A$10"),PlotBy:=xlColumns

  6. End With
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD