这个程序为啥不行？谢谢

梵蒂冈2022

目的：当在下拉列表中选择某个值，然后其他单元格出现某值
因为其他单元格有可能要手输值，所以不能用EXCEL公式，希望用VBA搞定，谢谢

自己编了一个，但是不起作用
Sub iftt()
If Sheet1.Range("A1").Value = "0" Then Sheet1.Range("B1").Value = "NO号"
End Sub

野蠻農民

没明白啥意思

梵蒂冈2022

搞定了

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub '不是A1单元格，退出程序
    If Target.Value = "上海" Then
        [B1] = "A1"
        [B2] = 1
        [B3] = 10
    End If
End Sub

jaxxcyh

你的程序无触发事件，所以不运行。应将程序放置在sheet1表的Worksheet_Change事件里才行。

582766

点击事件 判断区域就好了