关于函数公式问题，不知道用什么公式

起丶风了

关于函数公式问题，不知道用什么公式，请教各位大神，看看我的附件问题

liu2336904

函数没想法，试试VBA吧（新手上路，贴sheet1里面）

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim m, n As Integer
   
3. m = Sheet2.Range("C1").CurrentRegion.Rows.Count
   
4. For n = 2 To m
   
5. If Sheet2.Cells(n, 2).Value = Target.Offset(-1).Value Then
   
6.   Sheet1.Range("L4").Value = Sheet2.Cells(n, 3).Value
   
7.   Exit Sub
   
8.   Else
   
9.   Sheet1.Range("L4").Value = ""
   
10.   End If
    
11.   Next
    
12. End Sub
    

复制代码

函数二把刀

不是公式管理的事情

起丶风了

liu2336904 发表于 2019-10-16 16:54
函数没想法，试试VBA吧（新手上路，贴sheet1里面）

我就是个小白，不会VBA，好像我的VBA也没有打开，不过还是谢谢！

1055751654

我也是新手，写着玩，贴sheet1 里面
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$G$5" Then [L4] = ""
    If Target.Address = "$G$5" Then [L4] = Sheet2.[C2]
If Target.Address = "$G$7" Then [L4] = Sheet2.[C3]
End Sub

1055751654

起丶风了 发表于 2019-10-16 17:32
我就是个小白，不会VBA，好像我的VBA也没有打开，不过还是谢谢！

我来教你怎么玩，

liu2336904

1055751654 发表于 2019-10-16 20:38
我来教你怎么玩，

为什么你录屏的头像和我看到的不一样啊，奇怪

1055751654

liu2336904 发表于 2019-10-17 08:28
为什么你录屏的头像和我看到的不一样啊，奇怪

浏览器没更新吧。你的头像哪找的，好萌