excel如何做到鼠标点击某单元格,另一单元格就自动显示鼠标单元格的内容?
“鼠标点击某单元格”,意思是,比如点击A3单元格,那么A3单元格的值(假如是“你好!”)就显示在另一单元格(比如A4)里。谢谢大家的帮忙,谢谢,谢谢,鼠标点击红色区域就好...
“鼠标点击某单元格”,意思是,比如点击A3单元格,那么A3单元格的值(假如是“你好!”)就显示在另一单元格(比如A4)里。
谢谢大家的帮忙,谢谢,谢谢,鼠标点击红色区域就好,点击其他地方G5(绿色框)不要跟着显示,还是显示原来红色里的内容就好。
B7到G10就好,非常感谢。 展开
谢谢大家的帮忙,谢谢,谢谢,鼠标点击红色区域就好,点击其他地方G5(绿色框)不要跟着显示,还是显示原来红色里的内容就好。
B7到G10就好,非常感谢。 展开
6个回答
展开全部
可以 用 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
追问
谢谢谢谢谢谢,就是这样,你好厉害!也谢谢其他几位高手,谢谢你们。终于搞定了。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在G5单元格输入=INDIRECT(CELL("address")),然后点击内容单元格的时候只需要双击,然后在其他地方随意再点一下就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
将下列代码粘贴到宏代码区中。
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
追问
谢谢,做不到我想要的,每次都要输入名字很麻烦,想用鼠标点击谁,就显示谁,不想用输入了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询