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

咩咩咩2012

咩咩咩2012 发表于 2023-3-24 12:56
思路正确，应该要考虑一次选择多个框框输入的情况

优化下
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

奔跑de蜗牛~

咩咩咩2012 发表于 2023-3-24 13:06
Private Sub Worksheet_Change(ByVal Target As Range)
    For Each mycell In Target.Cells
        If ...

感谢分享，这个东西我要怎么用呢   不会使用

全党

奔跑de蜗牛~ 发表于 2023-3-24 16:35
感谢分享，这个东西我要怎么用呢   不会使用

在工作表标签上右键，选查看代码，把代码复制到窗口，退出保存为包含宏的工作薄就好了。

咩咩咩2012

奔跑de蜗牛~ 发表于 2023-3-24 16:35
感谢分享，这个东西我要怎么用呢   不会使用

给你个附件，要写在第一列，不包含第1行就好了