曾经的回帖整理-字典案例部分

logochen

学习收藏了

EH458059147

liulang0808 发表于 2017-12-18 08:46
二级菜单级联

二级数据有效性，如果我要把A列和B列分别移到F列和G列，要这么该代码

这是你的代码帮忙说一下该那些，还有能用VBA做个三级数据有效性吗，先谢谢了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    arr = Sheets(2).UsedRange
    Set d = CreateObject("scripting.dictionary")
    For j = 2 To UBound(arr)
        If Len(arr(j, 1)) > 0 Then
            str1 = arr(j, 1)
        End If
        d(str1) = d(str1) & "," & arr(j, 2)
    Next j
    If Target.Column = 1 Then
        If Target.Row > 2 Then
            With Target.Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:=Join(d.keys, ",")
            End With
        End If
    Else
        If Target.Column = 2 Then
            If Target.Row > 2 Then
            If d.exists(Cells(Target.Row, 1).Value) Then
                With Target.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:=Mid(d(Cells(Target.Row, 1).Value), 2)
                End With
            End If
        End If
        End If
    End If
End Sub

hjg8822

谢谢版主。辛苦了，这实用。

VBA之恋

liulang0808 发表于 2017-12-18 15:42

你好，凑数递归是起什么作用的？水平有限，光看代码看不出作用来

VBA之恋

VBA之恋 发表于 2019-9-8 16:22
你好，凑数递归是起什么作用的？水平有限，光看代码看不出作用来

是呀是呀，仔细看一下，是这样的，用A列上的数据，来组成某个数字的组合，有实际用途呀

wizard0320

liulang0808 发表于 2017-12-17 19:50

正是我需要的东西感谢！

wizard0320

liulang0808 发表于 2017-12-17 19:50

有几个问题怎么解决
1.每按一次按钮，数据就拆分一次，标签中的数据都重复了。
2.以地二列数据为条件进行拆分，分表中数据跑到了第一列，第一列原来的数据消失。
3.增加列数后，增加的数据没有进行拆分，我试着改了一下，没有成功。

版主有空的话帮忙看看，谢谢！

guski216

留个印记，留个印记，

blueskylljj

学习收藏了!!!

yes363001640

太强大的教程，留个记录慢慢学