多级联动菜单的修改

ndt3

多级联动菜单.zip (64.89 KB, 下载次数: 12)

2020-6-13 09:46 上传

点击文件名下载附件

在论坛里找了老师的代码，想修改运用碰到了如下问题：


1、如何更改使用区域（使用行、列的变动怎么去修改代码），如：现在的定位是BC列如何修改为FG列,或者不连续的列（K、N列）？目前的处理方式有问题，会将去掉的那一级单元格清空

2、如何更改级数，目的是从三级变为两级。
麻烦哪位老师讲解一下，或者代码加下注释，实在看不懂

代码请见附件，谢谢各位老师！

YZC51

1、修改为
    arr = Range("省市区数据!b1").CurrentRegion.value
2、修改为
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a(), i
    On Error Resume Next
    If Target.CountLarge = 1 Then
        If Target.Column = 1 Or Target.Column = 6 Or Target.Column = 11 Then
            With Application.CommandBars("myCell")
                .ShowPopup
            End With
        End If
    End If   
End Sub
试试

YZC51

请参考
Public Sub WriteToRng(i, N_col)
    ActiveCell.EntireRow.Cells(1, myc).Resize(1, N_col) = Sheets("省市区数据").Range("A" & i).Resize(1, N_col).value
End Sub

YZC51

试试
多级联动菜单.zip (125.98 KB, 下载次数: 9)

2020-6-13 10:24 上传

点击文件名下载附件

YZC51

多级联动菜单-3级取2级，方便查找！
多级联动菜单-3级取2级.zip (137.59 KB, 下载次数: 23)

2020-6-13 10:32 上传

点击文件名下载附件

ndt3

YZC51 发表于 2020-6-13 10:24
试试

Public Sub WriteToRng(i, N_col)
    ActiveCell.EntireRow.Cells(1, myc).Resize(1, N_col) = Sheets("省市区数据").Range("A" & i).Resize(1, N_col).value
End Sub

谢谢老师，看到控制点了。
上面这段，怎么改可跳开输入，模拟数据分别输入在K、N列中的情况？谢谢！

YZC51

请参考5楼附件多级联动菜单-3级取2级

ndt3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a(), i
    On Error Resume Next
    If Target.CountLarge = 1 And Selection.Row > 2 Then‘控制从第几行开始
    myc = Target.Column
    myh = Target.Count
   
        If myc = 6 Then
            With Application.CommandBars("myCell")
                .ShowPopup
            End With
        End If
    End If
   
End Sub

ndt3

YZC51 发表于 2020-6-13 10:33
请参考4楼附件多级联动菜单-3级取2级

谢谢老师，测试K列选择，区县任然不能偏移到N列中

YZC51

ndt3 发表于 2020-6-13 10:48
谢谢老师，测试K列选择，区县任然不能偏移到N列中

替换下面过程试试

1. Public Sub WriteToRng(i, N_col)
   
2.     If myc = 11 Then
   
3.         ActiveCell.EntireRow.Cells(1, myc).Resize(1, 1) = Sheets("省市区数据").Range("B" & i).Resize(1, N_col).value
   
4.         ActiveCell.EntireRow.Cells(1, myc + 3).Resize(1, 1) = Sheets("省市区数据").Range("C" & i).Resize(1, N_col).value
   
5.     Else
   
6.         ActiveCell.EntireRow.Cells(1, myc).Resize(1, N_col) = Sheets("省市区数据").Range("B" & i).Resize(1, N_col).value
   
7.     End If
   
8. End Sub

复制代码