使用VBA对彩票进行分析-3D-排列3-排列5

Sub 按钮1_Click()
Dim wb As Workbook
Dim sht As Worksheet, sht1 As Worksheet
Dim arr
Dim dic As Object
Application.ScreenUpdating = False
Set sht1 = ThisWorkbook.Sheets("排五遗漏数据")
For j = 3 To 15 Step 3sht1.Range(sht1.Cells(2, j - 1), sht1.Cells(11, j)).ClearContents
NextSet wb = Workbooks.Open(ThisWorkbook.path & "\排五.xlsx")
Set sht = wb.Sheets(1)
arr = sht.Range("a1").CurrentRegion
wb.Close Falsec = 3
For j = 2 To 6For k = 0 To 9For i = UBound(arr) To LBound(arr) + 1 Step -1If arr(i, j) * 1 = k Thensht1.Cells(k + 2, c) = UBound(arr) - isht1.Cells(k + 2, c - 1) = kExit ForEnd IfNextNextc = c + 3
Next
For j = 2 To 14 Step 3ActiveSheet.Sort.SortFields.ClearActiveSheet.Sort.SortFields.Add Key:=Range(Cells(2, j + 1), Cells(11, j + 1)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormalWith ActiveSheet.Sort.SetRange Range(Cells(1, j), Cells(11, j + 1)).Header = xlYes.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd With
NextApplication.ScreenUpdating = TrueEnd Sub

下载源码链接：(https://download.csdn.net/download/weixin_43050480/87211884)
PS：亲自测10期可以中2期，最多的时候中4期

使用VBA对彩票进行分析-3D-排列3-排列5相关推荐

【组合数学】排列组合 ( 排列组合示例 )
文章目录一.排列组合示例 1 ( 组合 | 乘法法则 | 加法法则 ) 二.排列组合示例 2 参考博客 : [组合数学]基本计数原则 ( 加法原则 | 乘法原则 ) [组合数学]集合的排列组合问题示 ...
排列组合思维导图_排列组合——排列数专题
在上篇关于排列组合主要考点的介绍中,正男老师提到:排列组合考点通常可以拆分为排列数考点和组合数考点.排列数考点相关试题可以细分为2类,分别为:穷举问题和限制条件问题.本期正男老师就从近六年内的5道涉及 ...
蓝桥杯笔记：（给的元素不重复）求全排列（排列不可重复，排列可重复）
1.各个元素不重复 abc,acb,....... 用next_permutataion()求全排列 #include<iostream> #include<algorithm> ...
C语言：使用指针,封装一个函数, // 使输入的奇数从小到大排列,奇数排列完毕之后,再把偶数从大到小进行排列, // 最终输出整个
// 使用指针,封装一个函数, // 使输入的奇数从小到大排列,奇数排列完毕之后,再把偶数从大到小进行排列, // 最终输出整个 #include <stdio.h> void Jopai ...
Geometric Glovius Pro v6.0.0.624 3D可视化分析/3D模型查看器
前言 Geometric Glovius Pro是一款用于CATIA V4/V5/V6,STEP,IGES,Creo,Pro/ENGINEER,NX,SolidWorks,Solid Edge 和 I ...
CorelDRAW VBA - 创建美术字文本并沿着形状路径排列
目的这篇教程将教会你使用 CorelDRAW VBA代码在文档中创建美术字文本,并调用 FitTextToPath 方法让文本沿着形状的路径排列. 美术字文本是一种短文本,适合显示文字内容较少(通常 ...
python彩票预测与分析_彩票专家分析预测号码
双色球第150期预测:上期开出020305111532-15,本期分析如下: 上期奇偶比为4:2,本期可关注4:2,其次是3:3.上期奇数个位号开出"1-3-5",本期可关注个位& ...
算法设计与分析——回溯法——圆排列问题
#include<iostream> #include<math.h> using namespace std; class Circle {public:float Cent ...
Tango手机分析 3D点云室内环境重建
之前一直在PC使用pmd pico flex深度相机,从上一篇文章开始尝试使用Tango手机.Tango手机集成了pmd Sunny深度相机. tango渲染3D方式 tango范例通过2种方式来显示 ...

使用VBA对彩票进行分析-3D-排列3-排列5

使用VBA对彩票进行分析-3D-排列3-排列5相关推荐

最新文章

热门文章