½Ð°Ý¦³¿ìªk¥ÎVBA§¹¦¨¤U¦C¦Û°Êµe¹Ï¶Ü
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
- Sub SaveTrans(namePos As String, stockNo As String)
- Dim ws As Worksheet
-
- Set ws = ActiveSheet 'ActiveSheet¬°¸ê®Æ¨Ó·½¤u§@ªí
- With Charts.Add
- .Name = ws.Range(namePos).Value
- .SetSourceData Source:=ws.Range(stockNo), PlotBy:=xlRows
- .ChartType = xlLine
- .Location where:=xlLocationAsNewSheet 'ActiveSheet ·|Åܬ°¸Ó¹Ïªí¤u§@ªí
- .HasTitle = False
- .Axes(xlCategory, xlPrimary).HasTitle = False
- .Axes(xlValue, xlPrimary).HasTitle = False
- End With
-
- ws.Activate 'ActiveSheetÁÙ쬰¸ê®Æ¨Ó·½¤u§@ªí, ¤~¯à³sÄò©I¥s
- Set ws = Nothing
- End Sub
- Sub G¦Û°Êµe()
- SaveTrans "A3", "C3:FI3"
- SaveTrans "A4", "C3:FI4"
- SaveTrans "A5", "C3:FI5"
- SaveTrans "A6", "C3:FI6"
- SaveTrans "A7", "C3:FI7"
- End Sub
½Æ»s¥N½X ¦^´_ 3# xu123 |
|
|
|
|
|
|