[已解决]急用，麻烦各位老师帮忙写段代码，谢谢

l00l00

改变如下：
1：从轻音乐到考试开始之前点开始，立即播放相应时间段的音乐。
2：考试结束后10分钟到轻音乐之前点开始，则等到轻音乐时间才播放轻音乐。
3：随时更换科目，换好后点开始就好。
4：设定开考后1分钟内点开始，还放一会音乐。
5：选择好科目，点击开始之后，无需再做任何操作。

huangjinyui

l00l00 发表于 2016-6-13 08:18
在前面老师的基础上帮你修改了。你就维持你原来的文件名就可以了。

老师，做得不错啊，非常感谢！谢谢  另外，不知是否可以再改动下，在播放最后一个音频时，提示运行时错误‘9’，下标越界，调试是这个‘“    Application.OnTime arr(r, j), "播放"，谢谢

huangjinyui

老司机带带我 发表于 2016-6-13 08:18
一、比如选定语文科目之后点击开始，他会自动按相应时间找到对应的MP3文件进行播放，无需每次都点击开始； ...

老师，你好，非常感谢你，谢谢！另外，不知是否可以改进下，将时间安排表放在时间安排表页面，操作表放在操作表的页面，另外再加多一个项目，下一状态，可以吗？谢谢

老司机带带我

代码自己更新下，然后把公式中的自定义名称“科目”如图该一下：公式文件加密，不上附件了！

1. Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
   
2. Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
   
3. Dim t, x%, arr, b As Boolean
   
4. Dim Mp3name As String
   
5. Private Function ConvShortFilename(ByVal strLongPath$) As String
   
6.     Dim strShortPath$
   
7.     If InStr(1, strLongPath, " ") Then
   
8.         strShortPath = String(LenB(strLongPath), Chr(0))
   
9.         GetShortPathName strLongPath, strShortPath, Len(strShortPath)
   
10.         ConvShortFilename = Left(strShortPath, InStr(1, strShortPath, Chr(0)) - 1)
    
11.     Else
    
12.         ConvShortFilename = strLongPath
    
13.     End If
    
14. End Function
    
15. Public Sub MPlay(ByRef FileName As String)
    
16.     FileName = ConvShortFilename(FileName)
    
17.     mciSendString "close " & FileName, vbNullString, 0, 0
    
18.     mciSendString "open " & FileName, vbNullString, 0, 0
    
19.     mciSendString "play " & FileName, vbNullString, 0, 0
    
20. End Sub
    
21. Public Sub MStop(ByRef FileName As String)
    
22.     FileName = ConvShortFilename(FileName)
    
23.     mciSendString "stop " & FileName, vbNullString, 0, 0
    
24.     mciSendString "close " & FileName, vbNullString, 0, 0
    
25. End Sub
    
26. Sub 开始()
    
27.     With Sheet2
    
28.         If Sheet1.[L9] = "" Then
    
29.             MsgBox "请选择科目！"
    
30.             Sheet1.[L9].Select
    
31.             Exit Sub
    
32.         End If
    
33.         arr = .Range("a1:g7")
    
34.         For i = 1 To 7
    
35.             If Sheet1.[L9] = arr(1, i) Then x = i
    
36.         Next
    
37.         b = True
    
38.         Call 计时
    
39.     End With
    
40. End Sub
    
41. Sub 计时()
    
42.     If b = True Then
    
43.         Application.OnTime Now + TimeValue("00:00:01"), "计时"
    
44.         Sheet1.[L12] = Time
    
45.         For i = 2 To 7
    
46.             If arr(i, x) = Sheet1.[L12] Then
    
47.                 Mp3name = ThisWorkbook.Path & "" & arr(i, 1) & ".mp3"
    
48.                 MPlay (Mp3name)
    
49.                 Sheet1.[l11] = arr(i, 1)
    
50.                 t = arr(i, x) + TimeValue("00:00:10") '音乐播放20秒
    
51.             End If
    
52.         Next
    
53.         If t = Time Then MStop (Mp3name)
    
54.     End If
    
55. End Sub
    
56. Sub 停止()
    
57.     b = False
    
58.     MStop (Mp3name)
    
59. End Sub

复制代码

huangjinyui

老司机带带我 发表于 2016-6-14 09:32
代码自己更新下，然后把公式中的自定义名称“科目”如图该一下：公式文件加密，不上附件了！

老师，好像不行，谢谢

l00l00

huangjinyui 发表于 2016-6-13 22:03
老师，做得不错啊，非常感谢！谢谢  另外，不知是否可以再改动下，在播放最后一个音频时，提示运行时错误 ...

你好,等我有时间帮你改下.这两天加班,忙的不行.

l00l00

你先将就用一下.   有要求可以提在这里,我会给你加.

l00l00

看到你前面提的要求了,抽空修改了一下.   

huangjinyui

l00l00 发表于 2016-6-16 16:38
看到你前面提的要求了,抽空修改了一下.

老师，你好，非常漂亮，不过不知是否可以再改进下，在使用过程中，若出现空格，则能自动路过跳过进行播放，如第七项中的部份单元格不需要播放考生须知，是否可以让其自动跳过，谢谢

l00l00

那请你修改一下附件上传上来吧。