logo
搜索
我的图书馆

发文章

发文工具

其他工具

留言交流
搜索
分享

Excel 如何把数据转换为K线图

 sumiaolingwan 2016-12-31
  1. Sub Macro2()
  2. '
  3. ' Macro2 Macro
  4. ' 宏由 User 录制，时间: 2016-5-6
  5. '

  7. '
  8.     Range("A1:A59").Select
  9.     ActiveWindow.SmallScroll Down:=-66
  10.     Charts.Add
  11.     ActiveChart.ChartType = xlLine
  12.     ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A59"), PlotBy _
  13.         :=xlColumns
  14.     ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
  15.     With ActiveChart
  16.         .HasTitle = False
  17.         .Axes(xlCategory, xlPrimary).HasTitle = False
  18.         .Axes(xlValue, xlPrimary).HasTitle = False
  19.     End With
  20.     ActiveChart.HasLegend = False
  21.     ActiveChart.PlotArea.Select
  22.     With Selection.Border
  23.         .ColorIndex = 16
  24.         .Weight = xlThin
  25.         .LineStyle = xlContinuous
  26.     End With
  27.     Selection.Interior.ColorIndex = xlNone
  28.     ActiveChart.Axes(xlValue).MajorGridlines.Select
  29.     With Selection.Border
  30.         .ColorIndex = 15
  31.         .Weight = xlHairline
  32.         .LineStyle = xlContinuous
  33.     End With
  34.     ActiveChart.PlotArea.Select
  35.     ActiveChart.Axes(xlValue).Select
  36.     With Selection.Border
  37.         .Weight = xlHairline
  38.         .LineStyle = xlAutomatic
  39.     End With
  40.     With Selection
  41.         .MajorTickMark = xlNone
  42.         .MinorTickMark = xlNone
  43.         .TickLabelPosition = xlNextToAxis
  44.     End With
  45.     ActiveChart.Axes(xlCategory).Select
  46.     With ActiveChart.Axes(xlCategory)
  47.         .CrossesAt = 1
  48.         .TickLabelSpacing = 7
  49.         .TickMarkSpacing = 1
  50.         .AxisBetweenCategories = True
  51.         .ReversePlotOrder = False
  52.     End With
  53.     With Selection.Border
  54.         .Weight = xlHairline
  55.         .LineStyle = xlAutomatic
  56.     End With
  57.     With Selection
  58.         .MajorTickMark = xlOutside
  59.         .MinorTickMark = xlInside
  60.         .TickLabelPosition = xlNextToAxis
  61.     End With
  62.     With Selection.Border
  63.         .Weight = xlHairline
  64.         .LineStyle = xlAutomatic
  65.     End With
  66.     With Selection
  67.         .MajorTickMark = xlOutside
  68.         .MinorTickMark = xlNone
  69.         .TickLabelPosition = xlNextToAxis
  70.     End With
  71.     ActiveChart.PlotArea.Select
  72.     ActiveChart.Axes(xlValue).Select
  73.     With ActiveChart.Axes(xlValue)
  74.         .MinimumScaleIsAuto = True
  75.         .MaximumScaleIsAuto = True
  76.         .MinorUnitIsAuto = True
  77.         .MajorUnitIsAuto = True
  78.         .Crosses = xlAutomatic
  79.         .ReversePlotOrder = False
  80.         .ScaleType = xlLinear
  81.         .DisplayUnit = xlNone
  82.     End With
  83.     ActiveChart.Axes(xlCategory).Select
  84.     With ActiveChart.Axes(xlCategory)
  85.         .CrossesAt = 1
  86.         .TickLabelSpacing = 7
  87.         .TickMarkSpacing = 1
  88.         .AxisBetweenCategories = False
  89.         .ReversePlotOrder = False
  90.     End With
  91.     ActiveChart.ChartArea.Select
  92.     ActiveChart.Axes(xlCategory).Select
  93.     With Selection.Border
  94.         .Weight = xlHairline
  95.         .LineStyle = xlAutomatic
  96.     End With
  97.     With Selection
  98.         .MajorTickMark = xlOutside
  99.         .MinorTickMark = xlInside
  100.         .TickLabelPosition = xlNextToAxis
  101.     End With
  102.     With Selection.Border
  103.         .Weight = xlHairline
  104.         .LineStyle = xlAutomatic
  105.     End With
  106.     With Selection
  107.         .MajorTickMark = xlOutside
  108.         .MinorTickMark = xlNone
  109.         .TickLabelPosition = xlNextToAxis
  110.     End With
  111.     ActiveWindow.Visible = False
  112.     Windows("AAA-h.xls").Activate
  113.     Range("I32").Select
  114. End Sub

    本站是提供个人知识管理的网络存储空间，所有内容均由用户发布，不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息，谨防诈骗。如发现有害或侵权内容，请点击一键举报。
    转藏 分享 献花（0）

    来自： sumiaolingwan > 《待分类》

    举报/认领

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多