Excel VB 列表框丢失值和文本 属性
Excel VB Listbox losing Value and Text Property
我试图用 2 天的时间解决这个问题，但我还没有找到解决方案。
我的 excel 上有很多列表框，每个列表框都填充了不同的数据，我还使用这些列表框使用 VB 代码在枢轴 table 处更改一些过滤器。
问题是这些列表框在一些使用后停止工作，它们停止获取选定的值。
我发现问题发生后 'Value' 和 'Text' 两个属性已经消失了。要再次使用列表框，我需要关闭 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
此外，我认为这是一个 excel 问题，因为当它发生时，所有工作簿都会受到同样问题的影响。
我看到其中一个列表框填充了一个命名范围，我只是删除了命名范围并手动填充了列表框，这似乎工作正常并且没有给我带来更多问题。
我试图用 2 天的时间解决这个问题，但我还没有找到解决方案。 我的 excel 上有很多列表框，每个列表框都填充了不同的数据，我还使用这些列表框使用 VB 代码在枢轴 table 处更改一些过滤器。
问题是这些列表框在一些使用后停止工作，它们停止获取选定的值。 我发现问题发生后 'Value' 和 'Text' 两个属性已经消失了。要再次使用列表框，我需要关闭 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
此外，我认为这是一个 excel 问题，因为当它发生时，所有工作簿都会受到同样问题的影响。
我看到其中一个列表框填充了一个命名范围，我只是删除了命名范围并手动填充了列表框，这似乎工作正常并且没有给我带来更多问题。