InputBox 文本框读取单元格数据

“开始检查”的原始代码要手动输入学校代码才能运行。今看了 兰色幻想 的VBA80集第33集视频，了解了InputBox的应用。虽然在淘宝上买了有两年多时间了（这套视频是亲手下的第一单网购），却没有看过几集。这次通过对“电子学籍”的修改，又勾起了兴趣。前两天将三年前 蓝桥玄霜 回复我发的求助贴例子的代码彻底搞懂，又想起了自己两年前设计完成的“拓板系统”，那个版本用表格函数引用编写的，运行速度太慢。现在要将VBA80集全看一遍，为设计vba版的拓板系统打基础。还要多泡ExcelHome技术论坛，以能将拓板系统优化到完美状态。

原始代码如下：
'首先输入学校验证码，如果不输入直接退出
  xxbsm = InputBox("请输入学校标识码")

修改成下面的代码，学校代码不再要手动输入，点“开始检查”就直接读取了。
'首先输入学校验证码，如果不输入直接退出
Range("A2").Select '选中单元格
   Selection.Copy'复制单元格
xxbsm = InputBox("请输入学校标识码", , ActiveCell)'两逗号中可输入标题，留空用默认标题。两逗号后为文本框默认值，ActiveCell是粘贴，即将前面复制的数据粘贴到文本框中。

上面的代码没有修改窗口显示，以下为修改后的代码。

'首先输入学校验证码，如果不输入直接退出
Sheets("学生基础信息").Range("A2").Select  '选中学生基础信息工作表中的A2单元格;这里只能用工作表名称,不能用 Sheet1(那将出现下标越界).
   Selection.Copy '复制单元格
xxbsm = InputBox("请核实学校标识码，点“确定”开始检查。" & Chr(10) & "点“取消”退出。", "开始检查", ActiveCell) '两逗号中可输入标题，留空用默认标题。两逗号后为文本框默认值，ActiveCell是粘贴，即将前面复制的数据粘贴到文本框中。Chr(10)为换行符。
  If StrPtr(xxbsm) Then





附ASCII码对应表：
chr(9) tab空格      
chr(10) 换行   
   chr(13) 回车      
  Chr(13)&chr(10) 回车换行   
    chr(32) 空格符   
   chr(34) 双引号   
    chr(39) 单引号

学习下。、、、、、、、、、