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

兰色幻想

以下是引用[I]kondy2005[/I]在2006-3-27 14:15:45的发言：[BR]怎么我保存了,退出后,操作工作表没反应?还要特地去运行代码的吗?

只能修改E3单元格才会运行程序

兰色幻想

可能第一例选的有些复杂了。

呵呵，大家都看明白了吗？如果看不明白，马上问哦。不管你提的问题有多么简单，我乐意回答。其实这些简单的问题就是阻碍你入门VBA的那张薄薄的窗户纸。问明白了，自然就入门了

如果明白就进行下一题

konggs

兰哥：

这个长的代码，一个注释都没有，是有点难。

我就晕了2个小时。

ylh888

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

这个地方的"月份+9"的意思是不是若E3为一月的话,那该值就是10啊,算算好像不对啊...

guzhidong

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

可能第一例选的有些复杂了。

呵呵，大家都看明白了吗？如果看不明白，马上问哦。不管你提的问题有多么简单，我乐意回答。其实这些简单的问题就是阻碍你入门VBA的那张薄薄的窗户纸。问明白了，自然就入门了

如果明白就进行下一题

大概可以了,就是一时记不住这么多码码啊!下一步晚上进一步复习吧!

lsc

这个表就一行数据，如果是多行数据，应该怎么取。。

兰色幻想

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

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

这个地方的"月份+9"的意思是不是若E3为一月的话,那该值就是10啊,算算好像不对啊...

1月就是在第10列啊，你数一数J列不是第10列吗？

兰色幻想

以下是引用[I]lsc[/I]在2006-3-27 14:45:00的发言：[BR]这个表就一行数据，如果是多行数据，应该怎么取。。

此代码不受行数限制，因为处理的数据区域是第5行到最后已使用的行。 可以在明细表多添加几行试试。

ylh888

哦,好像A列被隐藏了,没看到,不好意思,,,,,,,,[em04]

wangtx218

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

第1例代码：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$E$3" Then
Dim 月份 As Byte
Dim Mrow As Long
月份= Range("E3")
Mrow = ActiveSheet.UsedRange.Rows.Count
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
End If
End Sub

代码中我使用了汉字“月份”作为变量。可粘到贴子中变成了乱码。只能修改过来就行了

改的好,但E5不能改数了????