excel vba 实例问题

用双击事件,我现在也正要类似的代码,我的是要在本单元格写入值之后,再将值写入所有表中的相同列的数据进行更新,其实公式就可以搞定的,boss偏要这样来,郁闷...,

首先说下思路吧:

先记住单元格的行,列号

r = ActiveCell.Row

c = ActiveCell.Column

写在选择变动事件中

在改变事件中写入以下代码记住单元格的值

Cells(r, c).Value

你再写你的复杂计算式

再写入

Cells(r, c).Value=你计算后的...

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.Intersect(Target, [a1]) Is Nothing Then Exit Sub

Target = d

Application.EnableEvents = False

a = InputBox("第2个数据")

b = InputBox("第3个数据")

c = InputBox("第4个数据")

A...

加个按钮进去吧,这样控件比较简单,你只要双击按钮就可以进入代码编写了

标签：excel,vba,实例