[已解决]单元格内容等于列其中一个单元格运行另一个代码

fcdd

D2设置了有效性选择（数据在A列） 并  设置了输入无效数据是不提示，目的是可以下拉选择也可以手动输入（如图）   

D2单元格内容 等于 A列其中一个单元格  时  运行另一个代码

D2内容 不等于 A列单元格  时  不运行代码 自行随意输入数据

请大侠出手写个小代码，感谢

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-10-13 09:44

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> [d2].Address Then Exit Sub
   
4. Dim rng As Range
   
5. Set rng = Columns(1).Find(Target, lookat:=xlWhole)
   
6. If Not rng Is Nothing Then Call aaa
   
7. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> [d2].Address Then Exit Sub
   
4. Dim rng As Range
   
5. Set rng = Columns(1).Find(Target, lookat:=xlWhole)
   
6. If Not rng Is Nothing Then Call aaa
   
7. End Sub

复制代码

fcdd

大灰狼1976 发表于 2017-10-13 09:44

大侠，现在想改一点点小东西

想把数据放在另一个工作表，在“Sheet2”里 请修改一下··  

大灰狼1976

你的意思是D2单元格和A列单元格不在一张工作表内吗？
change事件必须放在D2单元格所在的工作表，A列数据如果在其他工作表的话，修改下面一句。
Set rng = Sheets("???").Columns(1).Find(Target, lookat:=xlWhole)
当然最好上附件说明，比现在摸黑猜测要快得多。

fcdd

大灰狼1976 发表于 2017-10-13 10:10
你的意思是D2单元格和A列单元格不在一张工作表内吗？
change事件必须放在D2单元格所在的工作表，A列数据如 ...

对不起···因为想在在外面，有平板处理的，不好意思
D2单元格和A列单元格不在一张工作表的
D2单元格在在“Sheet1”
数据A列在在“Sheet2”

大灰狼1976

Set rng = Sheets("Sheet2").Columns(1).Find(Target, lookat:=xlWhole)
change事件放在sheet1内，不过你也没法测试。

fcdd

大灰狼1976 发表于 2017-10-13 10:33
Set rng = Sheets("Sheet2").Columns(1).Find(Target, lookat:=xlWhole)
change事件放在sheet1内，不过你 ...

你已经给我完美解决了···

MRnightf

fcdd 发表于 2017-10-13 10:42
你已经给我完美解决了···

怎么不给他个最佳答案，然后把问题改成已解决