如题所述
ç¨VBAå代ç å³å¯å®ç°ã
详ç»æ¥éª¤å¦ä¸ï¼
1.Alt+F11ï¼æå¼VBAç¼è¾çé¢ï¼åå»å·¦ä¾§Microsoft Excel对象ä¸çâSheet1âï¼ç¡®ä¿ç¨åºæ¯å¨sheet1ä¸æ§è¡
2.ç¹å»ä¸å¾âéç¨âå³ä¾§çä¸æç®å¤´ï¼éæ©worksheet
3.æ¤æ¶ï¼ä»£ç ç¼è¾åºï¼èªå¨åºç°ä¸¤ä¸²ä»£ç ï¼å¦ä¸å¾æ示ï¼
4.è¡¥å åä¸ä¸å¥ä»£ç âRange("h1")=Target.text"
5.å ³éVBAçé¢ï¼è¿åSheet1ï¼ç¹å»ä»»æåå æ ¼ï¼å°±çå°H1çå¼å°±çäºç¹å»åå æ ¼çå¼
按alt+F11打开编辑器
在工程双击你的表名
在代码里输入(不包括-------)
--------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Value = ActiveCell.Value
End Sub
---------------------------------------------------------
上面的代码会在A1里显示鼠标点击单元格的内容,如果要用别的单元格显示,把代码里的A1改成其它单元格地址就可以了追问
能否在详细说一下:如何将此段代码放入表中,比如分多少部骤,A-B-C-D-E-F-G等步骤,谢谢!什么叫“在工程双击你的表名”
追答1-在EXCEL中按Alt+F11打开VBA窗口
2-点击你要操作的表
3-把上面的代码粘贴到代码窗口
4-关闭VBA窗口
谢谢!但是代码放进后,仍然不起作用
追答你新建一个文件再试试
追问谢谢!原来我的文件宏被禁用了,现在取消了,可以用了。谢谢!
本回答被网友采纳需要使用VBA定义工作表事件才可以实现
“鼠标点击某单元格”,意思是,比如点击A3单元格,那么A3单元格的值(假如是“你好!”)就显示在另一单元格(比如A4)里