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

刷新有时会使表格左右滚动以下，这个怎么消除掉？，刷新时让表格不动

你的意思是，不是刷新直接导致的表格滚动，而是刷新后数据变化导致的表格滚动？

对 是table.refresh？

对 这个怎么避免? 闪烁没关系  能回到原来刷新前的位置也可以

table.position的值能是小数吗 有时列比较宽，只显示部分，这样刷新后只能回到这列的前一列的位置

 

 

 

 

假如使用这个代码

 

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。