½Ð°Ý¦³¿ìªk¥ÎVBA§¹¦¨¤U¦C¦Û°Êµe¹Ï¶Ü
- ©«¤l
- 48
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-25
- ³Ì«áµn¿ý
- 2022-4-23
|
½Ð°Ý¦³¿ìªk¥ÎVBA§¹¦¨¤U¦C¦Û°Êµe¹Ï¶Ü
a1,a2,a3......¨ì.A15¬O¦WºÙ±i¤T,§õ¥|µ¥µ¥
¯à§_¥ÎVBA¦Û°ÊµeB1¨ìG1µM«á¹Ïªí¦W¦Û°Ê§ïA1ªº¦WºÙ
b2¨ìG2µM«á¹Ïªí¦W¦Û°Ê§ïA2ªº¦WºÙ
b3¨ìG3µM«á¹Ïªí¦W¦Û°Ê§ïA3ªº¦WºÙ
.
.
¤@ª½¨ìb15¨ìG15µM«á¹Ïªí¦W¦Û°Ê§ïA15ªº¦WºÙ
¥i¥H¶ÜÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 48
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-25
- ³Ì«áµn¿ý
- 2022-4-23
|
§Ñ°O»¡¤F§Ún¥Îµe¹Ï¤¤ªº§é½u°µ¹Ïªí |
|
|
|
|
|
|
- ©«¤l
- 48
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-25
- ³Ì«áµn¿ý
- 2022-4-23
|
½Ð°Ý¦³¨S¦³°ª¤â
¥i¥HÀ°§Ú¦Û°Ê©R¦W¹Ïªín«ç§ï§ÚnA3¨ìA7Äæ°µ¹Ïªí¦WºÙ
Sub G¦Û°Êµe()
SaveTrans ("C3:FI3")
SaveTrans ("C4:FI4")
SaveTrans ("C5:FI5")
SaveTrans ("C6:FI6")
SaveTrans ("C7:FI7")
End Sub
Sub SaveTrans(stockNo As String)
Sheets("Sheet1").Select
Range(stockNo).Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(stockNo), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub |
|
|
|
|
|
|
- ©«¤l
- 57
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 104
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2012-7-5
- ³Ì«áµn¿ý
- 2017-2-18
|
¦^´_ 3# xu123
«ü©w¦U¹Ïªíªº¦WºÙ
With ActiveChart.ChartTitle.Select
Selection.Text = "='Sheet1'!R1C3"
End With |
|
boyao
|
|
|
|
|
- ©«¤l
- 48
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-25
- ³Ì«áµn¿ý
- 2022-4-23
|
boyao ¤j
¤£¦n·N«ä§Ú§Ë¦n¤[¤£¦æ£z·|¥X¿ù
§Ún§âA¦Cªº¤ÓÄæ¦ì
¤À§O°µ¦¨¤Ó¹Ïªíªº¦WºÙ
n«ç§ï£z |
|
|
|
|
|
|
- ©«¤l
- 48
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-25
- ³Ì«áµn¿ý
- 2022-4-23
|
§Ún§âA3¨ìA7Äæ¦ì¸Ìªº¦WºÙ
¦Û°Ê°µ¦¨¤Ó¹Ïªí¨Ì§Ç
ªº¦WºÙ
n«ç§ï£z |
|
|
|
|
|
|
- ©«¤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 |
|
|
|
|
|
|
- ©«¤l
- 48
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-25
- ³Ì«áµn¿ý
- 2022-4-23
|
stillfish00¤j¤j
¥i¥H¤F«D±`·PÁ§A
«Ü¦n¥Î |
|
|
|
|
|
|