Office中国论坛/Access中国论坛

标题: 版主帮忙，请帮我看看。 [打印本页]

作者: 34551391 时间: 2005-12-28 18:47
标题: 版主帮忙，请帮我看看。
如何在一个sheet1中双击B列单元格将内容复制到sheet2中B列自动添加记录

sheet1: A          B             C                            sheet2: A          B       C

         1  ID    NAME          ""                                     1    ID    NAME

         2 1       ASD                                                    2    1       ASD

         3 2       ZXC                                                    3    2       ASD

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
Dim i As Integer
Dim myrange As Range

ActiveCell.Select
If Target.Value <> "" Then
Selection.Copy
Worksheets("sheet2").Select
'Worksheets("sheet2").Activate
myrange = Worksheets("sheet2").Range("A2:A").Select '这句总是不能通过，请帮我看看错在那里。
i = Application.WorksheetFunction.Max(myrange) + 1

Worksheets("订单明细").Cells(i, 2).Select
Worksheets("订单明细").Cells(i, 2).paste
Application.CutCopyMode = False
Application.EnableEvents = True
End If
End Sub

作者: shxxfgqj 时间: 2005-12-28 22:56
把后面的.Select 去掉

作者: 34551391 时间: 2005-12-28 23:40
谢谢楼上，ok

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