excel如何做到鼠标点击某单元格,另一单元格就自动显示鼠标单元格的内容?

“鼠标点击某单元格”,意思是,比如点击A3单元格,那么A3单元格的值(假如是“你好!”)就显示在另一单元格(比如A4)里。谢谢大家的帮忙,谢谢,谢谢,鼠标点击红色区域就好... “鼠标点击某单元格”,意思是,比如点击A3单元格,那么A3单元格的值(假如是“你好!”)就显示在另一单元格(比如A4)里。
谢谢大家的帮忙,谢谢,谢谢,鼠标点击红色区域就好,点击其他地方G5(绿色框)不要跟着显示,还是显示原来红色里的内容就好。
B7到G10就好,非常感谢。
展开
 我来答
鱼木混猪哟
高粉答主

2018-07-05 · 专注Office,尤其Excel和VBA
鱼木混猪哟
采纳数:6078 获赞数:33683

向TA提问 私信TA
展开全部

用VBA写代码即可实现。


详细步骤如下:

1.Alt+F11,打开VBA编辑界面,双击左侧Microsoft Excel对象下的“Sheet1”,确保程序是在sheet1中执行

2.点击下图“通用”右侧的下拉箭头,选择worksheet

3.此时,代码编辑区,自动出现两串代码,如下图所示:

4.补充写上一句代码“Range("h1")=Target.text"

5.关闭VBA界面,返回Sheet1,点击任意单元格,就看到H1的值就等于点击单元格的值

ExcelPower
2016-04-27 · 专业Excel公式图表数据分析VBA
ExcelPower
采纳数:4495 获赞数:11859

向TA提问 私信TA
展开全部

可以 用 VBA  Selecte change 事件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Set isect = Application.Intersect(Target, Range("B7:G10"))
 If Not (isect Is Nothing) Then [g5] = Target
End Sub
追问
谢谢谢谢谢谢,就是这样,你好厉害!也谢谢其他几位高手,谢谢你们。终于搞定了。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
我是你昜哥哥
2019-05-07
知道答主
回答量:16
采纳率:0%
帮助的人:1.1万
展开全部
在G5单元格输入=INDIRECT(CELL("address")),然后点击内容单元格的时候只需要双击,然后在其他地方随意再点一下就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
tcmcz
2016-04-27 · TA获得超过3492个赞
知道大有可为答主
回答量:3744
采纳率:73%
帮助的人:1048万
展开全部

将下列代码粘贴到宏代码区中。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 5 And Target.Column = 7 Then Exit Sub
    If Target.Row >= 7 And Target.Row <= 10 And Target.Column >= 2 And Target.Column <= 7 Then
        Range("G5") = Target.Value
    End If
End Sub
更多追问追答
追问
你这个代码很好,但是我只要部分区域的,就是说你这个代码不论我点击哪里,A4就会显示哪里,我想要只是鼠标点击B7到G10里的任意格A4就显示鼠标所选的,当鼠标选择B7到G10以外的单元格是A4就不用跟着显示了,保持刚才所选的B7到G10的内容就好了,请问这可以吗?
追答

我已修改:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Row = 5 And Target.Column = 7 Then Exit Sub

    If Target.Row >= 7 And Target.Row <= 10 And Target.Column >= 2 And Target.Column <= 7 Then

        Range("B4") = Target.Value

    End If

End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
快乐世纪冰河
2016-04-27 · TA获得超过2894个赞
知道小有建树答主
回答量:1455
采纳率:60%
帮助的人:672万
展开全部
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 2 And Target.Column <= 5 Then
r = Range("G" & Rows.Count).End(xlUp).Row
If r = 1 Then Exit Sub
If Target.Column = 1 Then Cells(r, "h") = Target.Value
If Target.Column = 2 Then Cells(r, "h") = Target.Value
If Target.Column = 3 Then Cells(r, "i") = Target.Value
If Target.Column = 4 Then Cells(r, "j") = Target.Value
If Target.Column = 5 Then Cells(r, "k") = Target.Value
End If
End Sub
追问
谢谢,做不到我想要的,每次都要输入名字很麻烦,想用鼠标点击谁,就显示谁,不想用输入了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式