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

[µo°Ý] ¥Î¹Ïªí¥u§ì¨ú³Ì«á100µ§¸ê®Æ³Â·Ð¤j¤j¤F!!

[µo°Ý] ¥Î¹Ïªí¥u§ì¨ú³Ì«á100µ§¸ê®Æ³Â·Ð¤j¤j¤F!!

½Ð°Ý¦U¦ì¤j¤j¸Ó«ç»ò¼g
¦pªG§ÚAÄ榳100µ§¸ê®Æ §Ú­n¥Î¹Ïªí ¦ý¥u­n³Ì«á¤@¦Êµ§¸ê®Æ
¦pªG§Ú·s¼W¤F1µ§¸ê®ÆÅÜ 101 ¥L´N·|¶]¥X2-101ªº¸ê®Æ½Ð°Ý«ü¥O¸Ó«ç»ò¼g@@

¦^´_ 1# xxyyzzxyz627

¬¡­¶Ã¯1.rar (72.86 KB)

§Ñ¤FªþÀɮ׳·Фj¤jªù¤F

TOP

¦^´_ 2# xxyyzzxyz627
¸Õ¸Õ¬Ý
Sheets("¤u§@ªí1") ¼Ò²Õªºµ{¦¡½X
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     If Target.Row = Range("a" & Rows.Count).End(xlUp).Row Then EX
  4. End Sub

  5. Sub EX()
  6.     Dim Rng As Range
  7.     With Sheets("¤u§@ªí1")
  8.         Set Rng = .Range("a1").End(xlDown)
  9.         If Rng.Row < 100 Then
  10.             Set Rng = .Range("A1").Resize(Rng.Row, 6)
  11.         Else
  12.             Set Rng = Rng.Offset(-99).Resize(100, 6)
  13.         End If
  14.             .ChartObjects(1).Chart.SetSourceData Source:=Rng  '«ü©w¹Ïªí³]©w¨Ó·½¸ê®Æ½d³ò¡C
  15.             '.ChartObjects ¹Ïªíª«¥ó¶°¦X
  16.     End With
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# xxyyzzxyz627
¶¢µÛµL¨Æ¡A«K¨ÓÀH¤â´ú¸Õ¦P®É¥ç¼Wªøª¾ÃÑ¡C
GBKEE ª©¤jµ{¦¡°õ¦æ¥X¨Óªº¹Ïªíµe­±¡G

TOP

¦^´_ 2# xxyyzzxyz627
³o¥i¥Hª½±µ¥Î©w¸q¦WºÙ¹F¦¨
¦WºÙºÞ²z­û¤º¨Ì§Ç·s¼W:
    ³Ì«á¨â¦Êµ§    ¤u§@ªí1    =OFFSET($A$1:$F$1,COUNTA($A:$A)-200,,200)
    ¤é´Á¸ê®Æ        ¤u§@ªí1    =OFFSET(³Ì«á¨â¦Êµ§,,,,1)
    DÄæ¸ê®Æ         ¤u§@ªí1    =OFFSET(³Ì«á¨â¦Êµ§,,3,,1)

¹Ïªí>¿ï¨ú¸ê®Æ>½s¿è¤ô¥­®y¼Ð¶b    =¤u§@ªí1!¤é´Á¸ê®Æ
                            ·s¼W¼Æ¦C               =¤u§@ªí1!DÄæ¸ê®Æ
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD