返回目录:excel表格制作
Excel如何做一个自动出题表格?
您好,看到这个问题我很兴奋,因为刚刚自己做了一个简单的随机出题的VBA小程序,也是一个VBA小练习,可能对您有帮助,因为无法上传附件,只能简要讲述用法。如果需要源文件,可以私信我。
1、新建一个EXCEL工作簿,命名为“随机出题”,将第一个工作表命名为“题库”,新建一个工作表,命名为“试卷”。具体方法请参见如上动图。
2、在名为“题库”的工作表中,A列为编号,B列为英文,C列为中文。将题目对应粘贴进去。在名为“试卷”的工作表A1单元格录入“题目”二字作为标题。具体方法请参见如上动图。
3、点击【开发工具】→Visual Basic→右键点击插入模块,将下面的代码复制进去。具体方法请参见如上动图。
Sub 随机出题()
Dim d As Object, arr, rng As Range, arr1, n As Integer, i As Integer, j As Integer, x As Long
Set d = CreateObject("scripting.dictionary")
x = Application.CountA(Sheets("题库").Range("a:a"))
line1: i = InputBox("请输入随机出题数量", "出题数量")
If i > x Then
MsgBox ("数量超出题目总数" & x & ",请重新输入")
GoTo line1
End If
line2: j = InputBox("请输入随机出题类型", "出题类型", "1为英文,2为中文")
If j <> 1 And j <> 2 Then
MsgBox ("输入内容不符合要求,请重新输入")
GoTo line2
End If
Do
d.Item(Application.RandBetween(1, i)) = ""
Loop Until d.Count = i
ReDim arr(1 To d.Count * 2)
For Each arr1 In d.keys
n = n + 1
Set rng = Sheets("题库").Range("a:a").Find(arr1)
arr(n) = n & "、" & rng.Offset(0, j).Value
Next
Rows("2:1048576").Clear
Range("a2").Resize(d.Count * 2, 1) = Application.Transpose(arr)
End Sub
4、关闭VBA编辑器,回到名为“试卷”的工作表,插入任意形状作为启动宏的按钮,选中形状,右键单击,选择指定宏即可。具体方法请参见如上动图。
5、将文件另存为后缀名为.xlsm的格式。具体方法请参见如上动图。
6、具体使用方法如上动图。
如需课件源文件,请私信我o(* ̄︶ ̄*)o
怎么用excel出数学题?
Sub 出题()
k = 1
For i = 1 To 20
Dim a, b, c, d, e, f
Do
a = WorksheetFunction.RandBetween(1, 100)
b = WorksheetFunction.RandBetween(-100, 100)
c = WorksheetFunction.RandBetween(-100, 100)
If b > 0 Then b = "+" & b
If c > 0 Then c = "+" & c
d = a & b
e = a & b & c
f = Evaluate(d) < 0 Or Evaluate(d) > 100 _
Or Evaluate(e) < 0 Or Evaluate(e) > 100
Loop While f
Cells(k, "N") = e & "="
k = k + 1
Next
End Sub
有没有哪个考试系统的试卷可以用Excel导入?
考试云在线考试系统支持使用Excel模板导入试题,组建试卷。支持多种试题导入的方式,可以满足不同的需求,提高了工作的效率,减少了试题导入的工作量和时间。用户可以将试题录入到系统,组建自己的题库,方便用户进行试题资源的整理和共享。
考试云的Excel导题模板有两种,两个模板的区别在于,模板一是一个选项占一个单元格,模板二是多个选项放在一个单元格内。我们进入试题管理页面,选择模板导入,下载Excel模板。
模板内会有具体的格式要求的说明,只需填写试题内容、试题选项、答案这3个必填项就可以上传试题;试题分类、分数、难度等都可以在导入试题后,在试题库中进行批量修改操作。
{!-- PGC_VIDEO:{"vid": "v03004g10000c2s4qjq23sf2qnhc67m0", "vname": "\u5982\u4f55\u4f7f\u7528Excel\u6a21\u677f\u6279\u91cf\u5bfc\u5165\u8bd5\u9898.mp4", "vposter": "https://p3-sign.toutiaoimg.com/orgin/~noop.image?x-expires=1964368370&x-signature=TqTwffvUwEo9Fqdqf%2Fv08CGeND8%3D", "sp": "toutiao", "vu": "v03004g10000c2s4qjq23sf2qnhc67m0", "duration": 0, "thumb_url": "", "video_size": {"high": {"duration": 0, "h": 240, "w": 320}, "ultra": {"duration": 0, "h": 240, "w": 320}, "normal": {"duration": 0, "h": 240, "w": 320}}} --}
请问,电脑小白,如何学习办公室word,excel表格制作?
我以前也是电脑小白,大学的时候计算机考级也没有过!丢一脸,哈哈哈。
现在对办公软件还算得心应手,分享一下自己的经验吧:
首先需求很重要,我的使用目的性很强的,平时也很懒,用不上的坚决不学,所以先根据你的日常使用需求来制定目标吧,这样自己必须要用的学习效率会高一些。
其次呢,是自己比较感兴趣的一些工具,这样学好了自己也有成就感,对不?
然后呢,有很多方法可以自己筛选,现在网上百度,还有很多自媒体,包括我们的头条都有很多关于office(word,excel,ppt)的学习软文推荐,还定期更新,你可以关注一些写的比较专业的用户。我是头条小白刚刚建立账户2周,但是工作的原因需要用到这些软件,所以也会分享一些文章,也可以关注,但不是最专业的,能看懂就可以了,哈哈哈。
最后其实现在office很多功能都很简单,智能,包括最新的Office365就很多AI智能工具,很容易上手的,每年付费哦,支持5台设备,6个用户同时使用,一个人几十快,性价比也很高的。
希望对你有用哦,早日变成专家!!
赠送快捷键,可以收藏!