对指定区域内显示的数据按从左到右、从上到下的顺序连线

WYS67 · 发表于 2019-3-16 18:35

本帖最后由 WYS67 于 2019-3-16 18:37 编辑

chxw68 发表于 2019-3-16 17:29
我把代码调整了一下，你再试试。

把代码粘贴在另一个一位数的工作表里，仍然显示的是双并线。还真是邪门！

chxw68 · 发表于 2019-3-16 19:13

WYS67 发表于 2019-3-16 18:35
把代码粘贴在另一个一位数的工作表里，仍然显示的是双并线。还真是邪门！

你加我QQ1025348239，我远程看看。

WYS67 · 发表于 2019-3-16 19:21

chxw68 发表于 2019-3-16 17:29
我把代码调整了一下，你再试试。

老师：我已找到原因：上边显示双并线的两个表格，是我从网上下载的，里面都隐藏有可以网抓数据的代码。估计是与您写的代码有冲突的缘故。我把代码粘贴在没有隐藏代码的工作表里，显示了正常的单实线。

再次感谢您的帮忙！祝您周末愉快！

chxw68 · 发表于 2019-3-16 19:27

WYS67 发表于 2019-3-16 19:21
老师：我已找到原因：上边显示双并线的两个表格，是我从网上下载的，里面都隐藏有可以网抓数据的代码。估 ...

问题解决了就好。

WYS67 · 发表于 2019-3-18 12:13

本帖最后由 WYS67 于 2019-3-18 12:44 编辑

chxw68 发表于 2019-3-16 17:29
我把代码调整了一下，你再试试。

老师：《总表》中还有几个sub过程的按钮。每次点击【清除画线】按钮时，总是会把那几个按钮误清除掉。

还得麻烦您设置为：

让代码只能清除T1:T2指定区域内的画线，不伤及区域外的任何按钮。

新建 Microsoft Excel 工作表.zip (596.39 KB, 下载次数: 5)

Sub 清除画线()
  With Worksheets("总表")
For Each shp In .Shapes
   If shp.Type = 1 Then
      shp.Delete
   End If
Next
  End With
End Sub

WYS67 · 发表于 2019-3-18 12:28

chxw68 发表于 2019-3-16 17:29
我把代码调整了一下，你再试试。

我又新添加了截图。从截图上可以看出，只要点击【清除画线】按钮，左上边的三个按钮就会被清除。

chxw68 · 发表于 2019-3-18 12:59

修改好了。

WYS67 · 发表于 2019-3-18 13:28

chxw68 发表于 2019-3-18 12:59
修改好了。

谢谢老师不厌其烦的帮忙！

yingshao · 发表于 2023-5-28 10:54

chxw68 发表于 2019-3-18 12:59
修改好了。

老师，您好，有偿请求您的Excel帮助，谢谢！qq:571639636

		自动登录	找回密码
密码			免费注册

[求助] 对指定区域内显示的数据按从左到右、从上到下的顺序连线

评分

评分