checkbox的全选和反选可以通过VBA来控制,这种设计常见于一些交互式报表,代码如下: 1.分成两个IF判断 Private Sub CheckBox1_Click() ‘checkbox为总控,通过点击它来实现全选或反选 Dim b3 As Integer Dim i As Integer Dim b1 As Range If Sheets(1).CheckBox1.Value Then ’第一个IF判断为全选的条件时 b3 = Sheets(1).Range("h50&quo
对FileSystemObject一直略有耳闻,VBA爱好者常常简称为FSO对象. 在Scripting类库中有三个可以直接使用NEW关键字实例化的类,第一个就是常用的字典,第三个是FSO. 一.FSO对象引用的方法: 前期绑定:先要引用类库文件scrrun.dll,写代码的时候有智能提示.如果程序发给别人用,就要用后期绑定方式. Dim fso As New Scripting.FileSystemObject 后期绑定:不需要引用类库文件,但没有智能提示. Set fso = CreateO
[正文] 注:本文中所有vba代码都是储存在doc中,而非normal.dot 1.打开一个.doc文档 2.按ALT+F11 3.左侧 Project-插入-模块 4.输入自己的代码,一定要是函数的形式 例如输入如下代码: Sub InsertTextAtEndOfDocument() ActiveDocument.Content.InsertAfter Text:=" The end." End Sub Sub AddTextBeforeSelection() Selection.