初学字典，遇到问题

狐狸学Excel

大神，求助。
我刚刚学习字典，想实现这样的效果，要怎么编写代码呢？
情景如下：
有一列数
A
A
B
C
D

我想利用字典，根据这列数，自动生成4个按钮，按钮名称定义为ABCD。

金樽空对月

详见附件，效果如图。

hfwufanhf2006

看不懂你这种思路，字典不是用来干这个的。要自定义按钮，直接用变量就好了，何必用字典？
也没见过谁用字典来定义按钮；

hfwufanhf2006

我光是说说也不行，下面的代码就是用变量来自定义按钮；
按钮的名称在数组arr中，如果是想用单元格来定义按钮，先把单元格的内容写入数组arr就成了：

arr = Array("按钮1", "按钮2", "按钮3", "按钮4", "按钮5", "按钮6")
hs = 1
For i = 0 To UBound(arr)
    Rows(i + 1).RowHeight = 50
    ActiveSheet.Buttons.Add(369, 37.5, 128.25, 63.75).Select
    With Selection
        .Top = Cells(i + 1, 3).Top + 5
        .Left = Cells(i + 1, 3).Left + 5
        .Height = Cells(i + 1, 3).Height - 10
        .Width = 100
        .Characters.Text = arr(i)
       .OnAction = arr(i) & "_click"
    End With
Next i

用的是表单按钮，如果想用active按钮，方法是相同的，代码会有细节差别。并不需要记忆，线录制一个宏你就知道如何修改细节了；

狐狸学Excel

hfwufanhf2006 发表于 2020-7-31 11:00
看不懂你这种思路，字典不是用来干这个的。要自定义按钮，直接用变量就好了，何必用字典？
也没见过谁用字 ...

如果有其他想法，也请指教。
我的想法就是，取唯一项，然后生成对应的按钮。
谢谢。

mnmb

Dim dicBtnName As Object
Set dicBtnName = CreateObject("Scripting.Dictionary")
dicBtnName("A")=""
dicBtnName("A")=""
dicBtnName("B")=""
dicBtnName("C")=""
dicBtnName("D")=""
执行以上5行以后，会得到一个包含4条items的字典，取唯一项了
For Each BtnName In dicBtnName.keys
        用BtnName创建按钮
Next

狐狸学Excel

金樽空对月 发表于 2020-7-31 09:18
详见附件，效果如图。

太感谢你了，学习学习~