pgymeitianjinbu的博客

MsgBox "正则表达式学习", vbMsgBoxHelpButton, "欢迎光临我要自学网", ThisWorkbook.Path & "\帮助\正则表达式系统教程.CHM", 0。" & Chr(13) & "今天是:" & Format(Now, "yyyy-m-d aaaa") _" & Chr(13) & "今天是:" & Format(Now, "yyyy-m-d aaaa") _数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。

'1'dir函数的第二个参数是vbdirectory时可以返回路径下的指定文件和文件夹，如果结果为""，则表示不存在。Sub w1()If Dir(ThisWorkbook.path & "\2011年报表2", vbDirectory) = "" ThenMsgBox "不存在"ElseMsgBox "存在"End IfEnd Sub。

'Comment 对象'代表单元格批注'批注添加Sub 批注添加()With [a1]End IfEnd WithEnd SubSub 删除批注()End IfNextEnd SubSub 批量添加批注()If Rng >= 90 Then Rng.AddComment.Text "优秀"NextEnd Sub。

Sub 格式化工资条()Sub 清除格式化()

'Font 对象'包含对象的字体属性（字体名称、字号、颜色等等）。'Range.ClearFormats 方法'清除对象的格式设置'常见font对象的属性Sub font对象属性().Name = "微软雅黑" '字体.Size = 8 '字号.Bold = True '加粗.Color = RGB(255, 0, 255) '颜色End WithEnd SubSub 大于90分的颜色设置为红色().Name = "华文琥珀"

'Application.Union 方法'返回两个或多个区域的合并区域Sub test()Range("a1:b3,c5:d8").Select '文本地址引用方式Union([a1:b3], [c5:d8]).Select '单元格区域引用方式End Sub'小结：虽然range也可以完成多区域的引用'但文本地址的引用方式最多不能超过256个字符'而union却没有这个限制'我们经常利用变量与union进行单元格的连接Sub 连接符单元格连接()

'1.从录制一个宏开始。操作：(ctrl+向上键、ctrl+向下键、ctrl+向左键、ctrl+向右键)'2.看代码'Range.End 属性'返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。'等同于按键 (End+向上键、End+向下键、End+向左键、End+向右键)'语法'表达式.End (Direction)'表达式 一个代表 Range 对象的变量。'方向 写法 值'向上 xlUp - 4162。

一：'活动单元格：activecell,工作表中活动单元格只有一个a = activecell.Address '取得活动单元格地址Cells(2, 3).Activate '激活指定单元格End Sub'selection光标所选区域Sub 光标所选区域()End SubSub 在selection中的改变活单元格()NextEnd SubSub 运用()If i = "" Or i = "缺勤" Theni = "×"End If。

一：记住公式二：案例

例：把A2:D6的第一列写入arr1，第四行写入arr2。调用该工作表函数可以把二维数组的某一列或某一行截取出来，第一部分：先看下excel中index的用法。备注：后续有需要，我会再补充进来。

vba：formulaarray属性

R[-1]C[-1]为B7单元格，行列都-1，R[1]C[2]为E9单元格，行+1，列+2。有中括号是相对于选定单元格的相对偏移量，"-"为向左或向上偏移，正数为右或下偏移。无中括号为相对于选定单元格的绝对偏移量，没有负数。R1C1代表A1单元格，R5C6代表F5单元格。例：C1单元格为"=$A$2+$E$3"VBA之FormulaR1C1属性。FormulaR1C1是公式输入方法。"R"和"C"对应“行”和“列”例：C1单元格为"=A1+B1"例：C1单元格为"=A2+E3"如：选定单元格为C8。

下面是Range对象的AutoFilter方法的语法：Range对象.AutoFilter(Field,Criterial1,Operator,Criteria2,VisibleDropDown)说明：1.参数Field，指定想要基于筛选的字段的整数偏移量。从列表的左侧算起，最左侧的字段是字段1。2.参数Criterial1，指定判断条件（为字符串）。使用“=”查找空字段，或者使用“<>”查找非空字段。如果忽略该参数，那么判断是全部。如果参数Operator是xlTop1...

下面用于参考：“”