68手游网

Private Sub Workbook_Open() With Application '禁止自动填充 .CellDragAndDrop = False '屏蔽常用工具栏剪切、复制、粘贴 .CommandBars(3).Controls(剪切(T)).Enabled = False .CommandBars(3).Controls(复制(C)).Enabled = False .CommandBars(3).Controls(粘贴(P)).Enabled = False '屏蔽单元格右键菜单中的剪切、复...

'选择一个目录，将目录中的所有EXCEL文件导入当前工作表 '这些EXCEL文件最好格式能一样，这里是每个文件是同一个格式 Sub 批量() Dim FD, str$, arr Set FD = Application.FileDialog(msoFileDialogFolderPicke r) If FD.Show = -1 Then t = FD.SelectedItems(1) Else Exit Sub '如果没选择文件夹则退出 Application.Scree...

Option Explicit Sub SetExcelVBA() '改变Excel的安全级别 '使用Wscript，FileSystemObject，创建txt文件，注册表操作，VBS文件自我删除，改变Excel文件读写属性等 Dim WSH As Object, ret As String, regStr As String Dim strFullname As String, strVBS As String Dim tf, fso, RetVal '本程序仅适用于Excel 2003(11.0)...

Private Sub UserForm_Initialize() Dim lsb As Worksheet Set lsb = Sheets(临时表) X = lsb.[a65536].End(3).Row With ListBox1 .ColumnCount = 7 '设置7列 .ColumnWidths = 30,70,70,70,70,70,50 '设置每列宽度 .ColumnHeads = True '是否有标题表头 .RowSource = lsb.Range(a2:g X).Address(...

一、初识数组 1、数组就是一个列表或一组数据表。我们学习数组的目的，就是为了加速我们代码的效率. 2、我们如何运用数组呢? 首先，必须声明数组 其次，给数组赋值，可以是经过一系列的运算后再赋值给数组。 最后，将数组返回到工作表区域中。最终的目的是在工作表中显示我们想要的结果。 3、调试数组的手段：本地窗口 我...

Split函数 返回一个下标从零开始的一维数组，它包含指定数目的子字符串。 Split(字符串[, 分隔符[, 要返回的子字符串数量[,比较方式]]]) 后三项可选，默认：分隔符为空格，返回全部子字符串，用Option Compare语句中的设置值执行比较。 下面是将1-12转化为一月-十二月的自定义函数的例子。 Function Num2ch(ByVal n As Int...

Like 作用于汉字查找的表示方法 For j = 1 To Len(Cells(i, 4)) If Mid(Cells(i, 4), j, 1) Like [含肉松水果奶油芝麻] Then k = k Mid(Cells(i, 4), j, 1) Next Like 用于窗体的模糊查询表示方法 If Cells(i, 1) Like UserForm5.TextBox1 * And Cells(i, 2) Like * UserForm5.TextBox2 * And Cells(i, 3) Like ...

目录 1 VBA中的字符串 2 VBA中处理字符串的函数 2.1 比较字符串 2.2 转换字符串 2.3 创建字符串 2.4 获取字符串的长度 2.5 格式化字符串 2.6 查找字符串 2.7 提取字符/字符串 2.8 删除空格 2.9 返回字符代码 2.10 返回数值代表的相应字符 2.11 使用字节的函数 2.12 返回数组的函数 2.13 连接字符串 2.14 替换字符串 2.15...

以下代码效果： 在工作表代码区加入以下代码 即当D列中的数据为1时 对应的A列字体变为红色 For Each...In...的使用 单元格属性设置 Private Sub Worksheet_Change(ByVal Target As Range) Dim d%: d = [d65536].End(xlUp).Row Dim rng As Range For Each rng In Range(d1:d d) If rng = 1 Then Cells(rng.Row, 1).Font.Col...

A列中从A1到A20分别为数字1-20 B1为100，为计算的结果（6个数的和） 现在计算A列中哪6个数字的和为100 符合条件的就放在C列中 Sub CountTotal() Application.ScreenUpdating = False Range(c:c).ClearContents Dim a%, b%, c%, d% Dim e%, f% Dim x%, tmp As String, K, totalco As Integer Dim dic Set dic = CreateObjec...