- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 1# Genie
«ü©w¹ÏªíªºTop¡BLeft§Y¥i- Sub «ö¦C§å¶qø¹Ï()
- Call §å¶q§R¹Ï
- Dim i, sh
- sh = ActiveSheet.Name
- k = InputBox("¿é¤J¦C¼Æ", , 2)
- For i = 2 To ActiveSheet.Range("IV1").End(xlToLeft).Column
- s = (i - 2) Mod k
- Charts.Add
- ActiveChart.ChartType = xlXYScatter
- ActiveChart.SetSourceData Source:=Sheets(sh).Range("A1:A" _
- & R & "," & Chr(96 + i) & "1:" & Chr(96 + i) & R), PlotBy:=xlColumns
- ActiveChart.Location Where:=xlLocationAsObject, Name:=sh
- ActiveChart.Parent.Top = Sheets(sh).UsedRange.Height + 210 * s
- ActiveChart.Parent.Left = Int((i - 2) / k) * 260
- ActiveChart.Parent.Height = 200
- ActiveChart.Parent.Width = 250
- Next i
- ActiveSheet.Range("A1").Select
- End Sub
½Æ»s¥N½X |
|