请选择 进入手机版 | 继续访问电脑版

龍首社区论坛

 找回密码
 立即注册
1休闲桌球游戏
2移动武士游戏
3鼠标拼图游戏
4堆木头游戏
5五彩连球小游戏
63D拳王游戏
7拼图插件功能
8经典坦克大战
9塔罗牌游戏
0贪吃蛇游戏
11鼠标右击显示导航栏功能
12俄罗期方块游戏
13经典俄罗斯方块
14双人五子棋游戏
15打字熟悉键盘游戏
16飞行棋游戏
17纸牌找对对游戏
18仿电脑蜘蛛纸牌游戏
19被控制的武士游戏
20口红缝插针游戏
21儿时小游戏俄罗期方块游戏
22双人五子棋游戏
23贪吃蛇小游戏
24中国象棋游戏
25刺激玩转魔方
26漂亮的罗盘鼠标操作
27首页转型导航
28粒子抖动特效
29手动抽奖游戏
30模拟键盘文字输入
31模拟输入提取
32输入试下
33剪刀石头布游戏
34JS,asp转换
L我在等你广告!
M我在等你广告!
查看: 269|回复: 0

[分享] 3d彩票开奖数据动态曲线(折线)

[复制链接]

25

主题

26

帖子

323

积分

超级版主

Rank: 8Rank: 8

积分
323
258369 发表于 2020-1-8 14:10:51 | 显示全部楼层 |阅读模式
帖子内容
       玩彩票时,很希望能用动态曲线(折线)直观反映开奖号码的动态变动情况。因对VBA编程不熟悉,走了不少弯路。时常在论坛里看看帖子,发现有很多好的帖子,其中就有彩票研究方面的帖子。在借鉴论坛帖子的基础上,改出了自己想要的程序——彩票开奖动态曲线(折线)图,需要曲线(折线)时,在复选框中打一个小小的“”就实现了;不需要曲线(折线)时,将复选框中小小的““去掉就实现了。我想,有很多像我一样的人,也希望有这样的东西,正苦于无法实现。现将我学习的成果,发在论坛里,与有这样需求的人共享。成果见附件。


原程序如下:
  1. Private Sub CheckBox1_Click()
  2.     Dim Sh As Worksheet, Rng As Range, ColRng As Range, Cell As Range
  3.     Dim BeginR As Range, EndR As Range
  4.     Dim DrawMode As Boolean, DrawLine As LineFormat
  5.     Dim i As Integer, Shap As Shape
  6.     Application.ScreenUpdating = False
  7.     DrawMode = False
  8.     Set Sh = ActiveSheet
  9.     Set Rng = Sh.Range(Sh.Range("A4"), Sh.Range("A65536").End(xlUp))
  10.    
  11.     '删除已有的线条
  12.    
  13.     If CheckBox1 = False Then
  14.     If Sh.Shapes.Count > 0 Then
  15.         For Each Shap In Sh.Shapes
  16.             If Shap.Type = msoLine Then Shap.Delete
  17.         Next Shap
  18.     End If
  19.    
  20.       Exit Sub
  21.       
  22.     End If
  23.    
  24.    
  25.     '循环开奖号区域
  26.     For i = 1 To 5
  27.         Set ColRng = Rng.Offset(0, i)
  28.         For Each Cell In ColRng
  29.             Set EndR = Cell.Offset(0, 9 * i - 3 + Cell.Value)
  30.                 If DrawMode Then
  31.                     '绘制线条
  32.                     Set DrawLine = Sh.Shapes.AddLine(BeginR.Left + BeginR.Width / 2, _
  33.                         BeginR.Top + BeginR.Height / 2, EndR.Left + EndR.Width / 2, _
  34.                         EndR.Top + EndR.Height / 2).Line
  35.                     With DrawLine
  36.                         .DashStyle = msoLineSolid
  37.                         .ForeColor.RGB = RGB(255, 0, 0)
  38.                     End With
  39.                 Else
  40.                     DrawMode = True
  41.                 End If
  42.                 Set BeginR = EndR
  43.         Next Cell
  44.         DrawMode = False
  45.     Next i
  46.    
  47.     Application.ScreenUpdating = True
  48.     Set BeginR = Nothing
  49.     Set EndR = Nothing
  50.     Set DrawLine = Nothing
  51.     Set ColRng = Nothing
  52.     Set Cell = Nothing
  53.     Set Rng = Nothing
  54.     Set Sh = Nothing
  55. End Sub
复制代码


彩票开奖数据动态曲线.rar

37.86 KB, 下载次数: 0

售价: 20 金钱  [记录]  [购买]

帖子内容
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

1休闲桌球游戏
2移动武士游戏
3鼠标拼图游戏
4堆木头游戏
5五彩连球小游戏
63D拳王游戏
7拼图插件功能
8经典坦克大战
9塔罗牌游戏
0贪吃蛇游戏
11鼠标右击显示导航栏功能
12俄罗期方块游戏
13经典俄罗斯方块
14双人五子棋游戏
15打字熟悉键盘游戏
16飞行棋游戏
17纸牌找对对游戏
18仿电脑蜘蛛纸牌游戏
19被控制的武士游戏
20口红缝插针游戏
21儿时小游戏俄罗期方块游戏
22双人五子棋游戏
23贪吃蛇小游戏
24中国象棋游戏
25刺激玩转魔方
26漂亮的罗盘鼠标操作
27首页转型导航
28粒子抖动特效
29手动抽奖游戏
30模拟键盘文字输入
31模拟输入提取
32输入试下
33剪刀石头布游戏
K我在等你广告!
L我在等你广告!
M我在等你广告!

QQ|Archiver|手机版|小黑屋|龍首社区论坛

GMT+8, 2020-1-25 12:19 , Processed in 0.355229 second(s), 22 queries .

龍首社区 龍首社区 X3.4

© 2001-2017 龍首社区论坛

快速回复 返回顶部 返回列表