[已解决]讨论：程序判断S列数据是否大于100这句 做不出判断

qiaodong64

Sub test()                                                                                                                                                                                                     Dim mypath, myfile
mypath = ThisWorkbook.Path & "\"
myfile = Dir(mypath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While myfile <> ""
If myfile <> ThisWorkbook.Name Then
Workbooks.Open mypath & myfile
With ActiveWorkbook_
     Dim i As Integer
     For i = 3 To 1000
      If Val(Cells(i, 19)) > 100 Then
         Value = "100"
         Exit For
      End If
     Next
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
myfile = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-1-12 12:28

1. Sub test()
   
2. Dim mypath, myfile
   
3. mypath = ThisWorkbook.Path & ""
   
4. myfile = Dir(mypath & "*.xlsx")
   
5. Application.ScreenUpdating = False
   
6. Application.DisplayAlerts = False
   
7. Do While myfile <> ""
   
8. If myfile <> ThisWorkbook.Name Then
   
9. Workbooks.Open mypath & myfile
   
10. With ActiveWorkbook_
    
11.      Dim i As Integer
    
12.      For i = 3 To 1000
    
13.       If Val(Cells(i, 19)) > 100 Then
    
14.          Cells(i, 19) = 100
    
15.       End If
    
16.      Next
    
17. End With
    
18. ActiveWorkbook.Save
    
19. ActiveWorkbook.Close
    
20. End If
    
21. myfile = Dir
    
22. Loop
    
23. Application.DisplayAlerts = True
    
24. Application.ScreenUpdating = True
    
25. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

1. Sub test()
   
2. Dim mypath, myfile
   
3. mypath = ThisWorkbook.Path & ""
   
4. myfile = Dir(mypath & "*.xlsx")
   
5. Application.ScreenUpdating = False
   
6. Application.DisplayAlerts = False
   
7. Do While myfile <> ""
   
8. If myfile <> ThisWorkbook.Name Then
   
9. Workbooks.Open mypath & myfile
   
10. With ActiveWorkbook_
    
11.      Dim i As Integer
    
12.      For i = 3 To 1000
    
13.       If Val(Cells(i, 19)) > 100 Then
    
14.          Cells(i, 19) = 100
    
15.       End If
    
16.      Next
    
17. End With
    
18. ActiveWorkbook.Save
    
19. ActiveWorkbook.Close
    
20. End If
    
21. myfile = Dir
    
22. Loop
    
23. Application.DisplayAlerts = True
    
24. Application.ScreenUpdating = True
    
25. End Sub

复制代码