用VBA写代码即可实现。
详细步骤如下:
1.Alt+F11,打开VBA编辑界面,双击左侧Microsoft Excel对象下的“Sheet1”,确保程序是在sheet1中执行
2.点击下图“通用”右侧的下拉箭头,选择worksheet
3.此时,代码编辑区,自动出现两串代码,如下图所示:
4.补充写上一句代码“Range("h1")=Target.text"
5.关闭VBA界面,返回Sheet1,点击任意单元格,就看到H1的值就等于点击单元格的值
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这个范围才有效。
在工作表单元格选择改变事件里加一句代码:
cells(1,1)=target.text
注:上面的cells(1,1)就是你要显示值的单元格,我这里举例是用A1.LZ的H1就改成cells(1,8)
你请教一下我的老师,他研究OFFICE软件已经好几年了,我估计他知道怎么弄.给你一个QQ号.
455722471
杨老师.