急！求助：如何实现点击表一种某一单元格自动跳转到表二指定的单元格

梦远方

比如点击表一的某一个姓名，自动跳转到表二的B4单元格，并且将点击的单元格姓名赋值给B4

山菊花

供参考。

梦远方

山菊花 发表于 2018-7-27 21:29
供参考。

谢谢！！你好棒！

梦远方

山菊花 发表于 2018-7-27 21:29
供参考。

请再帮忙看下，我把代码复制到了表里，但是点击没有反应，想要实现点击D列的某一单元个，自动跳转到调拨明细单D3单元格，并赋值

山菊花

梦远方 发表于 2018-7-29 11:42
请再帮忙看下，我把代码复制到了表里，但是点击没有反应，想要实现点击D列的某一单元个，自动跳转到调拨 ...

梦远方

山菊花 发表于 2018-7-29 11:54

还是不太明白~改了以后出现错误，显示，无限制符
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cXM$
    If Target.Row < 4 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    cXM = Target.Row.Value
    If cXM = "" Then Exit Sub
    Sheet7.Range("D3").Value = cXM
    Sheet7.Activate
    Sheet7.Range("D3").Activate
End Sub

山菊花

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim cXM$
     If Target.Row < 5 Or Target.Column <> 4 Then Exit Sub
     If Target.Count > 1 Then Exit Sub
     cXM = Target.Value
     If cXM = "" Then Exit Sub
     Sheet7.Range("D3").Value = cXM
     Sheet7.Activate
     Sheet7.Range("D3").Activate
End Sub

梦远方

山菊花 发表于 2018-7-30 09:40
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim cXM$
     If Target.Row < 5  ...

非常感谢您帮我解决了问题。

lsdongjh

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     Dim strName As String
   
3.     If Sh.Name = "Sheet1" Then
   
4.         If Target.Count > 1 Then Exit Sub
   
5.         If Target.Column <> 2 Then Exit Sub
   
6.         If Target.Row < 5 Then Exit Sub
   
7.         
   
8.         strName = Target.Value
   
9.         With Sheets("Sheet2")
   
10.             .Activate
    
11.             .Range("B4").Select
    
12.             .Range("B4").Value = strName
    
13.         End With
    
14.     End If
    
15. End Sub

复制代码

梦远方

lsdongjh 发表于 2018-7-31 13:30

不太明白  为什么COUNT要>1,ROW 要<5