vba如果编写当A1单元格数值在50到500范围时B1显示超市

小年玩卡

vba如果编写当A1单元格数值在50到500范围时B1显示超市！
A1时变量，应用中一直是到A50对应b列也是一样。
文字意思如下：
当50<A1<500时B1显示超市
当200<A1<800时B1显示酒店
......
如果A1=300,那么B1就应该显示 超市，酒店

这个能用vba实现吗？
求助大神

shizhe80

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Row < 51 And Target.Column = 1) Then
For i = 1 To 50
If Range("a" & i) = 300 Then
Range("b" & i) = "超市，酒店"
Else
If Range("a" & i) > 50 And Range("a" & i) < 500 Then
Range("b" & i) = "超市"
Else
If Range("a" & i) > 499 And Range("a" & i) < 800 Then
Range("b" & i) = "酒店"
End If
End If
End If
Next
End If
End Sub

蓝桥玄霜

请见代码。
看用工作表变化事件来实现。

小年玩卡

shizhe80 发表于 2018-9-14 11:06
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Row < 51 And Target.Colum ...

感谢，这个问题是解决了，看看我自己能否更改成自己想要的