[已解决]Excel表格内下拉菜单的默认显示选项不随源数据更改刷新如何解决？

ihjmh

  无法上传相关文件或者图片，有朋友提供了以下代码，经测试没有效果。
  实在是无法解决这个问题，点击下拉菜单选项都已经更新，偏偏默认显示是旧的数据，领导催的急，我实在无能为力了,请各位大神帮帮我


eg:   A1单元格为下拉菜单所在， B1：B3为源数据[1，2，3]，当源数据全部更新为[4，5，6]后，A1仍旧显示[1]，问：能否在事件里面用VBA做一个自动刷新，使得A1显示的内容随着源数据变化而变化？
      
     百度的答案根本没人看懂问题，之前的帖子也没有解决，请各位大神帮我看看到底怎么处理



@文轩馨婷 提供的代码，调试后发现不能刷新
Sub 刷新数据()
    row1 = Sheets("Summary").Range("Q65536").End(xlUp).Row  '“送货明细表”是源数据所在表，“a65536”是源数据所在的列
    Arr1 = Sheets("Summary").Range("Q3:Q" & row1)
    Set D = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(Arr1)
        If Not D.Exists(Arr1(i, 1)) Then
            D.Add Arr1(i, 1), ""
        End If
    Next
    s = Join(D.KEYS, ",")
    With Range("I28:I28").Validation             'B5:B5"是所下拉的单元格
        .Delete
        .Add Type:=xlValidateList, _
             AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, _
             Formula1:=s
    End With
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2015-5-19 13:53

测试过，代码没错！可能是其他原因，例如：保护了、合并单元格了.......
不传附件无法分析！

跳转到最佳答案楼层

zjdh

代码取值是Q列，赋值到I28，怎么会改变B5的数据呢？？！！

ihjmh

zjdh 发表于 2015-5-19 13:03
代码取值是Q列，赋值到I28，怎么会改变B5的数据呢？？！！
你根本看不懂代码！！

他原来的是改变B5的数据。

我的函数就是要取Q列，改变I28的值。  那个注释是他原来的，我没有改

zjdh

测试过，代码没错！可能是其他原因，例如：保护了、合并单元格了.......
不传附件无法分析！

ihjmh

zjdh 发表于 2015-5-19 13:53
测试过，代码没错！可能是其他原因，例如：保护了、合并单元格了.......
不传附件无法分析！

确实是修改了，我查看数据有效性，发现也是换成了新序列。但是下拉菜单还是默认显示原来旧的数据，所以我也很纳闷

ihjmh

zjdh 发表于 2015-5-19 13:03
代码取值是Q列，赋值到I28，怎么会改变B5的数据呢？？！！
你根本看不懂代码！！

我现在遇到一个问题  Range("Q65536") 里面的Q 是一个变量a，意思每次a 的值都不一样，这次是14，下次是15，应该如何写这个公式？

Range("Q3:Q" & row1) 里面的Q 又如何用a替代呢？
谢谢大神

zjdh

Range(Cells(3,a),Cells(row1,a))