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

[¤À¨É] ­n¦p¦ó¨Ì§Ú©Ò¿ï¾Üªº°_©l®É¶¡&¨Ó·½Á`Ãþ¨Ó®M¨ì¹Ïªí¤¤©O?(¤w¸Ñ¨M)

[¤À¨É] ­n¦p¦ó¨Ì§Ú©Ò¿ï¾Üªº°_©l®É¶¡&¨Ó·½Á`Ãþ¨Ó®M¨ì¹Ïªí¤¤©O?(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ vackbin ©ó 2011-3-7 23:21 ½s¿è

¦U¦ì¤j¤j¦n~~~

¤p§Ì·Q°µ¤@­Ó¹Ïªí,¥i¿ï¾Ü°_©l¤é´Á&¨Ó·½Á`Ãþ«á¤U¤è§é½u¹Ï«Kµe¥X¸Ó°Ï¬qªº¹Ï§Î ....
¦ý¬O¸Õ¤F³\¤[¯àµLªk°µ¥X....·Ð½Ð¤j¤j­ÌÀ°À°¦£ªü~~:Q



Book2.rar (122.6 KB)
Jack

Sub Macro1()
For Each c In Range([a8], [a8].End(4))
If c >= [b2] And x = 0 Then x = c.Row
If c >= [b3] And y = 0 Then y = c.Row
Next
    ActiveSheet.ChartObjects(1).Select
'   Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("½u¹Ï").Range("A" & x & ":B" & y), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="½u¹Ï"
    ActiveChart.HasDataTable = False
End Sub

TOP

·PÁÂ¥Y¤j¼ö¤ßªº¦^ÂÐ~~
¦ý¤p§Ì´ú¸Õ«áµo²{¸ê®Æ¨Ó·½·|¿ï¨ú¿ù»~½d³ò??¬O§Ú­þ¸Ì¼g¿ù¤F¶Ü??(ªþ¤WÀÉ®×)
¤]µLªk¨Ì¿ï¾Ü¨Ó·½Á`Ãþ½Õ¾ã¸ê®Æ¨Ó·½~~¸Ô¦p¹Ï¥Ü
½Ð¤j¤j¦AÀ°À°¤â°Ú.....

Book3.rar (15.07 KB)

Jack

TOP

¬°¦ó­n§â0§ï¬°5¡H
¨£ªþ¥ó
Book3.rar (16.13 KB)

TOP

¨Sª`·N§AÁÙ¤£¯à¤U¸ü
  1. Sub Macro1()
  2. Dim c As Range, x%, y%
  3. [b2:b3] = [b2:b3].Value
  4. For Each c In Range([a8], [a8].End(4))
  5. If c >= [b2] And x = 0 Then x = c.Row
  6. If c > [b3] And y = 0 Then y = c.Row - 1
  7. Next
  8. If x = 0 Then x = 8
  9. If y = 0 Then y = [a65536].End(3).Row
  10. ActiveSheet.ChartObjects(1).Select
  11. '   Charts.Add
  12.     ActiveChart.ChartType = xlLineMarkers
  13.     ActiveChart.SetSourceData Source:=Sheets("½u¹Ï").Range("A" & x & ":B" & y), PlotBy:=xlColumns
  14.     ActiveChart.Location Where:=xlLocationAsObject, Name:="½u¹Ï"
  15.     ActiveChart.HasDataTable = False
  16. End Sub
½Æ»s¥N½X

TOP

·PÁÂ¥Y¤j¼ö¤ßªº¦^ÂÐ~~+1
´ú¸Õ«á¨S¿ù´N¬O¨º¹D¥úªü(½N²´ÂIÀYª¬)~~~¤ÓÁÂÁ¤j¤j¤F
Jack

TOP

¥»©«³Ì«á¥Ñ FAlonso ©ó 2011-3-12 11:09 ½s¿è

¥J²Ó¬ã¨s³o­Ó¨Ò¤l
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD