[已解决]求助，删除和加1代码

苗春雨

求助，删除和加1代码

最佳答案

月排行榜 / 总排行榜

老糊涂

2011-1-4 17:18

求删除和加1代码1.rar (23.63 KB, 下载次数: 4)

2011-1-4 17:17 上传

点击文件名下载附件

跳转到最佳答案楼层

chensir

什么意思

raulerini

{:3012:}看不明白。。。。

苗春雨

附件没传上，

raulerini

1. Sub 录入保存()
   
2.     Dim intS As Integer, Myr%
   
3.     Dim rngC As Range
   
4.     Dim strToFind As String, FirstAddress As String
   
5.     Dim wSht As Worksheet
   
6. 
   
7.     Application.ScreenUpdating = False
   
8. 
   
9.     intS = 1
   
10.     Set wSht = Worksheets("记录")
    
11.     '  Myr = wSht.[c65536].End(xlUp).Row + 1
    
12.     For i = 5 To 9
    
13.         Myr = wSht.[c65536].End(xlUp).Row + 1
    
14.         If Cells(i, 1) <> "" Then
    
15.             With wSht
    
16.                 .Cells(Myr, 3) = [c3].Value
    
17.                 .Cells(Myr, 4) = [f3].Value
    
18.                 .Cells(Myr, 5) = Cells(i, 1)
    
19.                 .Cells(Myr, 6) = Cells(i, 2)
    
20.                 .Cells(Myr, 7) = Cells(i, 3)
    
21.                 .Cells(Myr, 8) = Cells(i, 4)
    
22.                 .Cells(Myr, 9) = Cells(i, 5)
    
23.                 .Cells(Myr, 10) = Cells(i, 6)
    
24.                 .Cells(Myr, 11) = Cells(i, 7)
    
25.                 .Cells(Myr, 12) = Cells(i, 8)
    
26.             End With
    
27.             Sheets("录入").Range("A5：B9，D5：H9").ClearContents
    
28.             Sheets("录入").Range("F3").Value = Sheets("录入").Range("F3").Value + 1
    
29.         End If
    
30.     Next i
    
31.     Application.ScreenUpdating = True
    
32. End Sub

复制代码

另：你的代码写的忒过复杂了点。。

老糊涂

求删除和加1代码1.rar (23.63 KB, 下载次数: 4)

2011-1-4 17:17 上传

点击文件名下载附件

苗春雨

老糊涂 老师你好：你的代码漏了凭证号一列，不能存数字，麻烦你再给指导一下。
   呵呵，我已经修正好了，谢谢1