带你入门VBA，第五讲：如何控制单元格

啊一

恩,就是这样!

兰色幻想

以下是引用啊一在2004-11-2 22:20:00的发言：

不是啊老师,如果值和原来不一样才运行程序,是的,仅值变化就行了.

辛苦了老师,我在等您!

试试

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

aaa = Application.Sum(Columns(5)) If aaa <> [a1] Then aaa = MsgBox("数值已改动", 1 + 64, "提示") If aaa = 1 Then [a1] = Application.Sum(Columns(5)) End If End If End Sub

啊一

原来我把代码写进worksheet-selectionchange里可是不行,只要选择的单元格改变就运行严重影响速度.

啊一

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

aaa = Application.Sum(Columns(5)) If aaa <> [a1] Then aaa = MsgBox("数值已改动", 1 + 64, "提示") If aaa = 1 Then [a1] = Application.Sum(Columns(5)) End If End If End Sub

shangyu老师,能不能解释一下每行的意思,比如aaa <> [a1]这里的[a1]是啥意思呢?是指a1单元格还是有其他意思?

兰色幻想

上面我写的程序效果是这样的:如果第五列数值改变,则提示你已发生变动,如果你按下"确定"按纽将不再提示,如果按下"取消"按纽,则选取单元格时继续给你提示

兰色幻想

以下是引用啊一在2004-11-2 22:56:00的发言：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

aaa = Application.Sum(Columns(5)) If aaa <> [a1] Then aaa = MsgBox("数值已改动", 1 + 64, "提示") If aaa = 1 Then [a1] = Application.Sum(Columns(5)) End If End If End Sub

shangyu老师,能不能解释一下每行的意思,比如aaa <> [a1]这里的[a1]是啥意思呢?是指a1单元格还是有其他意思?

是把第五列的合计数先放在A1单元格中,然后当单元格发生变动时,再把后来的值和A1的值进行比较.

shangyu

在sheet模块中（右击工作表标签——查看代码）：

Dim OldValue As String

Private Sub Worksheet_Change(ByVal Target As Range) '当激活单元格后，将现在值与OldValue比较确定是否改变值 If Target = OldValue Then MsgBox "Target.Value = OldValue" Else MsgBox "Target.Value <> OldValue" End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '当鼠标选定单元格时单元格的值赋OldValue OldValue = Target End Sub

啊一

我真该打,没看谁发的就回了,是因为我觉得兰老师忙,暂时没有回就发消息给了shangyu老师呵呵,对不起兰老师!

我是不是好烦啊老师,真的不好意思.我刚学,懂得不多,请原谅.

我把您的代码改变一下试试再说吧!

感谢您,兰老师!

啊一

太好了,兰老师给出了列的比较方法,而shangyu老师又给出了单元格的比较方法,我这就把两位老师的方法结合运用,看能不能实现我的目的.

感谢两位老师!

龙云枫

到这儿就完了呀..继续呢?