1、先找到网形成上走势图的数据表，将它复制到EXCEL的sheet2。2、用&图表向导/标准类型/图表类型/折线图&,根据sheet2制作走势图。3、选中sheet2数据表任意单元格，点“数据/引入外部数据/新建WEB查询/在框内填入1数据表的路径/找到该表，点导入”即可建立链接；4、点“数据/引入外部数据/数据区域属性/刷新控件/打开工作簿时自动刷新”，即可随网上数据刷新而刷新,走势图也随之变化。
其它1条答案
附近的朋友等待您的帮助
包打听移动版→ 请问老师，怎样用excel制作彩票走势图中的数字之间的自动连线
选取类型：
观点标题：
观点内容：（不支持HTML）
请以客观、真实地作出评论，并注意语言文明；
观点发表后不能作出更改；
您是本帖的第 4503 个阅读者
请问老师，怎样用excel制作彩票走势图中的数字之间的自动连线
等级：初生婴儿
请问老师，怎样用excel制作彩票走势图中的数字之间的自动连线
请问老师，怎样用excel制作彩票走势图中的数字之间的自动连线，没有发现类似的课程呀！
等级：初生婴儿
Sub DELE()Dim item As Object For Each item In Sheets("走势图").Shapes        If item.Type = msoLine Then           item.DELETE         End If    NextRange("AM:AM") = ""Range("Am4") = 1End Sub有人说这个是走势图带连线的代码，有人给解释一下吗，注释一下
等级：幼儿园
完全不懂呢
等级：初生婴儿
研究好了买彩票？
等级：幼儿园
Sub 画线1()Application.ScreenUpdating = FalseCall 蓝球分布'Call 蓝球随机四区间Call 蓝球四分区Call 蓝球除4余数Call 蓝球小大奇偶Call 蓝球除3余数Call 蓝球除6余数Call 蓝球除5余数Call 蓝球升平降Application.ScreenUpdating = TrueEnd SubSub 画线2()Application.ScreenUpdating = FalseCall 遗漏大小奇偶Call 遗漏升平降Call 遗漏除3余数Application.ScreenUpdating = TrueEnd SubSub 画线3()Application.ScreenUpdating = FalseCall 振幅走势图Call 振幅大小奇偶Call 振幅除3余数Call 振幅升平降Application.ScreenUpdating = TrueEnd SubSub 红球画线()Application.ScreenUpdating = FalseCall 删线Call 红球大小比走势图Call 红球奇偶比走势图Application.ScreenUpdating = TrueEnd SubSub 删线()Dim hh As ShapeFor Each hh In ActiveSheet.ShapesIf hh.Type = 9 Thenhh.DeleteEnd IfNextEnd SubSub 蓝球分布()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("d3:s" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 3).Left + Cells(x + 2, y + 4).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 3).Top + Cells(x + 3, y + 5).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 3).Left + Cells(x + 2, y + 4).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 3).Top + Cells(x + 3, y + 5).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 蓝球随机四区间()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("v3:y" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 21).Left + Cells(x + 2, y + 22).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 21).Top + Cells(x + 3, y + 23).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 21).Left + Cells(x + 2, y + 22).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 21).Top + Cells(x + 3, y + 23).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 蓝球四分区()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("ab3:ae" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 27).Left + Cells(x + 2, y + 28).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 27).Top + Cells(x + 3, y + 29).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 27).Left + Cells(x + 2, y + 28).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 27).Top + Cells(x + 3, y + 29).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 蓝球除4余数()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("ah3:ak" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 33).Left + Cells(x + 2, y + 34).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 33).Top + Cells(x + 3, y + 35).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 33).Left + Cells(x + 2, y + 34).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 33).Top + Cells(x + 3, y + 35).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 蓝球小大奇偶()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("al3:ao" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 37).Left + Cells(x + 2, y + 38).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 37).Top + Cells(x + 3, y + 39).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 37).Left + Cells(x + 2, y + 38).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 37).Top + Cells(x + 3, y + 39).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 蓝球除3余数()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("ap3:ar" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 41).Left + Cells(x + 2, y + 42).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 41).Top + Cells(x + 3, y + 43).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 41).Left + Cells(x + 2, y + 42).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 41).Top + Cells(x + 3, y + 43).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 蓝球除6余数()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("as3:ax" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 44).Left + Cells(x + 2, y + 45).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 44).Top + Cells(x + 3, y + 46).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 44).Left + Cells(x + 2, y + 45).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 44).Top + Cells(x + 3, y + 46).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 蓝球除5余数()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("Ay3:Bc" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 50).Left + Cells(x + 2, y + 51).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 50).Top + Cells(x + 3, y + 52).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 50).Left + Cells(x + 2, y + 51).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 50).Top + Cells(x + 3, y + 52).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 蓝球升平降()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("bd3:bf" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 55).Left + Cells(x + 2, y + 56).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 55).Top + Cells(x + 3, y + 57).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 55).Left + Cells(x + 2, y + 56).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 55).Top + Cells(x + 3, y + 57).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd Sub'Sub 蓝球遗漏分布图()'Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%'Myr = [a1000].End(xlUp).Row'Arr = Range("bh2:br" & Myr)'n = 1'For x = 1 To UBound(Arr)'For y = 3 To UBound(Arr, 2)'&&& If Arr(x, y).Value &= Arr(1, y - 2).Value And Arr(x, y).Value &= Arr(2, y - 1).Value Then'&&&&&&& If n = 1 Then'&&&&&&&&&&& xx1 = (Cells(x + 2, y + 61).Left + Cells(x + 2, y + 62).Left) / 2'&&&&&&&&&&& yy1 = (Cells(x + 2, y + 61).Top + Cells(x + 3, y + 63).Top) / 2'&&&&&&&&&&& n = n + 1'&&&&&&&&&&& GoTo 100'&&&&&&& Else'&&&&&&&&&&& xx2 = (Cells(x + 2, y + 61).Left + Cells(x + 2, y + 62).Left) / 2'&&&&&&&&&&& yy2 = (Cells(x + 2, y + 61).Top + Cells(x + 3, y + 63).Top) / 2'&&&&&&&&&&& n = 2'&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select'&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1'&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4'&&&&&&&&&&& xx1 = xx2: yy1 = yy2'&&&&&&& GoTo 100'&&&&&&& End If'&&& End If'Next y'100:'Next x'End SubSub 遗漏大小奇偶()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("bv3:by" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 73).Left + Cells(x + 2, y + 74).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 73).Top + Cells(x + 3, y + 75).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 73).Left + Cells(x + 2, y + 74).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 73).Top + Cells(x + 3, y + 75).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 遗漏除3余数()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("bz3:Cb" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 77).Left + Cells(x + 2, y + 78).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 77).Top + Cells(x + 3, y + 79).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 77).Left + Cells(x + 2, y + 78).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 77).Top + Cells(x + 3, y + 79).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 遗漏升平降()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("Cc3:Ce" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 80).Left + Cells(x + 2, y + 81).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 80).Top + Cells(x + 3, y + 82).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 80).Left + Cells(x + 2, y + 81).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 80).Top + Cells(x + 3, y + 82).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 振幅走势图()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("Cg3:Cv" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 84).Left + Cells(x + 2, y + 85).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 84).Top + Cells(x + 3, y + 86).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 84).Left + Cells(x + 2, y + 85).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 84).Top + Cells(x + 3, y + 86).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 振幅大小奇偶()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("da3:dd" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 104).Left + Cells(x + 2, y + 105).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 104).Top + Cells(x + 3, y + 106).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 104).Left + Cells(x + 2, y + 105).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 104).Top + Cells(x + 3, y + 106).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 振幅除3余数()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("de3:dg" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 108).Left + Cells(x + 2, y + 109).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 108).Top + Cells(x + 3, y + 110).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 108).Left + Cells(x + 2, y + 109).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 108).Top + Cells(x + 3, y + 110).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 振幅升平降()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("dh3:dj" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 111).Left + Cells(x + 2, y + 112).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 111).Top + Cells(x + 3, y + 113).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 111).Left + Cells(x + 2, y + 112).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 111).Top + Cells(x + 3, y + 113).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 红球大小比走势图()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("ao3:au" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 40).Left + Cells(x + 2, y + 41).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 40).Top + Cells(x + 3, y + 42).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 40).Left + Cells(x + 2, y + 41).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 40).Top + Cells(x + 3, y + 42).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd SubSub 红球奇偶比走势图()Dim Myr&, Arr, x&, y&, xx1, yy1, xx2, yy2, n%Myr = [a1000].End(xlUp).RowArr = Range("av3:bb" & Myr)n = 1For x = 2 To UBound(Arr)For y = 1 To UBound(Arr, 2)&&& If Arr(x, y) = Arr(1, y) Then&&&&&&& If n = 1 Then&&&&&&&&&&& xx1 = (Cells(x + 2, y + 47).Left + Cells(x + 2, y + 48).Left) / 2&&&&&&&&&&& yy1 = (Cells(x + 2, y + 47).Top + Cells(x + 3, y + 49).Top) / 2&&&&&&&&&&& n = n + 1&&&&&&&&&&& GoTo 100&&&&&&& Else&&&&&&&&&&& xx2 = (Cells(x + 2, y + 47).Left + Cells(x + 2, y + 48).Left) / 2&&&&&&&&&&& yy2 = (Cells(x + 2, y + 47).Top + Cells(x + 3, y + 49).Top) / 2&&&&&&&&&&& n = 2&&&&&&&&&&& ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select&&&&&&&&&&& Selection.ShapeRange.Line.Weight = 1&&&&&&&&&&& Selection.ShapeRange.Line.ForeColor.SchemeColor = 4&&&&&&&&&&& xx1 = xx2: yy1 = yy2&&&&&&& GoTo 100&&&&&&& End If&&& End IfNext y100:Next xEnd Sub
等级：幼儿园
上方的VBA，我做的自动画线。
等级：小学生
怎么全是代码啊
等级：大专生
经验：11175
本论坛言论纯属发表者个人意见，与本站立场无关，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ 粤ICP备号
Copyright © 2007
Powered By
页面执行时间 0.18750 秒, 4 次数据查询24小时热门版块排行榜&&&&
(小有名气)
在线: 18.1小时
虫号: 561631
注册: 性别: GG专业: 钢铁冶金
请问怎么使用Origin绘制双线趋势图？【有图】
请问怎么使用Origin绘制双线趋势图？
图像 1.jpg
be950d4fdbbcfaf2b4a8.jpg
& 猜你喜欢
已经有27人回复
已经有54人回复
已经有11人回复
已经有27人回复
已经有24人回复
已经有20人回复
已经有19人回复
已经有24人回复
已经有10人回复
已经有8人回复
& 本主题相关价值贴推荐，对您同样有帮助:
已经有13人回复
已经有31人回复
已经有6人回复
已经有6人回复
已经有11人回复
已经有5人回复
已经有4人回复
已经有16人回复
已经有9人回复
已经有1人回复
已经有4人回复
已经有6人回复
斯蒂尔 美克
(小有名气)
在线: 195.8小时
虫号: 1348013
注册: 性别: GG专业: 高分子材料结构与性能
【答案】应助回帖
我用的是originV8.6,在第一章图上绘制一条趋势线，再建立图层，两张图层建立链接，将坐标对齐，再绘制第而趋势线。你搜索一下——origin同一图层绘制多图，应该有所有帮助。
&&有该文件下载
相关版块跳转
有奖问答中转子版
有奖问答完结子版
我要订阅楼主
的主题更新
小木虫,学术科研互动社区,为中国学术科研免费提供动力
违规贴举报删除请发送邮件至：
广告投放与宣传请联系 李想 QQ：
QQ：&&邮箱：
Copyright &
MuChong.com, All Rights Reserved. 小木虫 版权所有