execl下拉框选择两列，显示单列vba源码

时间：2019-11-05 09:15:11 阅读：86 评论：0 收藏：0 [点我收藏+]

标签：The nts resume htm targe 参考 col events sheet

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row > 1 And Target.Row < 10 And Target.Column = 5 And Target <> "" Then
‘1表示下拉列表从1行下面开始，10表示下拉列表到第10行；开始5是下拉列表所在的列数
Application.EnableEvents = False
Target = Split(Target, " ")(0)
‘显示第1列用0，第2列用1，以此类推
Application.EnableEvents = True
End If
End Sub

参考：http://www.360doc.com/content/19/0222/20/30583536_816845809.shtml

标签：The nts resume htm targe 参考 col events sheet

原文地址：https://blog.51cto.com/gt520/2447762

踩

(0)

评论一句话评论（0）