大家好,最近推出的内容是“VBA信息获取与处理”中的部分内容，这套教程面向中高级人员，涉及范围更广，实用性更强，现在的内容是第二个专题“随机数(Random)在EXCEL工作表及VBA中的应用”的内容。对于数据处理而言，随机信息的处理是非常重要的一部分，什么是随机数呢？随机数是专门的随机试验的结果。在统计学的不同技术中需要使用随机数，比如在从统计总体中抽取有代表性的样本的时候，或者在将实验动物分配到不同的试验组的过程中等等。产生随机数有多种不同的方法。这些方法被称为随机数发生器。随机数最重要的特性是：它所产生的后面的那个数与前面的那个数毫无关系。真正的随机数是使用物理现象产生的：比如掷钱币、骰子、转轮、使用电子元件的噪音、核裂变等等，这样的随机数发生器叫做物理性随机数发生器，它们的缺点是技术要求比较高。计算机或计算器产生的随机数有很长的周期性。其实它们不是真正地随机产生，因为它们实际上是可以计算出来的，但是它们具有类似于随机数的统计特征。这样的发生器叫做伪随机数发生器。在实际应用中往往使用伪随机数就足够了。
第一节 在EXCEL中随机函数的利用
随机函数就是产生随机数的函数，是EXCEL中很重要的函数，应该说Excel和VBA对随机数的支持都是有限的。在Excel中，可以使用RAND工作表函数返回一个随机数D，其中0<=D<1。在分析工具包外接程序中，有一个名为RANDBETWEEN的函数，它将返回两个指定数字之间的随机整数。VBA有自己的随机函数Rnd，它返回一个随机数D，其中0<=D<1。在RAND函数和Rnd函数的基础上，我们可以设计出一些有用的公式和函数。
1 RAND函数，返回值含小数部分
返回到数字之间的十进制数(包括小数点后的小数部分)，可以使用以下公式：=RAND()*(High-Low)+Low。其中Low是所需范围内的最小值，High是所需范围内的最大值。公式将返回一个介于Low和High之间的值。
2 RAND函数，返回整数值
返回到数字之间的十进制数整数(不带小数部分的整数)，可以使用：=TRUNC(RAND()*(High-Low)+Low)上述公式中利用了一个TRUNC()函数，这个函数直接去除数字的小数部分。
3 RAND 函数在数组中的应用
RAND函数是一个可以支持数组的函数，因此RAND单独或上面的任何一个公式都可以用于数组公式。需要注意的是，RAND是一个易失函数(volatile function)，这意味着它将在任何计算时重新计算。这意味着函数的值将随每次计算而改变。如果希望仅在某些情况下更改随机数，可以使用带有循环引用的公式来创建仅在某些情况下重新计算的随机数。也可以利用“迭代”运算来完成重新计算随机数的结果。我们看一下本节内容的截图：  本节知识点回向：什么是随机数？什么是随机函数？在EXCEL工作表中有哪些随机函数可以利用？如何返回两个数间的随机数？如何返回两个数间的随机整数？再看看上面的截图E列的数为什么不是D列数的取整值？  本节内容详细代码“参考002工作表.XLSM”  VBA是利用Office实现自己小型办公自动化的有效手段，这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！学习VBA是个过程，也需要经历一种枯燥的感觉，如太白诗云：众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。“水善利万物而不争”，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，用一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。在后疫情更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。学习时微而无声，利用时则巨则汹涌。我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了六部VBA专门教程。第一套：VBA代码解决方案是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点，初学必备；第二套：VBA数据库解决方案数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。第三套：VBA数组与字典解决方案   数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。第四套：VBA代码解决方案之视频是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。第五套：VBA中类的解读和利用这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。第六套教程：《VBA信息获取与处理》，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。如需要可以可以WeChat: NZ9668学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。这些教程也是为帮助大家起航，助上我自己之力，我的上述教程是我多的经验的传递，大家可以根据以上资料1,3,2,6,5或者是4,3,2,6,5的顺序逐渐深入的逐渐学习。 每一分收获都是成长的记录，怎无凭，正是这种执着，成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着： 浮云掠过，暗语无声，唯有清风，惊了梦中啼莺。望星，疏移北斗，奈将往事雁同行。阡陌人，昏灯明暗，忍顾长亭。多少VBA人，暗夜中，悄声寻梦，盼却天明。怎无凭！  分享成果，随喜正能量

大家好,最近推出的内容是"VBA信息获取与处理"中的部分内容，这套教程面向中高级人员，涉及范围更广，实用性更强，现在的内容是第二个专题"随机数(Random)在EXCEL工作表及VBA中的应用"的内容。
对于数据处理而言，随机信息的处理是非常重要的一部分，什么是随机数呢？随机数是专门的随机试验的结果。在统计学的不同技术中需要使用随机数，比如在从统计总体中抽取有代表性的样本的时候，或者在将实验动物分配到不同的试验组的过程中等等。
产生随机数有多种不同的方法。这些方法被称为随机数发生器。随机数最重要的特性是：它所产生的后面的那个数与前面的那个数毫无关系。真正的随机数是使用物理现象产生的：比如掷钱币、骰子、转轮、使用电子元件的噪音、核裂变等等，这样的随机数发生器叫做物理性随机数发生器，它们的缺点是技术要求比较高。
计算机或计算器产生的随机数有很长的周期性。其实它们不是真正地随机产生，因为它们实际上是可以计算出来的，但是它们具有类似于随机数的统计特征。这样的发生器叫做伪随机数发生器。在实际应用中往往使用伪随机数就足够了。
第一节 在EXCEL中随机函数的利用
随机函数就是产生随机数的函数，是EXCEL中很重要的函数，应该说Excel和VBA对随机数的支持都是有限的。在Excel中，可以使用RAND工作表函数返回一个随机数D，其中0<=D<1。在分析工具包外接程序中，有一个名为RANDBETWEEN的函数，它将返回两个指定数字之间的随机整数。VBA有自己的随机函数Rnd，它返回一个随机数D，其中0<=D<1。在RAND函数和Rnd函数的基础上，我们可以设计出一些有用的公式和函数。
1 RAND函数，返回值含小数部分
返回到数字之间的十进制数(包括小数点后的小数部分)，可以使用以下公式：=RAND()*(High-Low)+Low。
其中Low是所需范围内的最小值，High是所需范围内的最大值。公式将返回一个介于Low和High之间的值。
2 RAND函数，返回整数值
返回到数字之间的十进制数整数(不带小数部分的整数)，可以使用：=TRUNC(RAND()*(High-Low)+Low)
上述公式中利用了一个TRUNC()函数，这个函数直接去除数字的小数部分。
3 RAND 函数在数组中的应用
RAND函数是一个可以支持数组的函数，因此RAND单独或上面的任何一个公式都可以用于数组公式。需要注意的是，RAND是一个易失函数(volatile function)，这意味着它将在任何计算时重新计算。这意味着函数的值将随每次计算而改变。如果希望仅在某些情况下更改随机数，可以使用带有循环引用的公式来创建仅在某些情况下重新计算的随机数。也可以利用"迭代"运算来完成重新计算随机数的结果。
我们看一下本节内容的截图：
本节知识点回向：什么是随机数？什么是随机函数？在EXCEL工作表中有哪些随机函数可以利用？如何返回两个数间的随机数？如何返回两个数间的随机整数？
再看看上面的截图E列的数为什么不是D列数的取整值？
本节内容详细代码"参考002工作表.XLSM"
VBA是利用Office实现自己小型办公自动化的有效手段，这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！学习VBA是个过程，也需要经历一种枯燥的感觉，如太白诗云：众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。
"水善利万物而不争"，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，用一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。在后疫情更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。学习时微而无声，利用时则巨则汹涌。
我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了六部VBA专门教程。
第一套：VBA代码解决方案 是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点，初学必备；
第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。
第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。
第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。
第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。
第六套教程：《VBA信息获取与处理》，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。如需要可以可以WeChat: NZ9668
学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。这些教程也是为帮助大家起航，助上我自己之力，我的上述教程是我多的经验的传递，大家可以根据以上资料1,3,2,6,5或者是4,3,2,6,5的顺序逐渐深入的逐渐学习。
每一分收获都是成长的记录，怎无凭，正是这种执着，成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着：
浮云掠过，暗语无声，
唯有清风，惊了梦中啼莺。
望星，疏移北斗，
奈将往事雁同行。
阡陌人，昏灯明暗，
忍顾长亭。
多少VBA人，
暗夜中，悄声寻梦，盼却天明。
怎无凭！
分享成果，随喜正能量

般的sql语句查询结果，都是根据语句中指定的某个字段排序，或者根据数据库设计的默认排序返回记录结果。而有时可能我们就想通过sql查询语句获得某个数据表中随机的n条记录，比如返回文章列表的随机的10条记录。
以前我记得我倒是通过使用过sql语句的随机函数返回表中某一段的数据的方法，不过总感觉不太理想。
今天翻阅了一些资料，发现原来有更好的简便的sql语句可以方便的获得某个表中n条随机的记录，sql语句的写法是这样的：
SQL Server:    select top n * from 表 order by newid()
Access:        Select top n * FROM 表 orDER BY Rnd(id)         
mysql:          Select * From 表 order By rand() Limit n
三种哦，sql server 、access、mysql的是不通的，其中sql查询语句中的n表示你要获得的记录条数，简单吧。
下面来个例子，比如我有一格表名是article，我象随机抽取其中10条记录返回结果，我得数据库是mssql，那么这条查询10条随机记录的sql语句是这样写的：
select top 10 from article order by newid()

 
毕业设计中涉及到一个随机算法，很久没用了，所以忘了，去网上搜了一下， 得到下文，另外我有一点心得

那就是time(0)函数是返回秒级的数值，而getticketcount（）可以返回毫秒级数值，这就决定了所有可能被随机到的数值可以在更短的时间范围内得到一次被选中的机会（当然这只是机会，不一定被选中）

但是我更希望能直接获得微妙级的时间，有谁有好方法的话请提出来

PS：QueryPerformanceCounter和QueryFrequencyCounter这两个是不行的哦，因为这两个的使用要先依赖其他参数，而被依赖的参数无法保证其随机性。这两个函数用在高精度时间上很有效，但我现在不仅要高精度的时间，我的目的更是为了保证其随机性。
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、

以下是转的文章

一、C++中不能使用random()函数

==================================================================================
本文由青松原创并依GPL-V2及其后续版本发放，转载请注明出处且应包含本行声明。

C++中常用rand()函数生成随机数，但严格意义上来讲生成的只是伪随机数（pseudo-random integral number）。生成随机数时需要我们指定一个种子，如果在程序内循环，那么下一次生成随机数时调用上一次的结果作为种子。但如果分两次执行程序，那么由于种子相同，生成的“随机数”也是相同的。


在工程应用时，我们一般将系统当前时间(Unix时间)作为种子，这样生成的随机数更接近于实际意义上的随机数。给一下例程如下：


#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;

int main()
{
    double random(double,double);
    srand(unsigned(time(0)));
    for(int icnt = 0; icnt != 10; ++icnt)
        cout << "No." << icnt+1 << ": " << int(random(0,10))<< endl;
    return 0;
}

double random(double start, double end)
{
    return start+(end-start)*rand()/(RAND_MAX + 1.0);
}





/* 运行结果

* No.1: 3

* No.2: 9

* No.3: 0

* No.4: 9

* No.5: 5

* No.6: 6

* No.7: 9

* No.8: 2

* No.9: 9

* No.10: 6

*/

利用这种方法能不能得到完全意义上的随机数呢？似乎9有点多哦？却没有1,4,7？！我们来做一个概率实验，生成1000万个随机数，看0-9这10个数出现的频率是不是大致相同的。程序如下：

#include <iostream>
#include <ctime>
#include <cstdlib>
#include <iomanip>
using namespace std;

int main()
{
    double random(double,double);
    int a[10] = {0};
    const int Gen_max = 10000000;
    srand(unsigned(time(0)));
    
    for(int icnt = 0; icnt != Gen_max; ++icnt)
        switch(int(random(0,10)))
        {
        case 0: a[0]++; break;
        case 1: a[1]++; break;
        case 2: a[2]++; break;
        case 3: a[3]++; break;
        case 4: a[4]++; break;
        case 5: a[5]++; break;
        case 6: a[6]++; break;
        case 7: a[7]++; break;
        case 8: a[8]++; break;
        case 9: a[9]++; break;
        default: cerr << "Error!" << endl; exit(-1);
        }
    
    for(int icnt = 0; icnt != 10; ++icnt)
        cout << icnt << ": " << setw(6) << setiosflags(ios::fixed) << setprecision(2) << double(a[icnt])/Gen_max*100 << "%" << endl;
    
    return 0;
}

double random(double start, double end)
{
    return start+(end-start)*rand()/(RAND_MAX + 1.0);
}



 
/* 运行结果

* 0: 10.01%

* 1:   9.99%

* 2:   9.99%

* 3:   9.99%

* 4:   9.98%

* 5: 10.01%

* 6: 10.02%

* 7: 10.01%

* 8: 10.01%

* 9:   9.99%

*/

可知用这种方法得到的随机数是满足统计规律的。


另：在Linux下利用GCC编译程序，即使我执行了1000000次运算，是否将random函数定义了inline函数似乎对程序没有任何影响，有理由相信，GCC已经为我们做了优化。但是冥冥之中我又记得要做inline优化得加O3才行...


不行，于是我们把循环次数改为10亿次，用time命令查看执行时间：

chinsung@gentoo ~/workspace/test/Debug $ time ./test 

0: 10.00%

1: 10.00%

2: 10.00%

3: 10.00%

4: 10.00%

5: 10.00%

6: 10.00%

7: 10.00%

8: 10.00%

9: 10.00%


real    2m7.768s

user    2m4.405s

sys     0m0.038s

chinsung@gentoo ~/workspace/test/Debug $ time ./test 

0: 10.00%

1: 10.00%

2: 10.00%

3: 10.00%

4: 10.00%

5: 10.00%

6: 10.00%

7: 10.00%

8: 10.00%

9: 10.00%


real    2m7.269s

user    2m4.077s

sys     0m0.025s


前一次为进行inline优化的情形，后一次为没有作inline优化的情形，两次结果相差不大，甚至各项指标后者还要好一些，不知是何缘由...
=================================================================================

     random函数不是ANSI C标准，不能在gcc,vc等编译器下编译通过。 可改用C++下的rand函数来实现。
     1、C++标准函数库提供一随机数生成器rand，返回0－RAND_MAX之间均匀分布的伪随机整数。 RAND_MAX必须至少为32767。rand()函数不接受参数，默认以1为种子（即起始值）。 随机数生成器总是以相同的种子开始，所以形成的伪随机数列也相同，失去了随机意义。（但这样便于程序调试）


      2、C++中另一函数srand（），可以指定不同的数（无符号整数变元）为种子。但是如果种子相同，伪随机数列也相同。一个办法是让用户输入种子，但是仍然不理想。


     3、 比较理想的是用变化的数，比如时间来作为随机数生成器的种子。 time的值每时每刻都不同。所以种子不同，所以，产生的随机数也不同。 
// C++随机函数（VC program） 

#include <stdio.h> 
#include <iostream> 
#include <time.h> 
using namespace std; 
#define MAX 100 
int main(int argc, char* argv[]) 
{ 
       srand( (unsigned)time( NULL ) );//srand()函数产生一个以当前时间开始的随机种子.应该放在for等循环语句前面 不然要很长时间等待 
　　 for (int i=0;i<10;i++) 
　　 cout<<rand()%MAX<<endl;//MAX为最大值，其随机域为0~MAX-1
　　 return 0; 
} 


二、rand()的用法


     rand()不需要参数，它会返回一个从0到最大随机数的任意整数，最大随机数的大小通常是固定的一个大整数。 这样，如果你要产生0~10的10个整数，可以表达为：

　　int N = rand() % 11; 

     这样，N的值就是一个0~10的随机数，如果要产生1~10，则是这样： 

　　int N = 1 + rand() % 10; 

　　总结来说，可以表示为： 

　　a + rand() % n
     其中的a是起始值，n是整数的范围。

　　a + rand() % (b-a+1)
就表示　ａ～ｂ之间的一个随机数
若要0~1的小数，则可以先取得0~10的整数，然后均除以10即可得到随机到十分位的10个随机小数，若要得到随机到百分位的随机小数，则需要先得到0~100的10个整数，然后均除以100，其它情况依此类推。


     通常rand()产生的随机数在每次运行的时候都是与上一次相同的，这是有意这样设计的，是为了便于程序的调试。若要产生每次不同的随机数，可以使用srand( seed )函数进行随机化，随着seed的不同，就能够产生不同的随机数。

     如大家所说，还可以包含time.h头文件，然后使用srand(time(0))来使用当前时间使随机数发生器随机化，这样就可以保证每两次运行时可以得到不同的随机数序列(只要两次运行的间隔超过1秒)。