关于第一个单元格的 内容 记录到第二个表格的问题。

wangyi2004

'请高手们指点，如何让“手机销售凭证”的指定内容“A7”、“H7”、“J7”和提交时的当前时间记录到“购机日志”中的A1 A2 A3 A4 等单元格，请高手指点。
记录方式最好是输入完毕后点击“确认销售（打印）”的时候记录，若太复杂的话输入完毕串号后即可记录，请指点过程，之前我用过的指令在这个表格不能使用，也不知道是哪里出了故障。


temp.rar (18.44 KB, 下载次数: 16)

2009-8-24 17:06 上传

点击文件名下载附件

wangyi2004

没有人指点吗？如果不行的话我上一幅图样，请大家帮帮忙！

wangyi2004

请大家帮我看看，我用一下代码，结果提示“编译错误”


Option Explicit

Private 记录 As String

With Sheets("购机历史")
    Dim i As Integer
    'i=Sheet3工作表A列的从最底行算起第一个非空值的行号+1
    i = .Range("A" & Rows.Count).End(xlUp).Row + 1
   
    '判断 当前列等于1  同时 当前行号大于7  同时 当前行号小于8 时
    If Target.Column = 1 And Target.Row > 7 And Target.Row < 8 Then
    If [A7] <> "" And [H7] <> "" And [J7] <> "" Then
    .Cells(i, 1) = [A7]
    .Cells(i, 2) = [H7]
    .Cells(i, 3) = [J7]
    .Cells(i, 4) = Now
    End If
    End If
    End With

yvhgydn

If Target.Column = 1 And Target.Row > 7 And Target.Row < 8 Then
有符合条件的吗，即大于七，又 小于八，同时行号不可能是小数
另外附件中未找到此段代码