假设我指定的单元格为H1;
当鼠标点击A1时,H1就自动显示A1的内容;
当鼠标点击C6时,H1就自动显示C6的内容;
当鼠标点击B15时,H1就自动显示B15的内容。
亲高手指教~~~!
ç¨VBAå代ç å³å¯å®ç°ã
详ç»æ¥éª¤å¦ä¸ï¼
1.Alt+F11ï¼æå¼VBAç¼è¾çé¢ï¼åå»å·¦ä¾§Microsoft Excel对象ä¸çâSheet1âï¼ç¡®ä¿ç¨åºæ¯å¨sheet1ä¸æ§è¡
2.ç¹å»ä¸å¾âéç¨âå³ä¾§çä¸æç®å¤´ï¼éæ©worksheet
3.æ¤æ¶ï¼ä»£ç ç¼è¾åºï¼èªå¨åºç°ä¸¤ä¸²ä»£ç ï¼å¦ä¸å¾æ示ï¼
4.è¡¥å åä¸ä¸å¥ä»£ç âRange("h1")=Target.text"
5.å ³éVBAçé¢ï¼è¿åSheet1ï¼ç¹å»ä»»æåå æ ¼ï¼å°±çå°H1çå¼å°±çäºç¹å»åå æ ¼çå¼
温馨提示:答案为网友推荐,仅供参考
第1个回答 2009-12-29
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If targetrow < 21 And Target.Column < 8 Then
Range("h1") = Cells(Target.Row, Target.Column)
End If
End Sub
Alt+F11,双击Sheet1,将上面代码粘贴到右边的框里。
这段代码限定了范围,即只有点到A1:G20这个范围才有效。本回答被提问者采纳
If targetrow < 21 And Target.Column < 8 Then
Range("h1") = Cells(Target.Row, Target.Column)
End If
End Sub
Alt+F11,双击Sheet1,将上面代码粘贴到右边的框里。
这段代码限定了范围,即只有点到A1:G20这个范围才有效。本回答被提问者采纳
第2个回答 2009-12-30
在工作表单元格选择改变事件里加一句代码:
cells(1,1)=target.text
注:上面的cells(1,1)就是你要显示值的单元格,我这里举例是用A1.LZ的H1就改成cells(1,8)
cells(1,1)=target.text
注:上面的cells(1,1)就是你要显示值的单元格,我这里举例是用A1.LZ的H1就改成cells(1,8)
第3个回答 2009-12-29
你请教一下我的老师,他研究OFFICE软件已经好几年了,我估计他知道怎么弄.给你一个QQ号.
455722471
杨老师.
455722471
杨老师.