神马软件站
首页 > 专栏脚本 > VBA
VBA 中要用到的常数第1/2页
VBA 中要用到的常数第1/2页
Calendar 常数 可在代码中的任何地方用下列常数代替实际值: 常数 值 描述 vbCalGreg0指出使用的是阳历。vbCalHijri1指出使用的是伊斯兰历法。 Color 常数 可在代码中的任何地方用下列常数代替实际值: 常数 值 描述 vbBlack0x0黑色vbRed0xFF红色vbGreen0xFF...

11-11

用vba实现将记录集输出到Excel模板
用vba实现将记录集输出到Excel模板
复制代码 代码如下: '************************************************ '**函数名称:ExportTempletToExcel '**函数功能:将记录集输出到Excel模板 '**参数说明: '**strExcelFile要保存的Excel文件 '**strSQL查询语句,就是要导出哪些内容 '**strSheetName工...

11-11

VBA 编程基础
VBA 编程基础
11.3.1 了解 Visual Basic 语法 本节解释最常见的语法元素。 11.3.1.1 Activate 方法的语法 语法:object.Activate 在 Activate 方法的语法中,object 是一个所提供信息的占位符,在此例中的代码会返回一个对象。例如,下面的过程会在活动的文档中激活第二个...

11-11

excel vba 限制工作表的滚动区域代码
excel vba 限制工作表的滚动区域代码
ScrollArea属性使用以A1样式的区域引用形式(字符串类型)返回或设置工作表允许滚动的区域。当设置了工作表滚动区域之后,用户不能选定滚动区域之外的单元格,但仍然可以选定区域之外的其他对象(例如图形、按钮等),同时工作表的一些相应功能可能被禁止(例...

11-11

excel vba 高亮显示当前行代码
excel vba 高亮显示当前行代码
代码: 复制代码 代码如下: Private Sub Worksheet_SelectionChange(ByVal Target As Range) ThisWorkbook.Names.Add...

11-11

当编辑框内容改变 对应的单元格也随着改变vba代码
当编辑框内容改变 对应的单元格也随着改变vba代码
当编辑框内容改变,对应的单元格也随着改变 复制代码 代码如下: Private Sub TextBox1_Change() ThisWorkbook.ActiveSheet.Range(...

11-11

VBA 浏览文件夹对话框调用的几种方法
VBA 浏览文件夹对话框调用的几种方法
1、使用API方法 复制代码 代码如下: '【类型声明】 Private Type BROWSEINFO hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type '【API声明】 Pri...

11-11

向数据报表添加一个合计字段
向数据报表添加一个合计字段
因此,一个合计字段与 Function 控件相似,因为两者都是在报表生成时计算。但是有一些不同点:Function 控件只能被放置在分组注脚中,而一个合计字段可以被放置在数据报表设计器的任何部分,除去报表标头/注脚和页标头部分。 另一个不同在于两个字段创建的方...

11-11

UserAccessList 集合的功能(VBA)
UserAccessList 集合的功能(VBA)
返回一个 UserAccessList 集合后,便可用 Count 属性来确定访问受保护区域的用户数量。在下例中,Microsoft Excel 将访问第一个受保护区域的用户的数量通知给用户。本示例假定受保护的区域位于活动工作表上。 复制代码 代码如下: Sub UseDeleteAll() Dim wksS...

11-11

VBA UsedObjects 集合用法
VBA UsedObjects 集合用法
返回一个 UsedObjects 集合后,便可用 Count 属性来确定 Microsoft Excel 应用程序中所用对象的个数。 在本示例中,Microsoft Excel 确定已分配的对象的个数,并通知用户。本示例假定在应用程序中执行重新计算,并且在完成前中断重新计算。 复制代码 代码如下...

11-11

vba 获取PPT幻灯片中的所有标题的代码
vba 获取PPT幻灯片中的所有标题的代码
复制代码 代码如下: Private Sub CommandButton1_Click() Me.Enabled = False getTitles Me.Enabled = True End Sub Sub getTitles() On Error Resume Next Dim oPres As Presentation Set oPres = Application.ActivePresentation Dim oSlide As Slide Dim...

11-11

返回顶部