有关Excel中VB自定义函数的问题

来源：百度知道编辑：UC知道时间：2024/06/13 02:42:47

想设一个这样的条件，如果电话号码为2230000-2230999属白田，2231000-2231999为属田，2232000-2232999属万县，等等这样的条件，设一个自定义函数，只要符合中间的任一条件就能自动把后面的所属镇区选出来，这样该怎么编写这个函数呢
先谢谢各位高手了

假如A1为填写电话号码,B1为显示所属区,在Worksheet的SelectionChange代码如下:(可以参考下面附图)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("a1") >= 2230000 And Range("a1") <= 2230999 Then

Range("b1") = "白田"

ElseIf Range("a1") >= 2231000 And Range("a1") <= 2231999 Then

Range("b1") = "田"

ElseIf Range("a1") >= 2232000 And Range("a1") <= 2232999 Then

Range("b1") = "万县"

Else: Range("b1") = ""

End If

End Sub