关于数字之间带连线，如何实现？

最初的梦想168 · 发表于 2024-9-5 16:36

老师好：
这个连线问题困扰我很久了，今天终于鼓足勇气在论坛来求助老师。看用公式还是vba来实现该功能？

a2到j2是一个表，m2到v2是一个表，一行有3个数字的背景色是红色的，我需要的效果是上期的3个红色格子按顺序和本期的3个红色格子用连线连起来，例如：特别注意：a2行红色格子是109，a3行是321， a2行的1与a3行的3相连线，也就是第一位与第一相连，第二位和第二位相连，第三位与第三位相连，就想附件效果一样。

老师有办法不？谢谢啦

求助202409.rar (33.64 KB, 下载次数: 17)

最初的梦想168 · 发表于 2024-9-5 17:32

在线等。。。。。

饮冰e士 · 发表于 2024-9-5 17:35

这是个趣味题目

分别获取单元格位置，然后插入图形直线？感觉好繁琐

micch · 发表于 2024-9-5 21:41

Sub Main()
ReDim ar(2 To 17, 1 To 10)
With Sheet1
For i = 2 To 17
k = 0
For j = 1 To 10
If .Cells(i, j).Interior.Color = 255 Then
k = k + 1
ar(i, k) = j
End If
Next
Next
For j = 1 To 10
For i = 2 To 16
If ar(i, j) > 0 Then
If ar(i + 1, j) > 0 Then
.Shapes.AddConnector msoConnectorStraight, _
.Cells(i, ar(i, j)).Left + .Cells(i, ar(i, j)).Width / 2, _
.Cells(i, ar(i, j)).Top + .Cells(i, ar(i, j)).Height / 2, _
.Cells(i + 1, ar(i + 1, j)).Left + .Cells(i + 1, ar(i + 1, j)).Width / 2, _
.Cells(i + 1, ar(i + 1, j)).Top + .Cells(i + 1, ar(i, j)).Height / 2
Else
Exit For
End If
Else
Exit For
End If
Next
Next
End With
End Sub

复制代码

醉眼看尘世 · 发表于 2024-9-5 22:14

有种是利用折线图来制作的。
我这种就比较生硬，利用代码画线生成
附件你可以看看有没有用

GG函数 · 发表于 2024-9-5 23:46

后面我将该需求，直接加到我的【Ex Tool 3.7.xla】里，开发完成后，可永久免费使用

GG函数 · 发表于 2024-9-6 01:17

开发完成，原帖 https://club.excelhome.net/threa ... tml?_dsign=68af108c

最初的梦想168 · 发表于 2024-9-6 07:50

GG函数发表于 2024-9-6 01:17
开发完成，原帖 https://club.excelhome.net/thread-1691237-1-1.html?_dsign=68af108c

谢谢你，谢谢！！

最初的梦想168 · 发表于 2024-9-6 07:51

micch 发表于 2024-9-5 21:41

thank you！！

最初的梦想168 · 发表于 2024-9-6 07:53

醉眼看尘世发表于 2024-9-5 22:14
有种是利用折线图来制作的。
我这种就比较生硬，利用代码画线生成
附件你可以看看有没有用

您的这个思路只适合固定数字的，比如从0-9固定的走势，我这个需求是有点复杂不是固定的，也学到很多东西谢谢啦

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

[求助] 关于数字之间带连线，如何实现？

评分