主题：刷新导致表格左右滚动

 

假如使用这个代码

 

dim a as single =Tables("员工").LeftVisibleCol

 

Tables("员工").refresh

 

Tables("员工").LeftVisibleCol=a

 

假如表格列很多，很宽，我拖动查看表格，正好第十列只显示出一半，这时，我用以上代码进行刷新，会使第十列完全显示出来，表格左右还是会动？请问这怎么解决？

这个没有办法，肯定会动一下

我把刷新取消了，但有时操作鼠标   当前行发生变化时，表格左右也会滚动一下  是怎么回事？

 

我上传了问题视频，鼠标点第二下时，左右发生了滚动.

 

而且并不是每次都这样，只是有时会这样，

 

为了排查问题，currentcolchanged代码已经清空

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:123.rar

 

 

是不是设置了自动列宽？

没设置，单击也不会触发自动列宽吧

 

我又录了1个视频，鼠标点击第一下和第三下都设置了代码，表格动是正常的，

 

鼠标在表格中点击第二下，表格又左右动，动看滚动条的特别明细，这个不能理解

 

而类似的情况，点第四下却没动

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:456.rar

看不出是什么原因。请上传实例测试

我这样解决了，

 

因为我发现点击  “喷漆”，运行完代码，表的显示列发生变化，此时点击其他行的单元格则可能(不是每次都这样)发生左右滚动，但若点击本行的单元格，则不会左右滚动，此后再随便点击单元格也不会左右滚动了，

所以我让代码先帮我点击选中本行的其他的单元格，这样就可以了。

Dim a,b As Integer

With Tables("表A")

    .LeftVisibleCol = .Cols("喷漆").Index

a =.position

b =.Cols("喷漆").Index

End With

 

Tables("表A").Select(a,b)

 

Tables("表A").Select(a,b+1)

 

但具体原因没弄清楚，不知道是不是BUG。

这个我很久之前就反馈过  官方给的建议也是代码选择  但是体验非常不好

我也遇到了相类似的问题，在每次查询完后，table列比较多，窗口无法全部显示，当拉到最右边列时，点击不同的行，表格就会自动跳到最左边。