态是在左侧,也可以改变)。由于Excel在输入数字时自动默认为数字格式,因此上述两种方法,如果不经常输入如此多的“学号”,笔者认为还是第二种方法较为实用,第一种方法较为麻烦,但适用于经常输入重复、不连续的数字(多个学年学号)等,大家可以根据需要或习惯选取。
下面再介绍一种更为简便的方法:首先在A2输入首位学号98001,将鼠标移动到A2单元格的右下角(填充柄位置),当鼠标变为一个黑色的十字时,这时在按住Ctrl键(可以看到黑色的十字光标右上角还有一个小的黑色十字,见(图4)的同时,再按住鼠标左键向下拖动到指定位置松开即可。
Excel中用自动运行宏提高工作效率
在日常工作中,我们经常需要在每次打开同一个Excel文件时都进行一些例行的cāo作,如改变表格的格式、更新报表日期、打印文件、对工作表进行保护或取消保护等等。Excel的自动运行宏“Auto_Open”可在文件打开后立即完成这些例行的cāo作任务,既快速又准确。
假设我们在Excel文件的工作表Sheet1中有一个《销售日报表》如下图:(图)
下面我们在这个文件中建立一个Auto_Open宏,让它在文件打开后自动完成下面任务:
1. 取消工作表保护;
2. 把“当日销售”列里的数据值复制到“上日销售”一列;
3. 将日期增加一天;
4. 恢复工作表保护。
具体做法如下:
1.
在“工具”菜单上选择“宏”子菜单,打开“宏”对话框,在“宏名”一栏里键入“Auto_Open”,再点击下面的“新建”钮,进入宏编辑状态。注意不要把宏名字输错了,否则宏不会自动执行。
2. 在宏编辑状态下,把下面VBA (Visual Basic for Application) 语句输入到Auto_Open下面:
Sub Auto_Open()
Sheets(“Sheet1”).Activate
'取消工作表保护
ActiveSheet.Unprotect
'将当日销售值拷贝到上日销售一栏
x = MsgBox(“把当日销售值拷贝到上日销售栏吗?”, vbYesNo)
If x = vbYes Then
Range(“B5:B8”).Copy
Range(“C5”).Select
Selection.PasteSpecial Paste:=xlvalues
Application.CutCopyMode = False
End If
'将日期增加一天
x = MsgBox(“把日期增加一天吗?”,vbYesNo)
If x = vbYes Then
Range(“C2”)= Range(“C2”)+ 1
End If
'重新保护工作表
ActiveSheet.Protect
End Sub
将文件保存并关闭。重新打开此文件,体验一下Auto_Open宏是如何为你工作的吧。
如果你想用Auto_Open完成其它的cāo作而又不知道如何用VBA语句直接建立宏,Excel的录制宏的功能可以帮助你,但是别忘了把所录制的宏取名为Auto_Open。关于录制宏的方法请参阅一般的Excel功能手册。
Office中Enter键的妙用
一、在Excel中的妙用
1.在单元格内换行