[µo°Ý] ½Ð°Ý¹Ïªí­n¦p¦ó±Æ§Ç

Genie

ªþ¥ó¤¤ªº excel ¥Î¥¨¶°§å¶q§@¹Ï«á¡@¥¦ªº¹Ï·|§e««ª½±Æ¦C
­Y§Ú­nÅý¹Ïªí§e²{¤W¤U¡B¥ª¥k±Æ¦C¸Ó«ç»ò°µ©O¡H

¨Ò¡G¹Ï¤@¡@¹Ï¤T¡@¹Ï¤­¡@¹Ï¤C¡@¡@©Î¬O¡@¡@¹Ï¤@¡@¹Ï¥|¡@¹Ï¤C
¡@¡@¹Ï¤G¡@¹Ï¥|¡@¹Ï¤»¡@¹Ï¤K¡@¡@¡@¡@¡@¡@¹Ï¤G¡@¹Ï¤­¡@¹Ï¤K
¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¹Ï¤T¡@¹Ï¤»

§Æ±æ¯à°÷¨Ì·Ó¨Ï¥ÎªÌ·Q­n««ª½¤è¦V©ñ´X±i¹Ï°µ¿ï¾Ü

¦]¬°³o­Óµ{¦¡¬O±qºô¸ô¤W§ä¨ìªº
§ï¤F¤@¨Ç¦a¤è¡@¦ýÁÙ¬OµLªkÅý¹Ïªí§e²{¤W¤U¡B¥ª¥k±Æ¦C
©Ò¥H¨Ó½Ð±Ð°ª¤âÀ°­Ó¦£
ÁÂÁ¡ã

test.zip (11.99 KB)

¤U¸ü¦¸¼Æ: 14

2013-1-4 16:06

Hsieh

¦^´_ 1# Genie

«ü©w¹ÏªíªºTop¡BLeft§Y¥i

1. Sub «ö¦C§å¶qø¹Ï()
   
2. 
   
3.     Call §å¶q§R¹Ï
   
4. 
   
5.     Dim i, sh
   
6.     sh = ActiveSheet.Name
   
7.     k = InputBox("¿é¤J¦C¼Æ", , 2)
   
8.     For i = 2 To ActiveSheet.Range("IV1").End(xlToLeft).Column
   
9.     s = (i - 2) Mod k
   
10.     Charts.Add
    
11.     ActiveChart.ChartType = xlXYScatter
    
12.     ActiveChart.SetSourceData Source:=Sheets(sh).Range("A1:A" _
    
13.         & R & "," & Chr(96 + i) & "1:" & Chr(96 + i) & R), PlotBy:=xlColumns
    
14.     ActiveChart.Location Where:=xlLocationAsObject, Name:=sh
    
15.     ActiveChart.Parent.Top = Sheets(sh).UsedRange.Height + 210 * s
    
16.     ActiveChart.Parent.Left = Int((i - 2) / k) * 260
    
17.     ActiveChart.Parent.Height = 200
    
18.     ActiveChart.Parent.Width = 250
    
19.     Next i  
    
20.     ActiveSheet.Range("A1").Select
    
21. End Sub

½Æ»s¥N½X

Genie

¦^´_ 2# Hsieh


ÁÂÁ Hsieh ¶W¯Åª©¥D
À°§Ú¸Ñ¨M¤F§Úªº°ÝÃD
«D±`·PÁ¡ã