怎样让有颜色填充的单元格用相同的颜色线条连起来？

一点不自在

怎样让有颜色填充的单元格用相同的颜色线条连起来？ 怎样用线条连接起来2.rar (15.32 KB, 下载次数: 21)

2013-3-20 18:55 上传

点击文件名下载附件

蓝桥玄霜

1. Private Sub CommandButton1_Click()
   
2. Dim lr1, lc1 As Long, Arr, i&, j&, aa(), bb(), cc(), X&, Y&, z&, ys(1 To 3)
   
3. ys(1) = 12: ys(2) = 10: ys(3) = 23
   
4. With Sheet1
   
5.     ActiveSheet.Lines.Delete
   
6.     lr1 = .Range("a65536").End(3).Row
   
7.     lc1 = .Range("iv1").End(1).Column
   
8.     Arr = .Range(.Cells(1, 1), .Cells(lr1, lc1))
   
9.     For i = 2 To UBound(Arr)
   
10.         For j = 1 To UBound(Arr, 2)
    
11.             If .Cells(i, j).Interior.ColorIndex = 5 Then
    
12.                 X = X + 1
    
13.                 ReDim Preserve aa(1 To X)
    
14.                 aa(X) = .Cells(i, j).Address
    
15.             ElseIf .Cells(i, j).Interior.ColorIndex = 3 Then
    
16.                 Y = Y + 1
    
17.                 ReDim Preserve bb(1 To Y)
    
18.                 bb(Y) = .Cells(i, j).Address
    
19.             ElseIf .Cells(i, j).Interior.ColorIndex = 16 Then
    
20.                 z = z + 1
    
21.                 ReDim Preserve cc(1 To z)
    
22.                 cc(z) = .Cells(i, j).Address
    
23.             End If
    
24.         Next
    
25.     Next
    
26. 100:
    
27.     For i = 1 To X - 1
    
28.         myLine1 Range(aa(i)), Range(aa(i + 1)), ys(1)
    
29.     Next
    
30.     For i = 1 To Y - 1
    
31.         myLine1 Range(bb(i)), Range(bb(i + 1)), ys(2)
    
32.     Next
    
33.     For i = 1 To z - 1
    
34.         myLine1 Range(cc(i)), Range(cc(i + 1)), ys(3)
    
35.     Next
    
36. End With
    
37. End Sub
    
38. Sub myLine1(Cel0 As Range, Cel1 As Range, bb)
    
39. x0 = Cel0.Left + Cel0.Width / 2
    
40. y0 = Cel0.Top + Cel0.Height / 2
    
41. x1 = Cel1.Left + Cel1.Width / 2
    
42. y1 = Cel1.Top + Cel1.Height / 2
    
43. ActiveSheet.Shapes.AddLine(x0, y0, x1, y1).Select
    
44. Selection.ShapeRange.Line.ForeColor.SchemeColor = bb '颜色线
    
45. End Sub
    

复制代码

蓝桥玄霜

请见附件。

一点不自在

谢谢老师，就是要这个效果！