EXCEL宏编程纪念

最新推荐文章于 2024-01-28 22:59:13 发布
最新推荐文章于 2024-01-28 22:59:13 发布
阅读量234 收藏 1
点赞数
分类专栏： 编程感悟 文章标签： 编程 Excel J# F#

        不久前被叫去编写宏,这EXCEL宏真是麻烦! 可能以后不会再遇到有编写宏的经历了,故而贴出来以做个纪念:

 Sub direct_Price()
'
'query_dir_volume
'宏由 颜清国编写，时间: 2007-4-9
'
''定义变量
Dim cRows As Integer '总行数
Dim cColumns As Integer '总列数
Dim HEADERCOLORINDEX As Integer  '表头的背景色
Dim cTemp As Integer  '临时计数
Dim sTempString As String  '临时字符串变量
Dim i As Integer  '临时计数
Dim j As Integer  '临时计数
Dim rowIndex As Integer  '临时指示处理到哪里
Dim colIndex As Integer  '临时指示处理到哪里
Dim tempRndColor As Integer  '临时生成的颜色
Dim TABLENAME As String  '待处理的表名

Dim colorIndex As String  '颜色索引名字

''''''''''''''''''''''''''''''''''''''''''''''

'表头的背景色
HEADERCOLORINDEX = 15

colorIndex = 36 '颜色从33开始是比较浅的颜色

TABLENAME = "direct_Price"
'关闭所有弹出的警告消息
Application.DisplayAlerts = False

'设置需要处理的单元表
Sheets(TABLENAME).Select

 '取单元表的总列数与总行数
cRows = Sheets(TABLENAME).UsedRange.Rows.Count
cColumns = Sheets(TABLENAME).UsedRange.Columns.Count
   
''''''''''''''''''''''''''''''''''''''''''''''


   
     '选择所有的单元格
 Range(Cells(1, 1), Cells(cRows, cColumns)).Select
 
   '设置该表中所有单元行高为11.25
 Selection.RowHeight = 11.25
 

   
'设置该表中所有单元行高为11.25
 Selection.RowHeight = 11.25
 
 '设置所有的边框
 Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
   
   '并且拆分所有的单元格
 With Selection
        .MergeCells = False '拆分单格
 End With
 
 Columns("C:C").Select
 Selection.Insert Shift:=xlToRight
 
  '删除第一列,注意这里必须先拆分单格，再删除第一列，否则一次就会把合并单元格所在列全部删除
 Range(Cells(1, 1), Cells(1, 1)).Select
 Selection.EntireColumn.Delete
 'Selection.EntireColumn.Delete
 
   '向表头添加一行
  Rows("1:1").Select
  Selection.Insert
 
 
Columns("A:A").Select
Selection.ColumnWidth = 9.29

Columns("B:B").Select
Selection.ColumnWidth = 6.71

Columns("C:C").Select
Selection.ColumnWidth = 15.29

Columns("D:D").Select
Selection.ColumnWidth = 29.86

Columns("E:E").Select
Selection.ColumnWidth = 12.29

Columns("F:F").Select
Selection.ColumnWidth = 12.29


   
    '''''''''''''''''''''''''''''''''''设定单元格A1:A2''''''''''''''''''''
     '合并A1:A2单元格
    Range("A1:A2").Select
   
    '将数据写回
     With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
   
    '往该单元格中写入Usage_Var
    ActiveCell.FormulaR1C1 = "Price"
   
   
    '设置该单元格字体格式
    With ActiveCell.Characters(Start:=1, Length:=5).Font
        .Name = "Arial"
        .FontStyle = "加粗 倾斜"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = 2
    End With
   
    '单元格设定边框
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = 56
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
   
    With Selection.Interior
        .colorIndex = 5
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
   
  '''''''''''''''''''''''''''''设定头两行的内部样式'''''''''''''''''''''''
    
     Range("B1:B2").Select
     Selection.Merge
   
     Range("C1:C2").Select
    Selection.Merge
    
     Range("D1:D2").Select
     Selection.Merge
    
    
    Range("B1:D2").Select
   
  '设置头两行行高为11.25
   Selection.RowHeight = 14.25
  
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "加粗"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
   
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
   
    With Selection.Interior
        .colorIndex = HEADERCOLORINDEX
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
   
   
    Range("B1:B2").Select
    ActiveCell.FormulaR1C1 = "Type"
    With ActiveCell.Characters(Start:=1, Length:=4).Font
        .Name = "Arial"
        .FontStyle = "加粗"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = 5
    End With
   
   
     Range("E1:F1").Select
         With Selection.Font
        .Name = "Arial"
        .FontStyle = "加粗"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = 5
    End With
   With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
   
    With Selection.Interior
        .colorIndex = HEADERCOLORINDEX
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
     ActiveCell.FormulaR1C1 = "Price"
    
    Range("E2:F2").Select
   
  '设置头两行行高为11.25
   Selection.RowHeight = 14.25
  
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "加粗"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
   
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
   
    With Selection.Interior
        .colorIndex = HEADERCOLORINDEX
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
   
   
    '加第一二行边框
    Range("A1:F2").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
  
  
    '去掉第三行的:号
    'sTempString = Right(Cells(3, 1), Len(Cells(3, 1)) - 3)
    'ActiveCell.FormulaR1C1 = sTempString
   
    i = 2
    j = 1
    
   '外层循环判断是否都合并完成,这里插入了一行，加1
   While i <= cRows
   ' i = i + 1
   
     Range(Cells(i + 1, j), Cells(i + 1, j)).Select
    
    '去掉分类行中的:号
    If (Len(Cells(i + 1, j)) >= 3) Then
      ''''''''''''''如果是分格的界限''''''''''''''''''''''''''''''''''''
      If (Left(Cells(i + 1, j), 3) = " : ") Then
     
          Range(Cells(i + 1, j), Cells(i + 1, cColumns)).Select
         
        '对第三行进行设定
        '设置头两行行高为11.25
        Selection.RowHeight = 18
      With Selection.Interior
         .colorIndex = 2
         .Pattern = xlSolid
         .PatternColorIndex = xlAutomatic
       End With
       '合并前两格
       '先将其合并
      With Selection
        .HorizontalAlignment = xlLeft '靠左对齐
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
       End With
    '合并
     Selection.Merge
    
    '对其设定字体风格
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "加粗 倾斜"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = 3
    End With
   
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
   
        sTempString = Right(Cells(i + 1, j), Len(Cells(i + 1, j)) - 3)
        ActiveCell.FormulaR1C1 = sTempString
        i = i + 1
      End If
    End If
 
 
    i = i + 1
   
    '加1后判断是否到了表尾，没有继续合并处理
    'If (i <= cRows + 1) Then
   
     rowIndex = i
     '取出Cells(i, j)的内容
    sTempString = Cells(i, j)
   
    '循环判断下一个单元格是否和上一个单元格相等，不是则表示到此该合并
   While sTempString = Cells(i + 1, j) And i <= cRows
     i = i + 1
   Wend
  
  
   ''''''''''''''''''''''''''''''''''''设置第一列''''''''''''''''''''''''''''''''''''''''
   '跳出循环表示已经到此该将rowIndex 和 i行合并
   Range(Cells(rowIndex, j), Cells(i, j)).Select
   Selection.Merge
 
    '将原来内容填充进来
    ActiveCell.FormulaR1C1 = sTempString
   '设合并后的单元格的边框
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = True
    End With
    Selection.Font.FontStyle = "加粗"
        
     ''''''''''''''''''''''''''''''''''''设置第一列结束''''''''''''''''''''''''''''''''''''''''

     '''''''''''''''''''''''''''''''''''''''设置第二列'''''''''''''''''''''''''''''''''''''''''''''
     Range(Cells(rowIndex, j + 1), Cells(i, j + 1)).Select
          '设置字体
    
     With Selection.Font
     .Name = "Arial"
     .FontStyle = "加粗"
     .Size = 8
     .Strikethrough = False
     .Superscript = False
     .Subscript = False
     .OutlineFont = False
     .Shadow = False
     .Underline = xlUnderlineStyleNone
     .colorIndex = 5
     End With
   
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    End With
   
     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
     With Selection.Borders(xlEdgeLeft)
         .LineStyle = xlContinuous
         .Weight = xlThin
         .colorIndex = 56
     End With
     With Selection.Borders(xlEdgeTop)
         .LineStyle = xlContinuous
         .Weight = xlThin
         .colorIndex = 56
     End With
     With Selection.Borders(xlEdgeBottom)
         .LineStyle = xlContinuous
         .Weight = xlThin
         .colorIndex = 56
     End With
     With Selection.Borders(xlEdgeRight)
         .LineStyle = xlContinuous
         .Weight = xlThin
         .colorIndex = 56
     End With
     Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
    
    
'''''''''''''''''''''''''''''设置第二列结束'''''''''''''''''''''''''''''''''''''''''''''
  
'''''''''''''''''''''''''修改原来单元格的数据格式''''''''''''''''''''''''''''''''
''''''''''''''''''''''''首先向任一无用的单元格写入数据
   Range(Cells(cRows + 2, cColumns), Cells(cRows + 2, cColumns)).Select
   ActiveCell.FormulaR1C1 = "1"
   '将其格式拷贝
   Selection.Copy
  '复制格式
   Range(Cells(rowIndex, j + 4), Cells(i, cColumns)).Select
   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
   SkipBlanks:=False, Transpose:=False
   Selection.NumberFormatLocal = "_*#,##0.00000"
   '清除原来内容
   Range(Cells(cRows + 2, cColumns), Cells(cRows + 2, cColumns)).Select
   Selection.ClearContents

''''''''''''''''''''''''设定数据格式完成''''''''''''''''''''''''''''''''''''''''''''''


 '''''''''''''''''''''''''''''''''''''''统一设置该区域的颜色''''''''''''''''''''''''''''''''''''''''''''''
     '设置内部填充
     Range(Cells(rowIndex, j), Cells(i, cColumns)).Select
    
     colorIndex = colorIndex + 1
     If colorIndex > 39 Then
        colorIndex = 33
    End If
   
     With Selection.Interior
             .colorIndex = colorIndex '颜色
             .Pattern = xlSolid
             .PatternColorIndex = xlAutomatic
     End With
 ''''''''''''''''''''''''''''''''''统一设置该区域的颜色结束''''''''''''''''''''''''''''''''''''''''''''''
 

'''''''''''''''''''''''''''''设置剩余的列'''''''''''''''''''''''''''''''''''''''''''''
    Range(Cells(rowIndex, j + 2), Cells(i, cColumns)).Select
   
    '设置字体
   With Selection.Font
      .Name = "Arial"
      .FontStyle = "常规"
      .Size = 8
      .Strikethrough = False
       .Superscript = False
      .Subscript = False
     .OutlineFont = False
       .Shadow = False
     .Underline = xlUnderlineStyleNone
     .colorIndex = xlAutomatic
     End With
    
    '设置第6列
    Range(Cells(rowIndex, j + 4), Cells(i, j + 5)).Select
          '设置字体
     With Selection.Font
      .Name = "Arial"
      .FontStyle = "常规"
      .Size = 8
      .Strikethrough = False
       .Superscript = False
      .Subscript = False
     .OutlineFont = False
       .Shadow = False
     .Underline = xlUnderlineStyleNone
     .colorIndex = 3
     End With
    
    
         
    '''''''''''''''''''''''''''''设置全部的边框'''''''''''''''''''''''''''''''''''''''''''''
    Range(Cells(rowIndex, j), Cells(i, cColumns)).Select
    '设置边框
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
      '  .LineStyle = xlContinuous
        .Weight = xlThin
       ' .colorIndex = xlAutomatic
    End With
Wend


 Range(Cells(rowIndex - 1, 1), Cells(rowIndex - 1, cColumns)).Select
 Selection.MergeCells = False
 
 
 Range(Cells(rowIndex - 1, cColumns - 1), Cells(rowIndex - 1, cColumns - 1)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "加粗"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
    With Selection.Interior
        .colorIndex = 15
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    ActiveCell.FormulaR1C1 = "Average"
    With ActiveCell.Characters(Start:=1, Length:=7).Font
        .Name = "Arial"
        .FontStyle = "加粗"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
   
    Range(Cells(rowIndex - 1, cColumns), Cells(rowIndex - 1, cColumns)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "加粗"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
    With Selection.Interior
        .colorIndex = 15
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    ActiveCell.FormulaR1C1 = "Average"
    With ActiveCell.Characters(Start:=1, Length:=7).Font
        .Name = "Arial"
        .FontStyle = "加粗"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
    
    
    Range(Cells(rowIndex - 1, cColumns - 1), Cells(rowIndex - 1, cColumns)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
       ' .LineStyle = xlContinuous
        .Weight = xlThin
       ' .colorIndex = xlAutomatic
    End With
   
End Sub

 




 

YQG123456
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
EXCEL宏编程简明教程(有实例)
11-28
有具体实例，可供速成.excel加上vba写的宏操作是非常有用的
EXCEL宏编程实例.doc
12-02
EXCEL宏编程实例.doc
Excel 宏编程-使用excel宏编写第一个Hello World程序实例演示！
热门推荐
小蓝枣的博客
12-07 2万+
先看大屏幕，我要演示的效果就是点击hello按钮，运行我们的宏，输出Hello World！ 第一步 首先进入开发工具页签，点击宏，创建一个的宏，我起的名字是hello，点击创建。没有开发工具页签的自行百度。 第二步 进入了编程界面，我们在中间输入MsgBox(“Hello World!”)，代表弹出窗口显示里面的内容。 第三步 写完了我们先保存一下，会弹出一个对话框说让你是否继续保存为 xls 或 xlsx 类型，但是没法使用宏，所以点击否然后选择类型为 xlsm 类型后保存即可。
Excel宏编程教程.pdf
06-24
Excel宏编程教程.pdfExcel宏编程教程.pdfExcel宏编程教程.pdfExcel宏编程教程.pdfExcel宏编程教程.pdfExcel宏编程教程.pdf
excel宏编程 c语言,宏（巨集）
weixin_30844407的博客
05-21 1393
宏(Macro， 巨集)，是一种批处理的称谓。计算机科学里的宏是一种抽象(Abstraction)，它根据一系列预定义的规则替换一定的文本模式。解释器或编译器在遇到宏时会自动进行这一模式替换。对于编译语言，宏展开在编译时发生，进行宏展开的工具常被称为宏展开器。宏这一术语也常常被用于许多类似的环境中，它们是源自宏展开的概念，这包括键盘宏和宏语言。绝大多数情况下，“宏”这个词的使用暗示着将小命令或动作...
wps-excel办公+JS宏编程教程基础到进阶+函数使用手册
07-05
内容概要：主要讲解JS代码实现excel宏编程，从基础到进阶，另外也可作为函数查找手册用，或者帮助文档用；使用JS代码宏编程的优势就是运行快、代码简单易上手、且由于代码提示作用使得代码编写极快。提高工作效率。 ...
wps_excel办公+JS宏编程教程基础到进阶+函数使用手册+excel中使用JS代码实现宏编程。
07-28
内容概要：主要讲解JS代码实现excel宏编程，从基础到进阶，另外也可作为函数查找手册用，或者帮助文档用；使用JS代码宏编程的优势就是运行快、代码简单易上手、且由于代码提示作用使得代码编写极快。提高工作效率。 ...
Excel VBA宏编程
Endboil的博客
02-14 794
当文案小妹向你抱怨Excel函数不够用，某些特殊操作虽然简单但繁琐重复，那么。。。是时候展现真正的技术了   先推荐个比较好的文档 http://wenku.baidu.com/link?url=TWBeg6Am-XbRBEF-jnRdjyqFrkA9s66H51dm8gZLWZmFyv8r77pmP-hj-kkpSAm1OVToSxp3OWj6N_Yh_dIo8kMmvfy1WAnHD08...
Excel宏教程_编程入门自学教程_菜鸟教程-免费教程分享
banzhuan_it的博客
07-14 717
宏语言Visual Basic for Application(VBA).Visual Basic是windows环境下开发应用软件的一种通用程序设计语言，功能强大，简便易用。Excel宏是Excel中的一种编程功能，它可以让用户录制一系列的操作，以便在需要时自动执行这些操作。用户可以将录制的宏与Excel的单元格、图表、数据分析工具等其他功能结合使用，从而大大提高Excel的自动化程度。Excel宏入门教程。
excel宏教程
09-02
excel宏教程，入门级。对新手有很大帮助！希望能找到你想要的东西！
excel宏工具
03-01
excel工作簿中实现多表汇总，能够快速汇总，提高工作效率
Excel常用宏代码大全
10-09
文本列举了Excel中常用的VBA命令，包括设置工作表密码、激活窗体、排序、修改工作表名称等等。
excel 宏开发 实例
09-05
excel 宏开发 实例 vb 脚本SQL
Excel宏教程
09-01
Excel宏教程，介绍excel宏的基本操作，比较适合初学者掌握该内容
【数据分析】Excel中使用VBA进行宏编程
最新发布
Sig的博客
01-28 3577
从开发者角度看，Excel VBA应用程序由工作表、用户窗体、模块和类模块等部分构成。工作表：用于保存和显示程序的数据，是程序的主体部分。一般先在工作表中制作出特定表格的格式，并设置好样式，再通过VBA代码获取表格中的数据，经过加工处理后将其填写入相应的单元格，供用户进行查看、打印输出等操作。用户窗体：在Excel VBA应用程序中，除了可使用工作表与用户进行交互外，还可向程序添加用户窗体，用来与用户进行交互操作。
学Excel，一辈子这门课就够了
数据分析
04-24 2237
你是否真的“精通Excel”？- excel水平自检表 -每个人的简历上，都有一句“精通Excel”，而根据经验，大多数人，功力一般在一二层之间。至于心法高处，用Ex...
【VBA宏编程】——Excel操作
BlackValley的博客
09-08 963
背景 Office的编程语言较老，和现有高级语言相差较多，导致入门以及编写差异较大，编写和调试不方便，所以一直没考虑过使用VBA进行Office编程，但最近有个需求，是在无高级编程语言环境的内网主机上进行表格自动化处理，所以必须得用表格自带函数实现简单逻辑以及VBA实现复杂逻辑。 ...
excel 宏编程_EXCEL学习的顺序是什么？
weixin_39867708的博客
11-29 99
纯干货一：基础操作首先，你需要「快速将excel上方菜单栏中的按钮浏览一遍」，最好能动手每个按钮按几遍。这能帮助你快速熟悉excel，了解excel具备哪些功能。其实大部分人对excel的功能并不熟悉，想要执行某些操作时总是在菜单栏中翻来覆去，非常浪费时间。因此这一步非常必要。完成之后下一步就是了解excel中的一些基础知识以及基本操作方法。在这一阶段你需要掌握以下几点：●Excel基础知识点(功...
excel js宏编程教程
08-06
Excel JS宏编程是指使用JavaScript语言编写宏来自动化Excel操作的技术。下面简单介绍一下Excel JS宏编程的教程。 首先，学习Excel JS宏编程需要对JavaScript语言有一定的了解。如果你不熟悉JavaScript，可以先学习...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值