Hsieh

¦^´_ 1# j1221
¥ý§ïÅܸê®Æ¼Æ¦C¦A³]©w¹ÏªíÃþ«¬

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' Shih-Hao ¦b 2011/1/16 ¿ý»sªº¥¨¶°
   
5. '
   
6. 
   
7. '
   
8.     Charts.Add
   
9.     'ActiveChart.ChartType = xlStockOHLC  '¨ú®ø³o¦æ
   
10. 
    
11.     ActiveChart.SetSourceData Source:=Sheets("76C").Range("A1:N22"), PlotBy:= _
    
12.         xlColumns
    
13.     ActiveChart.SeriesCollection(5).Delete
    
14.     ActiveChart.SeriesCollection(5).Delete
    
15.     ActiveChart.SeriesCollection(5).Delete
    
16.     ActiveChart.SeriesCollection(5).Delete
    
17.     ActiveChart.SeriesCollection(5).Delete
    
18.     ActiveChart.SeriesCollection(1).XValues = "='76C'!R2C1:R22C1"
    
19.     ActiveChart.SeriesCollection(2).XValues = "='76C'!R2C1:R22C1"
    
20.     ActiveChart.SeriesCollection(3).XValues = "='76C'!R2C1:R22C1"
    
21.     ActiveChart.SeriesCollection(4).XValues = "='76C'!R2C1:R22C1"
    
22.     ActiveChart.Location Where:=xlLocationAsObject, Name:="76C"
    
23.     With ActiveChart
    
24.         .HasTitle = False
    
25.         .Axes(xlCategory, xlPrimary).HasTitle = False
    
26.         .Axes(xlValue, xlPrimary).HasTitle = False
    
27.         .ChartType = xlStockOHLC   '³o¸Ì¤~§ïÅÜÃþ«¬
    
28.     End With
    
29.     ActiveChart.HasLegend = False
    
30.     Windows("test1.xls").SmallScroll Down:=7
    
31.     ActiveSheet.Shapes(1).IncrementLeft -168.75
    
32.     ActiveSheet.Shapes(1).IncrementTop 269.25
    
33.     Windows("test1.xls").SmallScroll Down:=6
    
34.     ActiveSheet.Shapes(1).ScaleWidth 1.53, msoFalse, msoScaleFromTopLeft
    
35.     ActiveSheet.Shapes(1).ScaleHeight 1.36, msoFalse, msoScaleFromTopLeft
    
36.     ActiveChart.PlotArea.Select
    
37.     With Selection.Border
    
38.         .ColorIndex = 16
    
39.         .Weight = xlThin
    
40.         .LineStyle = xlContinuous
    
41.     End With
    
42.     With Selection.Interior
    
43.         .ColorIndex = 2
    
44.         .PatternColorIndex = 1
    
45.         .Pattern = xlSolid
    
46.     End With
    
47.     With Selection.Border
    
48.         .ColorIndex = 16
    
49.         .Weight = xlThin
    
50.         .LineStyle = xlContinuous
    
51.     End With
    
52.     With Selection.Interior
    
53.         .ColorIndex = 40
    
54.         .PatternColorIndex = 1
    
55.         .Pattern = xlSolid
    
56.     End With
    
57.     ActiveChart.Axes(xlCategory).Select
    
58.     Selection.TickLabels.NumberFormatLocal = "yyyy-mm-dd"
    
59. 
    
60. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# j1221


    k½u¹Ï¸ê®Æ¥²»Ý¨Ì§Ç±Æ¦C
§A­Yª½±µ¥Î©Ò¦³Äæ¦ìª½±µ»s¹Ï·|¥H¹w³]ªºª½½Õ¹Ï§e²{
­Yª½±µÂà´«Ãþ«¬¡AEXCEL¤]·|¥X²{ĵ§iµøµ¡¡A­n¨DÅܧó¸ê®Æ½d³ò

Hsieh

¦^´_ 6# j1221


    Sheets(c & op).Cells(i, 1).PasteSpecial

Hsieh

¦^´_ 8# j1221


    ActiveChart.SeriesCollection(1).XValues = "='" & c & op & "'!R2C1:R22C1"

Hsieh

¦^´_ 10# j1221
À³¸Ó¬OSELECTªº°ÝÃD

1.     With Sheets("data")
   
2.                 .Cells(1, 1).EntireRow.Copy
   
3.                 Sheets.Add After:=Sheets("data")
   
4.                 ActiveSheet.Cells(1, 1).PasteSpecial
   
5.                 ThisWorkbook.ActiveSheet.Name = c & op
   
6.    End With

½Æ»s¥N½X

Hsieh

¦^´_ 13# j1221


    Sheets("data").Cells(i, 3).Value = Val(f)
¦]¬°inputbox¦ì«ü©wÅܼƫ¬ºA«h·|¥H¦r¦ê§ÎºAÀq»{
©Ò¥Hf¬O¤@­Ó¼Æ¦r²Õ¦Xªº¦r¦ê
¦ý¬O¡A§A¤u§@ªíªº¦~¤ë¬O³q¥Î®æ¦¡¡A©Ò¥H³Q»{¬°¬O¼Æ値
©Ò¥H§PÂ_¦¡¼Æª½¬O¤£¥i¯à¸ò¦r¦ê¬Ûµ¥
¬G¦¹±Nf¨Ï¥ÎVAL¨ç¼ÆÂର¼Æ­È§Y¥i