共 16 篇文章 |
|
VBA内部函数VBA内部函数很少,下面是所有的VBA内部函数:(注意:Excel VBA编程环境下大部分VB内置函数也支持,VB函数我知之甚少,就不多说了)Excel VBA基础教程:VBA内部函数。 阅1542 转98 评0 公众公开 09-11-20 17:25 |
关于Worksheet的SelectionChange事件关于Worksheet的SelectionChange事件Worksheet的SelectionChange同Change事件差不多,选择的单元格发生变化后就会触发Worksheet的SelectionChange事件,明白了Change事件,再来看SelectonChange事件就简单多了。如果我们想看一看选中的区域里有没有字母"A",如果有,则把字母"A"改成红... 阅1889 转6 评0 公众公开 09-11-20 16:37 |
代码可为:复制内容到剪贴板代码:Dim x ''定义一个公共变量,让两个程序都可以用Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = x Then Exit Sub ''如果修改的单元格的值等于变量x的值,退出程序 Application.EnableEvents = False Target.Value = Target.Value &"公司" Applicat... 阅2268 转24 评0 公众公开 09-11-20 16:33 |
关于Application.EnableEvents 属性1、选择多个删除的时候,后面的一列不能对应删除———我觉得可以这样,首先在前面加上一个IF Target.count<>1 then......Else......End If语句,分别对改变的单元格个数不等于1和等于1的时候设置相应的代码,等于1的时候很简单,大家都做了例子。 阅12267 转43 评0 公众公开 09-11-20 16:30 |
如果我们需要在每一次单元格修改之后都告诉我们这个单元格的地址是多少,则代码可以为:复制内容到剪贴板代码:Private Sub Worksheet_Change(ByVal Target As Range) MsgBox "刚刚修改的单元格地址是:" &Target.AddressEnd Sub 这样,当我们修改了某个单元格后,都会自动弹出一个对话框告诉我们刚刚修改的格的地址是多少。 阅1864 转25 评0 公众公开 09-11-20 16:21 |
关于花名册汇总关于花名册汇总在前面"学生花名册汇总"的实例里,大家在处理起来,多数采用复制粘贴的操作方法来完成,在简单学习了数组后,有一位朋友也使用了数组的方式来操作。为了看出效果,我将这两种代码分别循环执行了10次,在我的电脑上,用复制操作完成的时间居然差不多是用数组操作所用时间的8倍。在需要进行大批量数据处理... 阅508 转9 评0 公众公开 09-11-20 15:59 |
新建工作表新建工作表---------------------如果我们想在当前工作表中新建一个工作表,代码可以写为:复制内容到剪贴板代码: Worksheets.Add ''新建的工作表的位置在当前活动工作表的前面 此时,新建的工作表Excel默认把它放在活动工作表的前面,如果我们需要改变它的位置也是可以的。moon2778的例子里,在新建工作表之... 阅1760 转10 评0 公众公开 09-11-20 15:53 |
汇总多工作表花名册汇总多工作表花名册。比如我们想把Sheet1里的第一行数据复制到Sheet2的第一行,可以用以下两句代码中的任意一句: 复制内容到剪贴板代码: Sheets("sheet1").Rows(1).Copy Sheets("sheet2").Rows(1) 复制内容到剪贴板代码: Sheets("sheet2").Rows(1).Value = Sheets("she... 阅477 转14 评0 公众公开 09-11-20 15:51 |
[试一试]对花名册进行分类[试一试]对花名册进行分类。这一贴里,我们看一个例子,表格里有一张外地在本校就读的学生花名册,现在我们需要将这些花名册按学生户籍地点的不同进行分类,结果生成到相应的工作表内。学生花名册分类.rar (11.21 KB) 学生花名册分类.rar (11.21 KB)下载次数: 7102009-8-25 12:21 如果你看了前面的贴子,你应该就能... 阅262 转8 评0 公众公开 09-11-20 15:49 |
Range对象的End属性Range对象的End属性。xlUp:向上移动,相当于在源区域按Ctrl+上方向键。如果当前活动工作表的A列填写的是学生的姓名,现在我们想在表中A列最后一个学生的后面增加一个叫"张青"的学生,则代码为: 复制内容到剪贴板代码: ActiveSheet.Cells([A65536].End(xlUp).Row + 1, 1).Value = "张青" ... 阅1996 转36 评0 公众公开 09-11-20 15:47 |