[已解决]麻烦各位老师看下，帮忙修改下代码，谢谢

huangjinyui

麻烦各位老师看下，帮忙修改下代码，谢谢

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-16 11:15

1. Sub 计时()
   
2.     If b = True Then
   
3.         Application.OnTime Now + TimeValue("00:00:01"), "计时"
   
4.         Sheet1.[L12] = Time
   
5.         For i = 2 To 7
   
6.             If Sheet1.[L12] < arr(2, x) Then
   
7.                 Sheet1.[L10] = ""
   
8.                 Sheet1.[L11] = arr(2, 1)
   
9.             End If
   
10.             If arr(i, x) = Sheet1.[L12] Then
    
11.                 Mp3name = ThisWorkbook.Path & "" & arr(i, 1) & ".mp3"
    
12.                 MPlay (Mp3name)
    
13.                 Sheet1.[L10] = arr(i, 1)
    
14.                 If i < 7 Then
    
15.                     Sheet1.[L11] = arr(i + 1, 1)
    
16.                 Else
    
17.                     Sheet1.[L10] = ""
    
18.                 End If
    
19.                 t = arr(i, x) + TimeValue("00:00:10") '音乐播放20秒
    
20.             End If
    
21.         Next
    
22.         If t = Time Then MStop (Mp3name)
    
23.     End If
    
24. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

1. Sub 计时()
   
2.     If b = True Then
   
3.         Application.OnTime Now + TimeValue("00:00:01"), "计时"
   
4.         Sheet1.[L12] = Time
   
5.         For i = 2 To 7
   
6.             If Sheet1.[L12] < arr(2, x) Then
   
7.                 Sheet1.[L10] = ""
   
8.                 Sheet1.[L11] = arr(2, 1)
   
9.             End If
   
10.             If arr(i, x) = Sheet1.[L12] Then
    
11.                 Mp3name = ThisWorkbook.Path & "" & arr(i, 1) & ".mp3"
    
12.                 MPlay (Mp3name)
    
13.                 Sheet1.[L10] = arr(i, 1)
    
14.                 If i < 7 Then
    
15.                     Sheet1.[L11] = arr(i + 1, 1)
    
16.                 Else
    
17.                     Sheet1.[L10] = ""
    
18.                 End If
    
19.                 t = arr(i, x) + TimeValue("00:00:10") '音乐播放20秒
    
20.             End If
    
21.         Next
    
22.         If t = Time Then MStop (Mp3name)
    
23.     End If
    
24. End Sub

复制代码