examRoomCol = InputBox("请输考场号所在列？例：14")
If StrPtr(examRoomCol) = 0 Then
MsgBox "点击了取消或是直接关闭了窗口。"
If Len(examRoomCol) = 0 Then
MsgBox "输入了空白值。"
ElseIf IsNumeric(examRoomCol) = False Then
MsgBox "输入...
[a5] = ActiveCell.Cells '获取选中单元格内容
[a6] = Target.Address(0, 0) '获取选中单元格名称（字符名称 例如 C5 )
[a7] = ActiveCell.Cells.Row '获取选中单元格的行编号
数值
[a8] = ActiveCell.Cells.Column '获取选中单元.
