EXCEL表格中VB问题
已于AB列的AB3至AB1610单元格设置数据有效性，值分别为：“请选择”，“你”，“我”，“他”，“你们”，“我们”，“他们”，“其它”。可用鼠标进行选择。现需设置，可...
已于AB列的AB3至AB1610单元格设置数据有效性，值分别为：“请选择”，“你”，“我”，“他”，“你们”，“我们”，“他们”，“其它”。可用鼠标进行选择。
现需设置，可用鼠标进行选择的同时，亦可以用数字进行选择，则于AB3至AB1610单元格中输入0时显示“请选择”（此为默认值）；输入1时，显示“你”；输入2时，显示“我”；其它类推。
求VB程序，谢谢！ 展开
现需设置，可用鼠标进行选择的同时，亦可以用数字进行选择，则于AB3至AB1610单元格中输入0时显示“请选择”（此为默认值）；输入1时，显示“你”；输入2时，显示“我”；其它类推。
求VB程序，谢谢！ 展开
1个回答
展开全部
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 28 Then
If Target.Row >= 3 And Target.Row <= 1610 Then
If Application.WorksheetFunction.IsNumber(Target.Value) Then
Dim s() As String, n As Integer
s = Split(Target.Validation.Formula1, ",")
n = UBound(s)
If Target.Value <= n Then
Target.Value = s(Target.Value)
Else
Target.Value = "No Exsist!"
End If
End If
End If
End If
End Sub
最好 把数据有效性的错误提示关掉
If Target.Column = 28 Then
If Target.Row >= 3 And Target.Row <= 1610 Then
If Application.WorksheetFunction.IsNumber(Target.Value) Then
Dim s() As String, n As Integer
s = Split(Target.Validation.Formula1, ",")
n = UBound(s)
If Target.Value <= n Then
Target.Value = s(Target.Value)
Else
Target.Value = "No Exsist!"
End If
End If
End If
End If
End Sub
最好 把数据有效性的错误提示关掉
更多追问追答
追问
你好，以上不能有效操作，能完整一点吗？
追答
给你个做好的例子吧
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
