7. Write test and click create
8. Select text and click delete
9. Copy paste the code below
Sub test_Pc_Speed()Dim i As LongDim j As ByteApplication.ScreenUpdating = Falset = TimerFor i = 1 To 50000For j = 1 To 10Cells(i, j) = “Test”Next jNext iApplication.ScreenUpdating = TrueMsgBox (Timer – t) & ” Seconds”End Sub
10. Click Run
11. Wait for a while and message with number of seconds will appear
11. Wait for a while and message with number of seconds will appear
If you computer after this test shows in a message with number of seconds bigger of 28, you could be sure that it is time to change it with new one. As you can see from the last screenshot the computer used for this presentation i really slow.
Enjoy and if you like you could share this with your friends