ExcelDNA UDF 攻略
摘要：office是64位的，编程工具是Visual Studio 2019 1. Create a new **Class Library (.NET Framework)** project in C#. 2. Use the **Manage NuGet Packages** dialog or t
阅读全文
10 探索其他Excel对象
摘要：10.1 产生一个好的第一印象10.1.1 为我们的世界着色rgb(red:=[0,225],green:=[0,225],blue:=[0,225])此函数生成一个表示颜色的整数。VBA预定义了一些少量的颜色值，如vbBlack, vbRed等。代码清单10.1：颜色的乐趣Sub ColorWorksheet() Dim ws As Worksheet Dim lRow As Long Dim lColumn As Long Dim lColor As Long Set ws = ThisWorkbook.Worksheets(1) lRow = ...
阅读全文
9 Range 实用操作
摘要：9.1 剪切、复制和粘贴来移动数据sourceRange.Cut [Destination]如果指定Destination，相当于Ctrl^X(sourceRange) & Ctrl^V(Destination)。如果没有指定就相当于Ctrl^X(sourceRange)。sourceRange.Copy [Destination]如果指定Destination，相当于Ctrl^C(sourceRange) & Ctrl^V(Destination)。如果没有指定就相当于Ctrl^C(sourceRange)。Application.CutCopyMode = False 可以
阅读全文
8 Range 对象
摘要：8.1 引用Range引用Range的主要方法：Application.ActiveCellApplication.RangeApplication.SelectionWorksheet.CellsWorksheet.ColumnsWorksheet.RangeWorksheet.RowsWorksheet.UsedRangeCurrentRegion, NamedRange代码清单8.1：使用Application对象引用RangeSub ReferringToRangesI() Dim rg As Range 'ActiveCell is a range repr...
阅读全文
7 Worksheet 对象
摘要：7.1 设置阶段代码清单7.1：使用Parent属性获得一个对象的父对象的指针'使用Parent属性获得一个对象的父对象的指针Sub MeetMySingleParent() 'Declare a worksheet variable named ws Dim ws As Worksheet 'set ws to refer to sheet 1 Set ws = ThisWorkbook.Worksheets("Sheet1") 'please meet my parent - Mrs. Workbook Debug.Print ws.Pa
阅读全文
6 Workbook 对象
摘要：6.1 在奔跑之前先学会走路：打开和关闭工作薄代码清单6.1：一个完整的工作薄批处理框架'代码清单6.1:一个完整的工作薄批处理框架 Sub ProcessFileBatch() Dim nIndex As Integer Dim vFiles As Variant Dim wb As Workbook Dim bAlreadyOpen As Boolean On Error GoTo ErrHandler 'Get a batch of Excel files vFiles = GetExcelFiles("Sele...
阅读全文
5 Application 对象
摘要：5.1鸟瞰Application对象5.2 必须了解的面向显示特性5.2.1 使用ScreenUpdating改进和完善执行性能代码清单5.1：实现屏幕更新的性能'代码清单5.1: 实现屏幕更新的特性Sub TimeScreenUpdating() Dim dResult As Double 'test with screen updating turned on dResult = TestScreenUpdating(True) MsgBox Format(dResult, "0.00") & " seconds.", vbO
阅读全文
Excel的颜色
摘要：到Excel VBA，按F1进入帮助。查找xlRgbColor.进入条目选择颜色表格所有内容粘贴到Excel页面中。清除当前页面的格式。运行下面的宏：Sub TestColor() Dim i As Integer For i = 1 To 142 With Cells(i, 4).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = Cells(i, 2).Value .TintAndShade = 0 .Pattern...
阅读全文
向 Excel 工作簿添加操作窗格
摘要：第一步、准备操作窗格在 Visual Studio 中打开 Excel 工作簿或模板项目。在“项目”菜单上单击“添加新项”。在“添加新项”对话框中选择[common items]\[office]\[Actions Pane Control]，将其命名为“HelloControl”，然后单击“添加”。如果在设计器中看不到操作窗格控件，请双击“解决方案资源管理器”中的“HelloControl”。按照一般对话框的方法设计操作窗格。第二步、调用操作窗格在 ThisWorkbook 类中创建一个新的操作窗格控件实例。Code highlighting produced by Actipro Code
阅读全文
