点击某个区域，根据某个内容分配到不同的地方

rayhen

单击 J4:J14 处的区域

1. 决定的关键是K2单元格，如果K2单元格是angleway，点击的内容会复制到A20单元格
2. 决定的关键是K2单元格，如果K2单元格是straightway，则点击的内容会复制到E20单元格

不是全部，只有点击才算

任何帮助，将不胜感激！

iu950

附件供参考。。。。。。

ykcbf1100

用工作表事件就可以吧。

niko88819

猜想楼主意图,是这意思才对

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. Range("A19", "E19").ClearContents
   
3.     Dim r As Range
   
4.     If Intersect(Target, [j4:j14]) Is Nothing Then Exit Sub
   
5.     Set r = IIf([k2] = "angleway", [a19], IIf([k2] = "straightway", [e19], Nothing))
   
6.     If Not r Is Nothing Then r = Target.Text
   
7. End Sub

复制代码

1. 
   

复制代码

rayhen

niko88819 发表于 2023-3-2 15:55
猜想楼主意图,是这意思才对

老师您超级棒棒棒