数据组合不能点击了，不知是不是VBA代码有冲突，求大神帮助检查一下

lk710618

各位老师好，我做的一个项目跟进表中，突然数据组合的 “+” 号不能点击了，一旦点击，Excel就会假死，无法进行任何操作，甚至关闭都关不了，我不知道是不是里面的VBA代码有冲突，还是什么原因，想烦请路过的大神帮我检查一下，感谢感谢

feilang01

1.   Application.ScreenUpdating = False '//关闭屏幕刷新
   
2.     Application.DisplayAlerts = False '//关闭系统提示
   
3.     Application.EnableEvents = False  '//禁止触发其他事件
   
4.     Application.StatusBar = True   '关闭系统状态条
   
5.   
   
6.   '程序过程
   
7.   
   
8.     Application.ScreenUpdating = True '//恢复屏幕刷新
   
9.     Application.DisplayAlerts = True '//恢复系统提示
   
10.     Application.EnableEvents = True  '//  '//恢复触发其他事件
    
11.     Application.StatusBar = False   '恢复系统状态条

复制代码

lk710618

feilang01 发表于 2024-6-17 10:36

感谢帮助

请问一下，你这段代码放在哪里呢？我原表中是哪里出现了问题，导致这样结果的？

LIUZHU

Office本身的问题吧，我用WPS打开测试，没发现有什么卡顿的情况。

taller

Excel 365测试并没有出现你说的问题，楼主换个电脑测试一下

lk710618

LIUZHU 发表于 2024-6-17 11:21
Office本身的问题吧，我用WPS打开测试，没发现有什么卡顿的情况。

我一直用的是OFFICE，暂时也不想换，其他很多表中都有数据组合，从来也没有这种情况出现，就这一个表持续有这个问题，搞不清楚哪里出了问题了

LIUZHU

lk710618 发表于 2024-6-17 11:26
我一直用的是OFFICE，暂时也不想换，其他很多表中都有数据组合，从来也没有这种情况出现，就这一个表持续 ...

建议重装下Offie试试

lk710618

LIUZHU 发表于 2024-6-17 11:55
建议重装下Offie试试

太奇怪了，即便是现在所有其他表，这个数据组合功能也是可以正常使用的，行列都很正常，就这一个表中行组合的这个不能用了，列的还是可以正常打开与折叠，这到底是什么鬼呀，

lk710618

LIUZHU 发表于 2024-6-17 11:55
建议重装下Offie试试

我试着把数据组合区域内的公式全部删除掉后，数据组合功能可以正常折叠和打开了，真实奇怪，是公式影响了数据组合功能？看来我这种菜鸟是没法找到具体原因了

feilang01

lk710618 发表于 2024-6-17 10:44
感谢帮助

请问一下，你这段代码放在哪里呢？我原表中是哪里出现了问题，导致这样结果的？

1. Sub tt()
   
2.     Application.ScreenUpdating = False '//关闭屏幕刷新
   
3.     Application.DisplayAlerts = False '//关闭系统提示
   
4.     Application.EnableEvents = False  '//禁止触发其他事件
   
5.     Application.StatusBar = True   '关闭系统状态条
   
6.     Application.Calculation = xlCalculationManual       '手动重算
   
7.    
   
8.     '代码过程放这里
   
9.    
   
10.     Application.Calculation = xlCalculationAutomatic    '自动重算
    
11.     Application.ScreenUpdating = True '//恢复屏幕刷新
    
12.     Application.DisplayAlerts = True '//恢复系统提示
    
13.     Application.EnableEvents = True  '//  '//恢复触发其他事件
    
14.     Application.StatusBar = False   '恢复系统状态条
    
15. End Sub
    

复制代码

公式太多，关闭自动计算和屏幕刷新 对速度有效果提升。