- 浏览: 143508 次
- 性别:
- 来自: 福建 漳州
-
文章分类
最新评论
-
qq_25643251：
cjcandctr 写道我用javadoc时也是出错。发现确实 ...
javadoc生成文档时总是报java.lang.IllegalArgumentException错 -
cyf85235848：
很不专业嘛，最后 不是导出到 test.sql么 ， 怎么是导 ...
mysql数据备份、恢复、SQL文件中导入 -
jjk_02027：
cell.setValue(a);
//a要是Double对象 ...
POI中使用HSSFDataFormat设置格式遇到的问题 -
bulktree：
大哥 你 好逗啊，那个控件没出现什么触发两次，这是很正常的，一 ...
JComboBox选项改变ItemStateChanged 触发两次 -
liuting：
好东西 初学者感谢楼主分享
UIManager可设置的各种属性
不久前被叫去编写宏,这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
评论
不建议用selection...这种方式做出来的程序后期很麻烦,效率也低.
表格格式建议批量处理.
发表评论
相关推荐
Excel宏编程是Excel中一种强大的自动化工具，它允许用户通过VBA（Visual Basic for Applications）语言来编写定制化的脚本，以实现复杂的数据处理、分析和报告生成等功能。本教程的目的在于引导用户学习如何利用宏...
Excel 宏编程帮助文档 Excel 宏编程是一种强大的工具，允许用户通过编写代码来自动执行各种任务。为了学习 Excel 宏编程，需要具备 VB 基础和面向对象的概念。学习宏编程可以通过录制宏的方法来学习宏，即点击 ...
Excel宏编程Excel宏编程Excel宏编程Excel宏编程
Excel 宏编程的常用代码整理 本文档主要介绍了 Excel 宏编程中的一些常用代码，包括变量的声明、常数的声明、选择当前单元格所在区域、返回当前单元格中数据删除前后空格后的值、单元格位移、给当前单元格赋值、给...
Excel 宏编程简明教程 本教程旨在帮助读者快速掌握 Excel 宏编程的基础知识和基本概念。通过学习本教程，读者可以快速上手使用 Excel 宏编程来提高工作效率。 一、宏学习 Excel 宏编程可以通过录制宏的方法来学习...
Excel宏是VBA（Visual Basic for Applications）编程语言的一种形式，它允许用户创建自定义的命令和脚本来自动化Excel中的重复性任务。通过编写宏，用户可以减少手动操作，提高工作效率。例如，宏可以用于整理数据、...
Excel 宏编程实例 Excel 宏编程实例是指使用 Visual Basic for Applications（VBA）在 Excel 中创建和执行宏的程序。宏是 Excel 的一个强大功能，可以自动化重复的任务，提高工作效率。 一、宏学习 宏学习是指...
新建 Microsoft Office Excel 工作表.xlsx源码EXCEL VBA宏编程xlsx实例代码下载新建 Microsoft Office Excel 工作表.xlsx源码EXCEL VBA宏编程xlsx实例代码下载新建 Microsoft Office Excel 工作表.xlsx源码EXCEL VBA...
Excel 宏编程教程 Excel 宏编程是指使用 Visual Basic for Applications (VBA) 语言在 Excel 中编写宏来自动化操作和扩展 Excel 的功能。宏编程可以帮助用户提高工作效率、自动化重复性任务、实现复杂的数据分析和...
《WPS Excel与JS宏编程教程基础到进阶》是一门专为经常使用Excel办公的人员设计的课程，尤其适合初学者和进阶者。这门课程深入浅出地介绍了如何利用JavaScript进行WPS Excel的宏编程，以提高工作效率。JS宏在WPS中的...
员工工资表.xlsx源码EXCEL VBA宏编程xlsx实例代码下载员工工资表.xlsx源码EXCEL VBA宏编程xlsx实例代码下载员工工资表.xlsx源码EXCEL VBA宏编程xlsx实例代码下载员工工资表.xlsx源码EXCEL VBA宏编程xlsx实例代码下载...
Visual C++源代码 192 如何使用自动化运行Excel宏Visual C++源代码 192 如何使用自动化运行Excel宏Visual C++源代码 192 如何使用自动化运行Excel宏Visual C++源代码 192 如何使用自动化运行Excel宏Visual C++源代码...
2003-12-31财务报表.xlsx源码EXCEL VBA宏编程xlsx实例代码下载2003-12-31财务报表.xlsx源码EXCEL VBA宏编程xlsx实例代码下载2003-12-31财务报表.xlsx源码EXCEL VBA宏编程xlsx实例代码下载2003-12-31财务报表.xlsx...
进行多条件求和.xlsx源码EXCEL VBA宏编程xlsx实例代码下载进行多条件求和.xlsx源码EXCEL VBA宏编程xlsx实例代码下载进行多条件求和.xlsx源码EXCEL VBA宏编程xlsx实例代码下载进行多条件求和.xlsx源码EXCEL VBA宏编程...
Excel宏编程是Excel中一种强大的自动化工具，它允许用户通过编写Visual Basic for Applications (VBA)代码来执行一系列复杂的操作。宏的录制功能是初学者快速掌握宏编程的有效方法。当你在Excel中录制宏时，Excel会...
WPS中的JS宏相当于MS Ofice中的VBA，是将JavaScript这种编程语言嵌入到WPS中使用。JS宏在语法表达上更简洁高效。文档首先探讨了为何要学习JS宏。JS宏不仅适合于数据处理，而且对于那些已经熟悉JavaScript但无VBA背景...
打印指定的单元格范围.xlsx源码EXCEL VBA宏编程xlsx实例代码下载打印指定的单元格范围.xlsx源码EXCEL VBA宏编程xlsx实例代码下载打印指定的单元格范围.xlsx源码EXCEL VBA宏编程xlsx实例代码下载打印指定的单元格范围...
客户公司基本信息表1.xlsx源码EXCEL VBA宏编程xlsx实例代码下载客户公司基本信息表1.xlsx源码EXCEL VBA宏编程xlsx实例代码下载客户公司基本信息表1.xlsx源码EXCEL VBA宏编程xlsx实例代码下载客户公司基本信息表1....