制表格教程(Excel如何做一个自动出题表格)
资讯
2023-11-28
85
1. 制表格教程,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
2. 请问有什么好的办法归类?
因为工作原因,本身岗位就是计划管理,所以我的表格是相当多的,电脑桌面经常密密麻麻,请问有什么好的办法归类?这时候我的建议是如下:1、认识文件后缀名;2、有自己的命名规则;3、定期清理;4、存放位置;
认识文件后缀名电脑桌面经常密密麻麻,我想不仅仅只有表格类的文件,也有可能有其他文件,这时候整理前系统的学习一下电脑的文件后缀名,也就是文件类型是非常有必要的,这样就可以根据文件类型来整理了。常见的文件类型我分了三类
办公类:
TXT:Windows文本文档
XLS:Microsoft Excel 2003电子表格
XLSX:Microsoft Excel 2007版本以上电子表格
DOC: Microsoft Word 2003文档文件
DOCX:Microsoft Word 2007版本以上文档文件
PPS:Microsoft Powerpoint幻灯片放映
PPT:Microsoft Powerpoint演示文稿
图片类:
JPE,JPEG,JPG:JPEG图形文件
GiF:动态图片文件
PNG:可移植图像文件
TIF,TIFF:标签图像文件格式(TIFF)位图
视频类:
avi:Windows视频文件
MP4:视频或音频文件
FLV:Flash视频文件
MKV:视频文件
MOV:QuickTime for Windows视频文件
这里就不一一介绍了,平时把系统的后缀名打开,有不认识的头条搜索一下就明白了
命名规则一开始看到桌面密密麻麻的文件,不要急着整理,在整理之前理顺一下自己的文件的命名规则,如果文件的命名规则没有的话,整理起来就会大大打折扣,同时一个好命名规则,对于大脑可以起到一个加深作用。我来分享一下我的命名规则:
时间法:
以时间为规则命名,整体思路在非系统盘建立以年份为基准的文件夹,同时文件的命名为:“名称_日期"的命名规则
子文件夹为月份
文件名为:
名称+日期
地点法:
以工作地点命名,如一个公司一个文件夹,一个项目一个文件夹;前面分加上数字进行排序,想排在第一位的用 01、第二位的用 02
项目法:
前面的文件夹名称可以用项目的英文大写字母简称;这样可以精准定位,按下字母
组织法:
根据公司的组织架构来分:如下图
0 计划 ;1 制造 2 总装...........
定期清理花了上面这样多内容来说明文件命名及文件类型,就是为了让你在整理桌面时候有目标去整理,首先一定要定期清理,还有每次保存文件的时候一定要保存到指定位置,不要放在桌面!不要放在桌面!不要放在桌面!重要的事情说三遍,因为桌面是系统盘所在位置,如果系统盘崩溃了,文件就有可能丢失。
日清日毕:每天下班检查桌面的多余文件,把它们放到我上面所命名的规则对应的文件夹里面;
利用搜索:整理电脑中的各类文件,常见的就是后缀名搜索法,如输入: *
.TXT,代表的就是所有文本文件;把对应的文件一起剪切到不同的文件夹中;
存放位置文件在桌面比较乱的原因就是存储位置和名称没有原则性,久了久之桌面一堆文件,名称有“1111”、“222”、“aaaa"、 "aaaabbb|“……,这里建议几个原则
原则1:桌面只存放快捷方式,就是链接的
原则2:保存文件不要直接按保存”Ctrl+S" 。
要按另存为,存到你指定的文件夹位置;OFFICE的是F12 为另存为,建议各个盘固定放不同的类型的文件:C盘,系统盘,D盘为软件盘,E盘:文件盘,F盘:备份盘
原则3:保存文件一定加上一个日期反缀名
加了的话,可以按日期搜索,这样就是非常快了,如下图
最后一定要保持桌面清爽,这样每天上班心情都会好很多
古哥的桌面就是这样……
我是古哥计划,头条号作者,职场问答专家,职场领域创作者,专注生产计划15年。更多文章,请点头像关注
3. 如何将一个表格剪切到另一个表格中?
将一个EXCEL表格中的内容及格式全部复制到另一个表格中的步骤如下:
1.在你的电脑上打开一个excel文档,新建一个空白的文档。
2.按照你的需求输入相关内容,比如期末成绩单等,每一列的列宽均不同。
3.右键点击1行和A列交叉点的小方框,弹出的菜单栏中选择“复制”。
4.再打开一个空白的excel表格,或者在当前的excel表格中选择一个空白的表。
5.同样右键点击1行和A列交叉点的小方框,弹出的菜单栏中选择“粘贴”即可。这样就解决了将一个EXCEL表格中的内容及格式全部复制到另一个表格中的问题了。
4. excel表格制作后怎么保存?
具体操作步骤如下:
1、首先打开excel,点击左上角“文件”选项。
2、然后在该页面中点击“另存为”选项。
3、之后在该页面中在保存类型右侧点击选择“excel模板”选项。
4、然后在该页面中点击“保存”选项即可将表格保存了。
5. 任务栏中怎么找到表格?
你需要把制作表格快捷键放在任务栏,然后需要时直接打开
6. 平板电脑能做表格吗?
在平板电脑上建表格需要用到wps软件,具体操作如下:
1、找到平板电脑中的应用下载商城,点击进入这个软件。
2、进入到商城的主页面后,浏览商店里面的内容,找到并点击页面的最上方找到的搜索框。
3、随后出现搜索页面,在页面的最上方搜索表格制作软件,进行软件的搜索。
4、搜索完成后将会出现很多的软件,选择需要用来制作表格的软件,点击进行下载。
5、在手机上的主屏幕上,找到刚刚通过应用商场下载好的软件的图标,并且点击进入。
6、进入到软件的主页面后,浏览整个主页面,找到主页面上“+”的选项,并且点击进入。
7、进入到“+”的页面后,同样出现“新建文件”“新建演示”“新建表格”“新建PDF”“新建TXT”等很多选项。
8、选择需要的“新建表格”选项并进入。
9、进入到此页面后,浏览页面中的内容,根据自己的要求选取自己所需要的选项,进入到表格的制作主页。
10、最后我们就能根据自己所需要制作的表格内容,在此页面中制作出自己需要的表格。
7. EXCEL怎样一次快速建立31天表格呢?
先完善一张表(表头),按组合键ALT+F11弹出VBA编辑窗,双击左侧的ThisWorkBook,将以下代码复制到右侧的编辑区,单击上部工具栏的“向右三角符号”按钮执行它(或通过宏来执行它),完成任务
'以下为需要复制的代码
Sub AddSheets()
'
'本示例代码将在本工作簿中 按当月天数复制当月工作表,并按日期对表名赋值
'操作前请先将需要复制表的内容(如表头等)填写完整
Dim i As Integer
Dim DaysInt As Integer
Dim NameStr As String
'当月有多少天
DaysInt = DateAdd("m", 1, Now) - Now
'准备表名
NameStr = Month(Now) & "-"
'禁止提示
Application.DisplayAlerts = False
'删除其它工作表
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> ActiveSheet.Name Then
Sheets(i).Delete
End If
Next
'第一张表名赋值
ActiveSheet.Name = NameStr & "1"
'复制工作表并按日期赋值表名
For i = 2 To DaysInt
Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NameStr & CStr(i)
Next
'恢复提示
Application.DisplayAlerts = True
End Sub
本站涵盖的内容、图片、视频等数据系网络收集,部分未能与原作者取得联系。若涉及版权问题,请联系我们删除!联系邮箱:ynstorm@foxmail.com 谢谢支持!
1. 制表格教程,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
2. 请问有什么好的办法归类?
因为工作原因,本身岗位就是计划管理,所以我的表格是相当多的,电脑桌面经常密密麻麻,请问有什么好的办法归类?这时候我的建议是如下:1、认识文件后缀名;2、有自己的命名规则;3、定期清理;4、存放位置;
认识文件后缀名电脑桌面经常密密麻麻,我想不仅仅只有表格类的文件,也有可能有其他文件,这时候整理前系统的学习一下电脑的文件后缀名,也就是文件类型是非常有必要的,这样就可以根据文件类型来整理了。常见的文件类型我分了三类
办公类:
TXT:Windows文本文档
XLS:Microsoft Excel 2003电子表格
XLSX:Microsoft Excel 2007版本以上电子表格
DOC: Microsoft Word 2003文档文件
DOCX:Microsoft Word 2007版本以上文档文件
PPS:Microsoft Powerpoint幻灯片放映
PPT:Microsoft Powerpoint演示文稿
图片类:
JPE,JPEG,JPG:JPEG图形文件
GiF:动态图片文件
PNG:可移植图像文件
TIF,TIFF:标签图像文件格式(TIFF)位图
视频类:
avi:Windows视频文件
MP4:视频或音频文件
FLV:Flash视频文件
MKV:视频文件
MOV:QuickTime for Windows视频文件
这里就不一一介绍了,平时把系统的后缀名打开,有不认识的头条搜索一下就明白了
命名规则一开始看到桌面密密麻麻的文件,不要急着整理,在整理之前理顺一下自己的文件的命名规则,如果文件的命名规则没有的话,整理起来就会大大打折扣,同时一个好命名规则,对于大脑可以起到一个加深作用。我来分享一下我的命名规则:
时间法:
以时间为规则命名,整体思路在非系统盘建立以年份为基准的文件夹,同时文件的命名为:“名称_日期"的命名规则
子文件夹为月份
文件名为:
名称+日期
地点法:
以工作地点命名,如一个公司一个文件夹,一个项目一个文件夹;前面分加上数字进行排序,想排在第一位的用 01、第二位的用 02
项目法:
前面的文件夹名称可以用项目的英文大写字母简称;这样可以精准定位,按下字母
组织法:
根据公司的组织架构来分:如下图
0 计划 ;1 制造 2 总装...........
定期清理花了上面这样多内容来说明文件命名及文件类型,就是为了让你在整理桌面时候有目标去整理,首先一定要定期清理,还有每次保存文件的时候一定要保存到指定位置,不要放在桌面!不要放在桌面!不要放在桌面!重要的事情说三遍,因为桌面是系统盘所在位置,如果系统盘崩溃了,文件就有可能丢失。
日清日毕:每天下班检查桌面的多余文件,把它们放到我上面所命名的规则对应的文件夹里面;
利用搜索:整理电脑中的各类文件,常见的就是后缀名搜索法,如输入: *
.TXT,代表的就是所有文本文件;把对应的文件一起剪切到不同的文件夹中;
存放位置文件在桌面比较乱的原因就是存储位置和名称没有原则性,久了久之桌面一堆文件,名称有“1111”、“222”、“aaaa"、 "aaaabbb|“……,这里建议几个原则
原则1:桌面只存放快捷方式,就是链接的
原则2:保存文件不要直接按保存”Ctrl+S" 。
要按另存为,存到你指定的文件夹位置;OFFICE的是F12 为另存为,建议各个盘固定放不同的类型的文件:C盘,系统盘,D盘为软件盘,E盘:文件盘,F盘:备份盘
原则3:保存文件一定加上一个日期反缀名
加了的话,可以按日期搜索,这样就是非常快了,如下图
最后一定要保持桌面清爽,这样每天上班心情都会好很多
古哥的桌面就是这样……
我是古哥计划,头条号作者,职场问答专家,职场领域创作者,专注生产计划15年。更多文章,请点头像关注
3. 如何将一个表格剪切到另一个表格中?
将一个EXCEL表格中的内容及格式全部复制到另一个表格中的步骤如下:
1.在你的电脑上打开一个excel文档,新建一个空白的文档。
2.按照你的需求输入相关内容,比如期末成绩单等,每一列的列宽均不同。
3.右键点击1行和A列交叉点的小方框,弹出的菜单栏中选择“复制”。
4.再打开一个空白的excel表格,或者在当前的excel表格中选择一个空白的表。
5.同样右键点击1行和A列交叉点的小方框,弹出的菜单栏中选择“粘贴”即可。这样就解决了将一个EXCEL表格中的内容及格式全部复制到另一个表格中的问题了。
4. excel表格制作后怎么保存?
具体操作步骤如下:
1、首先打开excel,点击左上角“文件”选项。
2、然后在该页面中点击“另存为”选项。
3、之后在该页面中在保存类型右侧点击选择“excel模板”选项。
4、然后在该页面中点击“保存”选项即可将表格保存了。
5. 任务栏中怎么找到表格?
你需要把制作表格快捷键放在任务栏,然后需要时直接打开
6. 平板电脑能做表格吗?
在平板电脑上建表格需要用到wps软件,具体操作如下:
1、找到平板电脑中的应用下载商城,点击进入这个软件。
2、进入到商城的主页面后,浏览商店里面的内容,找到并点击页面的最上方找到的搜索框。
3、随后出现搜索页面,在页面的最上方搜索表格制作软件,进行软件的搜索。
4、搜索完成后将会出现很多的软件,选择需要用来制作表格的软件,点击进行下载。
5、在手机上的主屏幕上,找到刚刚通过应用商场下载好的软件的图标,并且点击进入。
6、进入到软件的主页面后,浏览整个主页面,找到主页面上“+”的选项,并且点击进入。
7、进入到“+”的页面后,同样出现“新建文件”“新建演示”“新建表格”“新建PDF”“新建TXT”等很多选项。
8、选择需要的“新建表格”选项并进入。
9、进入到此页面后,浏览页面中的内容,根据自己的要求选取自己所需要的选项,进入到表格的制作主页。
10、最后我们就能根据自己所需要制作的表格内容,在此页面中制作出自己需要的表格。
7. EXCEL怎样一次快速建立31天表格呢?
先完善一张表(表头),按组合键ALT+F11弹出VBA编辑窗,双击左侧的ThisWorkBook,将以下代码复制到右侧的编辑区,单击上部工具栏的“向右三角符号”按钮执行它(或通过宏来执行它),完成任务
'以下为需要复制的代码
Sub AddSheets()
'
'本示例代码将在本工作簿中 按当月天数复制当月工作表,并按日期对表名赋值
'操作前请先将需要复制表的内容(如表头等)填写完整
Dim i As Integer
Dim DaysInt As Integer
Dim NameStr As String
'当月有多少天
DaysInt = DateAdd("m", 1, Now) - Now
'准备表名
NameStr = Month(Now) & "-"
'禁止提示
Application.DisplayAlerts = False
'删除其它工作表
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> ActiveSheet.Name Then
Sheets(i).Delete
End If
Next
'第一张表名赋值
ActiveSheet.Name = NameStr & "1"
'复制工作表并按日期赋值表名
For i = 2 To DaysInt
Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NameStr & CStr(i)
Next
'恢复提示
Application.DisplayAlerts = True
End Sub
本站涵盖的内容、图片、视频等数据系网络收集,部分未能与原作者取得联系。若涉及版权问题,请联系我们删除!联系邮箱:ynstorm@foxmail.com 谢谢支持!