zoukankan      html  css  js  c++  java
  • VBA 脚本快速copyExcel单元格的格式

    Sub Macro2()
    Dim iRow, iCount
    iRow = 981     //从981行开始扩展    copy981行前的格式
    Dim SampleChart
    
    Set SampleChart = Sheet1.ChartObjects("Chart 353")
    SampleChart.Copy
    
    For iCount = 1 To 100
        'Sheet1.ChartObjects("Chart 353").Activate
        'ActiveChart.ChartArea.Select
        'ActiveChart.ChartArea.Copy
        
        
            
        'Range("E" & iRow).Select
        'ActiveSheet.Paste
        
        'ActiveChart.FullSeriesCollection(2).Values = "=Detail!$F$" & iRow
        'ActiveChart.FullSeriesCollection(1).Values = "Detail!$F$" & iRow + 1
        
        Range("H" & iRow).Select   //H 列的格式数据来源于I行
        ActiveSheet.Paste
        
        ActiveChart.FullSeriesCollection(2).Values = "=Detail!$I$" & iRow
        ActiveChart.FullSeriesCollection(1).Values = "Detail!$I$" & iRow + 1
        
        Range("L" & iRow).Select
        ActiveSheet.Paste
        
        ActiveChart.FullSeriesCollection(2).Values = "=Detail!$M$" & iRow
        ActiveChart.FullSeriesCollection(1).Values = "Detail!$M$" & iRow + 1
        
        Range("O" & iRow).Select
        ActiveSheet.Paste
        
        ActiveChart.FullSeriesCollection(2).Values = "=Detail!$P$" & iRow
        ActiveChart.FullSeriesCollection(1).Values = "Detail!$P$" & iRow + 1
        
        iRow = iRow + 3   
    Next
      
    End Sub

    可以供Excel的格式扩充使用,用于开发和调整导出的模板

  • 相关阅读:
    (数学)Knight's Trip -- hdu -- 3766
    (DP 雷格码)Gray code -- hdu -- 5375
    (简单匹配)Card Game Cheater -- hdu --1528
    (数论)LightOJ -- 1245
    (树状数组+离散化)lines--hdu --5124
    01项目需要用到的jquery函数介绍
    jdbc基础
    基础加强
    jdbc
    01-1项目所需小工具
  • 原文地址:https://www.cnblogs.com/Aaron-Lee/p/6529544.html
Copyright © 2011-2022 走看看