问了很长时间问题都没有解决，烦请大神解决问题

奔跑de蜗牛~

如图，现在A列输入700，在B列会自动填入上衣，输入600，会自动填入大衣，但500这个价格有西裤和牛仔裤两个产品，怎样实现在输入500时可以选择填入西裤或者牛仔裤？



跪求，解决方案。

zyhui1961

1.求助要上传附件别人肝更清楚你的意思。
2按你们的描述，前面可以加一个序号列。输入序号后面“自动填入”名称和价格。

grf1973

用工作表事件生成有效性或赋值

mx33917

IF函应该实现不了一个数据，显示两个变量吧。还不如换个思路，把500这个价格西裤和牛仔裤分别计为501，502呢

lkqsmxw

我认为是所提的问题有疑，有本末倒置的味道。物价物价，有物才有价吗。

ykcbf1100

如果每次求助都不上附件，估计要解决问题很难。

奔跑de蜗牛~

ykcbf1100 发表于 2023-3-24 12:38
如果每次求助都不上附件，估计要解决问题很难。

收到，下次一定带附件

咩咩咩2012

grf1973 发表于 2023-3-24 11:28
用工作表事件生成有效性或赋值

思路正确，应该要考虑一次选择多个框框输入的情况

咩咩咩2012

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each mycell In Target.Cells
        If mycell.Column = 1 Then
            DataTarget = mycell.Value2
            If DataTarget = 700 Then
                Cells(mycell.Row, mycell.Column + 1) = "上衣"
            ElseIf DataTarget = 600 Then
                Cells(mycell.Row, mycell.Column + 1) = "大衣"
            ElseIf DataTarget = 500 Then
                With Cells(mycell.Row, mycell.Column + 1).Validation
                    .Delete
                    .Add xlValidateList, , , "西裤,牛仔裤"
                End With
            End If
        End If
    Next
End Sub

咩咩咩2012

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each mycell In Target.Cells
        If mycell.Column = 1 Then
            DataTarget = mycell.Value2
            If DataTarget = 700 Then
                Cells(mycell.Row, mycell.Column + 1) = "上衣"
            ElseIf DataTarget = 600 Then
                Cells(mycell.Row, mycell.Column + 1) = "大衣"
            ElseIf DataTarget = 500 Then
                With Cells(mycell.Row, mycell.Column + 1).Validation
                    .Delete
                    .Add xlValidateList, , , "西裤,牛仔裤"
                End With
            End If
        End If
    Next
End Sub