李自动化工具使用vba excel,通过该工具,您只需单击一下即可将测试分配给任意数量的学生
我有一个问题,如果学生点击下一步按钮,如何一个接一个地拉问题。 这里我有两个excel工作簿,一个是主工作簿,另一个是为测试设计的工具(学生将查看)李自动化工具使用vba excel,通过该工具,您只需单击一下即可将测试分配给任意数量的学生,vba,excel,Vba,Excel,我有一个问题,如果学生点击下一步按钮,如何一个接一个地拉问题。 这里我有两个excel工作簿,一个是主工作簿,另一个是为测试设计的工具(学生将查看) 你能用更多的细节解释一下吗,比如快照或示例文件?你可以在单元格E6中找到学生姓名列表,在单元格B6中可以看到分配测试和分配(进度状态)的状态我有一张excel表格,其中单元格A1的目标地址是为坐在计算机实验室中的一组学生分配测试的位置excel Nano有一些设计,因此当学生单击excel进行测试时,他们首先看到设计,然后单击位于设计底部的开始按钮
你能用更多的细节解释一下吗,比如快照或示例文件?你可以在单元格E6中找到学生姓名列表,在单元格B6中可以看到分配测试和分配(进度状态)的状态我有一张excel表格,其中单元格A1的目标地址是为坐在计算机实验室中的一组学生分配测试的位置excel Nano有一些设计,因此当学生单击excel进行测试时,他们首先看到设计,然后单击位于设计底部的开始按钮页面上还有用于提问和回答的用户表单。现在我的目标是将问题从主excel拉到nanoo,nanoo excel有用于提问的空间(带有标签、文本框和组合框的用户表单)
Sub Button1_Click()
Dim s(6 To 100) As String`enter code here`
Dim stname As String
Dim neWb As Workbook
Dim mypath As String
Dim u As String
u = "_xlsx"
Application.DisplayAlerts = False
For i = 6 To 100
s(i) = Range("E" & i).Value
stname = s(i) & "" & u
If s(i) = "" Then
ActiveWorkbook.Open = False
End If
On Error GoTo jamun:
mypath = Range("B1").Value & "\" & stname
Set neWb =Workbooks.Open("anypath\nanoo.xls")'It can be c drive or any other drive in the system
neWb.SaveAs filename:=mypath
neWb.Close
Range("B" & i).Value = mypath & "_assigning..."
Application.Wait Now + TimeValue("00:00:02")
Range("F" & i).Value = "Done"
Range("B" & i).Value = mypath & "_assigned"
Application.Wait Now + TimeValue("00:00:01")
Range("B" & i).Select
'Adding hyper link to all the lines that shows the status to whom it has been assigned and to whom it is yet to assign
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="mypath", TextToDisplay:=Range("B" & i).Value
Range("B" & i).Select
Selection.Hyperlinks(1).Address = Range("B1").Value
Next
MsgBox "Test assigned successfully"
Exit Sub
jamun:
MsgBox "Test assigned successfully"
End Sub