Excel VB列表框丢失值和文本属性

Question

我试图在2天内解决这个问题，但我找不到解决方案。 我的excel上有很多列表框，每个列表框都填充了不同的数据，我也使用这些列表框来使用VB代码在数据透视表中更改一些过滤器。

问题是，在某些使用后，这些列表框停止工作，它们会停止获取所选的值。 我发现问题发生后，“价值”和“文字”两个属性已经消失。要再次使用列表框，我需要关闭excel并再次打开它，如果我尝试保存工作簿，它也会停止工作。

我试图带一些它的图像，但我还没有声誉。

谁能帮帮我？

更新

以下是图片：

以下是列表框背后的代码（所有列表框都有类似的代码）：

If ListFaturaFatura.List(ListFaturaFatura.ListIndex) = "Total" Or _
ListFaturaFatura.List(ListFaturaFatura.ListIndex) = "" Then
    Sheets("Fatura_Data").PivotTables("DinamicaFatura1").PivotFields("FATURA").ClearAllFilters
Else
    Sheets("Fatura_Data").PivotTables("DinamicaFatura1").PivotFields("FATURA").CurrentPage = _
    ListFaturaFatura.List(ListFaturaFatura.ListIndex)
End If

另外，我认为这是一个很好的问题，因为当它发生时，所有工作簿都会遇到同样的问题。

Answer 1

我看到其中一个列表框中填充了一个命名范围，我只是删除了命名范围并手动填充了列表框，这似乎工作正常，并没有给我更多问题。