[已解决]求高手们来解答,难死我了,弄两天了没有实现!

haikeyia

我又改成这样的了:
Range("B8,E11,D15").Select
     Selection.ClearContents
还能改成别的吗?

zjdh

我就知道你接下来就要问这个问题了。
Sub TEST()
    With Sheets(2)
        W = .Range("A65536").End(3).Row + 1
        .Cells(W, 1) = Range("G5")
        .Cells(W, 2) = Range("C10")
        .Cells(W, 3) = Range("B11")
        .Cells(W, 4) = Range("E11")
        .Cells(W, 5) = Range("B8")
        .Cells(W, 6) = Range("E15") & "-" & Range("G15") & "-" & Range("I15")
    End With
    Range("G5:I5, C10:E10, B11, E11:G11, B8:D8, E15, G15, I15").ClearContents
    MsgBox "已保存！"
End Sub

haikeyia

学习了!
我还有个思路,还没头绪,如果再增加一个恢复数据按钮,点一下,把上次删除的单元格数据恢复回去,如何实现?

haikeyia

zjdh 发表于 2014-5-11 19:54
我就知道你接下来就要问这个问题了。
Sub TEST()
    With Sheets(2)

学习了!
我还有个思路,还没头绪,如果再增加一个恢复数据按钮,点一下能把上次删除的不连续单元格数据恢复回去,把已保存到表二的数据删除,能不能实现?我没底了

zjdh

啥叫: 不连续单元格数据恢复

haikeyia

Range("G5:I5, C10:E10, B11, E11:G11, B8:D8, E15, G15, I15").ClearContents
此部分内容点一下直接恢复,怎么实现?

zjdh

记录与恢复.rar (8.99 KB, 下载次数: 8)

2014-5-12 13:21 上传

点击文件名下载附件

haikeyia

你是老师,受教了!

haikeyia

再请教个问题,我弄了个查询按钮,想在保存的记录sheet2中按编号查询(编号是第一列),然后找到相应行的数据并返回到sheet3中,如何做?我用的
irow = .Range("66536").End(3).Row
   If Cells(irow, 1) = TextBox1.Value Then
.....
弄不出来了

zjdh

haikeyia 发表于 2014-5-18 09:26
再请教个问题,我弄了个查询按钮,想在保存的记录sheet2中按编号查询(编号是第一列),然后找到相应行的数据并返 ...

另外发求助帖发附件。