2006带你入门VBA第二期单元格控制（精讲20例）进行中~~~

兰色幻想

以下是引用[I]lsc[/I]在2006-3-27 13:32:04的发言：[BR]

Mrow = ActiveSheet.UsedRange.Rows.Count

这句是什么意思？

ActiveSheet是当然活动工作表，即你正在操作的工作表。 ActiveSheet.UsedRange：活动工作表中已使用的单元格区域。 ActiveSheet.UsedRange.Rows.Count：活动工作表中已使用的单元格区域的总行数。

guzhidong

2、Dim 月份 As Byte ：声明月份作为一个变量。因为月份最大是12，所以只须要声明为Byte类型。Byte的最大值为255
可这里有一个弊端即输入超过12也可行,能否加一个判断,禁止输入大于12小于1呢

兰色幻想

Range(Cells(5, 5), Cells(Mrow, 5)) = Range(Cells(5, 月份+ 9), Cells(Mrow, 月份 + 9)).Value
Range(Cells(5, 6), Cells(Mrow, 6)) = Range(Cells(5, ÔÂ·Ý + 21), Cells(Mrow, ÔÂ·Ý + 21)).Value

这两句是程序的关键所在：

根据要求，我们需要根据E3的月份在后面的明细表中找到相就的列数。然后把该列的内容复制到前面的第5和第6列。

1、Range(Cells(5, 5), Cells(Mrow, 5)) ：Mrow是最后的行数。所以 Range(Cells(5, 5), Cells(Mrow, 5))就是E列的已使用单元格区域。即需要根据月份判断而填入数据的本月行程区域

2、Range(Cells(5, 月份+ 9), Cells(Mrow, 月份 + 9))：月份+ 9是本月行程明细的具体列。它由提供的月份而定。Range(Cells(5, 月份+ 9), Cells(Mrow, 月份 + 9))即为找到的相应月份的实际行程列。

3、在进行单元格区域复制时，可以用先复制再粘贴的方法，也可以用COPY的方法。如果用COPY,则为：

Range(Cells(5, 月份+ 9), Cells(Mrow, 月份 + 9)).Copy Range(Cells(5, 5), Cells(Mrow, 5))

copy的用法是 : 单元格1或单元格区域.Copy 单元格2或单元格区域2

4、本例使用了用等号直接复制的方法。但值得注意的是在等号后的区域一定要加 Value

lingdo2001

俺看书上说，VBA中定义多个变量

应该是Dim i As Integer, j As Integer

Dim i, j As Integer

这样的定义变量方式是否有误？会有什么不良影响么？

兰色幻想

以下是引用[I]guzhidong[/I]在2006-3-27 13:42:19的发言：
2、Dim 月份 As Byte ：声明月份作为一个变量。因为月份最大是12，所以只须要声明为Byte类型。Byte的最大值为255
可这里有一个弊端即输入超过12也可行,能否加一个判断,禁止输入大于12小于1呢

这样修改判断条件： If Target.Address = "$E$3" And Target.Value <= 12 Then 注：在VBA中的条件并列不同于工作表中的AND函数。在VBA中AND只是一个运算符。条件1 And 条件2 and 条件.3.... 而在工作表中是and(条件1，条件2，条件3.....)

[此贴子已经被作者于2006-3-27 14:03:42编辑过]

兰色幻想

以下是引用[I]lingdo2001[/I]在2006-3-27 13:56:40的发言：[BR]

俺看书上说，VBA中定义多个变量

应该是Dim i As Integer, j As Integer

Dim i, j As Integer

这样的定义变量方式是否有误？会有什么不良影响么？

这样没有错误，但达不到你定义要求。因为： Dim i As Integer, j As Integer可定义两个变量都为整数型。 Dim i, j As Integer 只能定义j为整数型，而i可以是任何形式变量

lsc

（1）mrow是指含有数值的单元格，不包括设置了边框的行。。

（2）mrow是指从第1行，到最下面含有数值单元格的行数。

是这样吗？

兰色幻想

以下是引用[I]lsc[/I]在2006-3-27 14:00:35的发言：

（1）mrow是指含有数值的单元格，不包括设置了边框的行。。

（2）mrow是指从第1行，到最下面含有数值单元格的行数。

是这样吗？

不是这样子的。因为空格的原因。而不能从任何列判断具体使用的行数，所以这里使用Mrow = ActiveSheet.UsedRange.Rows.Count取已使用的行数。已使用的行数(UsedRange.Rows.Count)包括存在数值的，也包括原来已编辑过的单元格，即使该单元格已没有设置格式和存在数值。 如果能从某列判断已存在数据的行数。可以使用END方法来定位： mrow=Range("a65536").end(xlup).row Range("a65536").end(xlup).row：A列最后一个非空单元格的行数

[此贴子已经被作者于2006-3-27 14:13:37编辑过]

kondy2005

怎么我保存了,退出后,操作工作表没反应?还要特地去运行代码的吗?

[此贴子已经被作者于2006-3-27 14:16:34编辑过]

guzhidong

以下是引用[I]兰色幻想[/I]在2006-3-27 13:57:23的发言：[BR]

以下是引用[I]guzhidong[/I]在2006-3-27 13:42:19的发言：
2、Dim 月份 As Byte ：声明月份作为一个变量。因为月份最大是12，所以只须要声明为Byte类型。Byte的最大值为255
可这里有一个弊端即输入超过12也可行,能否加一个判断,禁止输入大于12小于1呢

这样修改判断条件： If Target.Address = "$E$3" And Target.Value <= 12 Then 注：在VBA中的条件并列不同于工作表中的AND函数。在VBA中AND只是一个运算符。条件1 And 条件2 and 条件.3.... 而在工作表中是and(条件1，条件2，条件3.....)

收到,太详细了,谢谢!