Office中国论坛/Access中国论坛

标题: 请大家帮忙看一下，这个功能如何实现。 [打印本页]

作者: debra 时间: 2009-3-10 14:39
标题: 请大家帮忙看一下，这个功能如何实现。
以下是我自己写的，回车后没有任何响应。
请大家帮忙看一下。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j As Integer
j = 7
On Error Resume Next
If Target = Worksheets("Sheet1").Cells(4, 4) Then
For i = 2 To 60
If Worksheets("Sheet2").Cells(i, 3).Value = Worksheets("Sheet1").Cells(4, 4) Then
Worksheets("Sheet1").Cells(j, 3).Value = Worksheets("Sheet2").Cells(i, 2)
Worksheets("Sheet1").Cells(j, 4).Value = Worksheets("Sheet2").Cells(i, 3)
Worksheets("Sheet1").Cells(j, 5).Value = Worksheets("Sheet2").Cells(i, 4)
Worksheets("Sheet1").Cells(j, 6).Value = Worksheets("Sheet2").Cells(i, 5)
Worksheets("Sheet1").Cells(j, 7).Value = Worksheets("Sheet2").Cells(i, 6)
Worksheets("Sheet1").Cells(j, 8).Value = Worksheets("Sheet2").Cells(i, 7)
Worksheets("Sheet1").Cells(4, 4) = ""
j = j + 1
End If
Next
End If
End Sub

作者: ACMAIN_CHM 时间: 2009-3-10 20:15
if Target.Address="$D$4" then

1。学会使用调试，和立即窗口
2。学会查找EXCEL的帮助文档。

******************
* 一切皆有可能 *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: debra 时间: 2009-3-11 12:32
没有任何错误提示，输入关键字后，回车没有任何反映。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)