[已解决]如何写入指定表格中

zjsxzgx

要求： 当点击记录时自动按型号增加到对应的数据库里  
           当点击查找时自动按型号找到最后一个记录

9PtGBmhd.rar (9 KB, 下载次数: 27)

2010-2-24 12:45 上传

点击文件名下载附件
如何写入指定表格中

最佳答案

月排行榜 / 总排行榜

suye1010

2010-2-24 13:25

Private Sub 记录_Click()
ShName = Range("D11")
With Sheets(ShName)

    a = .Range("A65536").End(xlUp).Row + 1
     .Range("A" & a & ":D" & a) = Range("D11:G11").Value
End With
End Sub
写了个关于记录的，抛砖引玉一下。另外的自己学着写写吧

跳转到最佳答案楼层

suye1010

Private Sub 记录_Click()
ShName = Range("D11")
With Sheets(ShName)

    a = .Range("A65536").End(xlUp).Row + 1
     .Range("A" & a & ":D" & a) = Range("D11:G11").Value
End With
End Sub
写了个关于记录的，抛砖引玉一下。另外的自己学着写写吧

zjsxzgx

好的 谢谢

zjsxzgx

Private Sub 记录_Click()
If Application.WorksheetFunction.CountA(Sheets("记录查找").Range("D11:F11")) = 0 Then
     MsgBox "你让我记录什么？？？", vbOKOnly
     Exit Sub
End If
ShName = Range("D11")
With Sheets(ShName)

    a = .Range("A65536").End(xlUp).Row + 1
     .Range("A" & a & ":D" & a) = Range("D11:G11").Value
         Sheets("记录查找").Select
         Range("D11:F11").Select
         Selection.ClearContents
         Range("C4").Select
End With

End Sub

老师你看这样可以吗？

zjsxzgx

Private Sub 查找_Click()
ShName = Range("D5")
With Sheets(ShName)
  A = .Range("A65536").End(xlUp).Row
Range("E5:G5") = .Range("B" & A & ":D" & A).Value
End With
End Sub

Private Sub 记录_Click()
If Application.WorksheetFunction.CountA(Sheets("记录查找").Range("D11:F11")) = 0 Then
     MsgBox "你让我记录什么东西？？？", vbOKOnly
     Exit Sub
End If
ShName = Range("D11")
With Sheets(ShName)

    A = .Range("A65536").End(xlUp).Row + 1
     .Range("A" & A & ":D" & A) = Range("D11:G11").Value
         Sheets("记录查找").Select
         Range("D11:F11").Select
         Selection.ClearContents
         Range("C4").Select
End With
End Sub

zsd5237

学习

[em02][em02]

zgm1201

好好学习，天天向上！正想学这个呢。[em01]