[已解决]求教 修改代码

苗春雨

求教 修改代码

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-1-5 13:46

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. End If
    
28. Next i
    
29. wSht.Activate
    
30. 'Application.ScreenUpdating = True
    
31. Sheets("录入").Select
    
32. With Sheets("录入")
    
33. .Range("a5:b9,d5:h9").ClearContents
    
34. .Cells(3, 6) = .Cells(3, 6) + 1
    
35. .Cells(3, 3) = Date '加上这句
    
36. End With
    
37. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

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. End If
    
28. Next i
    
29. wSht.Activate
    
30. 'Application.ScreenUpdating = True
    
31. Sheets("录入").Select
    
32. With Sheets("录入")
    
33. .Range("a5:b9,d5:h9").ClearContents
    
34. .Cells(3, 6) = .Cells(3, 6) + 1
    
35. .Cells(3, 3) = Date '加上这句
    
36. End With
    
37. End Sub

复制代码

过江龙

Sub 保存新增()
    Dim intS As Integer, Myr%
    Dim rngC As Range
    Dim strToFind As String, FirstAddress As String
    Dim wSht As Worksheet

    'Application.ScreenUpdating = False

    intS = 1
    Set wSht = Worksheets("记录")
  '  Myr = wSht.[c65536].End(xlUp).Row + 1
    For i = 5 To 9
        Myr = wSht.[c65536].End(xlUp).Row + 1
        If Cells(i, 1) <> "" Then
    With wSht
        .Cells(Myr, 3) = [c3].Value
        '.Cells(Myr, 4) = [f3].Value
        .Cells(Myr, 5) = Cells(i, 1)
        .Cells(Myr, 6) = Cells(i, 2)
        .Cells(Myr, 7) = Cells(i, 3)
        .Cells(Myr, 8) = Cells(i, 4)
        .Cells(Myr, 9) = Cells(i, 5)
        .Cells(Myr, 10) = Cells(i, 6)
        .Cells(Myr, 11) = Cells(i, 7)
        .Cells(Myr, 12) = Cells(i, 8)
    End With
    End If
    Next i
    wSht.Activate
    'Application.ScreenUpdating = True
    Sheets("录入").Select
    With Sheets("录入")
        .Range("a5:b9,d5:h9").ClearContents
        .Cells(3, 6) = .Cells(3, 6) + 1
        .Cells(3, 3) = Format(Now, "yyyy年m月d日")
    End With
   End Sub

tlj588

学习一下，谢谢。