您好，想请问一下，多级联动下拉菜单您会修改吗，谢谢
使用的文件名是：“数据” 六级菜单数据源另外一个工作表的相同位置，
设置下拉六级联动选项（P -U），根据P依次显示下级菜单并一次性选择完毕，代码如下，之前可以用，就是位置重新变动了，被我调了一下就不能用了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a(), i
On Error Resume Next
If Target.Count = 1 Then
If Target.Column = 16 Then
With Application.CommandBars("myCell")
.ShowPopup
End With
ElseIf Target.Column <= 18 And Target.Column >= 17 Then
ReDim a(0 To Target.Column - 2)
For i = 2 To Target.Column
If Cells(Target.Row, i - 1) <> "" Then
a(i - 2) = Cells(Target.Row, i - 1)
End If
Next
Call SubPopBar(a)
End If
End If
End Sub
1级 2级 3级 4级 5级 6级
罗马 有线 内688 白 流 AA1
罗马 无线 内698 黑 A2 AA1
罗马 有线 外254 白 A3 AA1
罗马 有线 内255 白 A4 AA2
罗马 有线 内256 黑 A5 AA2
罗马 有线 外257 黑 A6 AA2
罗马 有线 外258 白 A7 AA3
罗马 有线 内259 黑 A8 AA3
罗马 有线 外260 白 A9 AA3
罗马 有线 内261 白 A1 AA3
林加 无线 内698 黑 B1 BB1
林加 无线 外688 白 B1 BB1
林加 无线 内688 黑 B2 BB1
林加 无线 外689 黑 B3 BB2
林加 无线 内689 白 B4 BB3
林加 有线 内254 红 C1 BB4
欧来 无线 外254 蓝 D1 CC1
欧来 无线 内254 黑 D2 CC2
欧来 无线 内698 白 D3 CC3
由于不知道具体的调用设计，仅从表面看：
1 当选取P列的某一单元格时，弹出.CommandBars("myCell")；
2 当选取Q、R列的某一单元格时，以该行在该列之前所有单元格的当前值[注入a后]，调用SubPopBar(a)，应该内里会处理返回复制的事项吧？
问题一：2中是否要处理P-U列？还是现在的仅有Q、R列？
也就是 <=18 和 >=17是否需要修改？
问题二：语法上，Next 应为 Next i
下一篇：css的浮动受到限制，用overflow:hidden无效
上一篇：c语言题目