另存为文件名，捕获Caps Lock事件

Question

2个问题比较棘手①另存为保存时的文件名：
   比如abc.xls的文件，A1单元格的值为def，点另存为按钮后，保存框中默认的文件名为def②Caps Lock事件：大小写自动切换
  A1：abcd
  A2：efgh
  点了Caps Lock后，A1，A2的内容自动变为大写（ABCD,EFGH）
  再点Caps Lock后，自动变为小写
在线等，急急急！！！

Answer 1

1.
ex.ActiveWorkbook.SaveAs("d:\" & sh.Cells(1,1) & ".xls") 
2.
没看明白

Answer 2

ex.ActiveWorkbook.SaveAs("d:\" & sh.Cells(1,1) & ".xls") 
这段代码应该写在什么函数里呢？我的第二个问题就是：
按下大写键后，我指定范围内的内容自动变为大写（abc->ABC）
再按一下，自动变回小写来

Answer 3

第一个问题是新建excel对象,填充值后另存为的代码
第二个问题循环读取excel的单元格,将内容转换为大写,关键是用vba获取键盘事件

Answer 4

因为需求方面不需要了，这2个功能废止了。不过又有一个新的问题需求：          对A列单元格输入的内容进行数字check，比如A1输入了'abc'后，移开光标后，在A2显示错误信息，
我的处理：      把代码都放在了worksheet_change事件里，需求可以实现
目前遇到的困难：复制A1('abc'),选中B1,C1,D1,E1,粘贴，问题在这：只有B2显示了错误信息，C,D,E没有错误信息，
                
                
                

Answer 5

上面的写错了,请无视。需求： 对A列单元格输入的内容进行数字check，比如A1输入了'abc'后，移开光标后，在B1显示错误信息，
我的处理： 把代码都放在了worksheet_change事件里，需求可以实现
目前遇到的困难：复制A1('abc'),选中A2,A3,A4,A5,粘贴，问题在这：只有B2显示了错误信息，B3,B4,B5没有错误信息，

Answer 6

worksheet_change事件里，
if cells(A1) = ＂ａｂｃ＂　ｔｈｅｎ
　　ｃｅｌｌｓ（Ｂ１）　＝　＂请输入数字＂
ｅｎｄｉｆ这样的话只能对一个单元格进行ｃｈｅｃｋ但把Ａ１的内容粘贴到选中的多个单元格中（A2,A3,A4,A5），这个ｃｈｅｃｋ只能对Ａ２起作用，A3,A4,A5无法ｃｈｅｃｋ到，也就是说worksheet_change这个事件只能对一个单元格操作，困惑中

Answer 7

worksheet_change只能对一个单元格的移动进行check，
如果粘贴数据到多个单元格，如果对多个单元格进行check呢???100分呢，不想无满意结贴啊

Answer 8

SET RNG=UNION(....)这里是要检查的单元格的集合然后 FOR EACHNEXT再就是放在那里CHECK？SELECTCHANG？