ggggwhw-CSDN博客

原创【Word宏】根据除法的横式写竖式

此例的功能是选中一个word中的除法横式后，会自动在该横式下方生成该横式的竖式。被除数和除数既可以是整数，也可以是小数，但是必须是无符号数字。该例中调用了一个自定义的Sub：aaTihuanF("/","÷"),该Sub的功能是将除号/替换成手写体÷。该例的特点是根据手写竖式的思路，逐位计算，基本上不存在由于数位太多导致溢出的情况。唯一的Bug是数位太多，被除数和除数不能写在同一行，解决的办法是，将纸张设置足够宽，字体选小字号即可。代码中用到了3个特殊字符，是我自造的字符，其中Α表示除法竖

2022-02-06 19:32:00 1015

原创快速排序法过程演示

'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。功能：演示快速排序法的排序过程。特点：1．演示的过程实际上也是排序的过程，既能看到数字排序的过程，同时也能看到色块排序的过程。特点：2．用来排序的数字的多少，数字的分布可以手动设置，也可以随机设置。做到随心测试。操作：在Sub Yanshi1()中修改参数后(如果不想修改也可以不修改)，点击运行，然后就可以在当前工作表中观看动画过程了。Dim Hang1&, Hang2&, Li..

2021-09-07 22:09:39 128

原创演示冒泡法排序过程 (2)

'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。功能：演示冒泡法排序过程(2)。此过程相对于前一个演示，稍微修改了一些，眼睛看着会感觉效率提高了，真正运行起来，感觉效率并不会提高太多，只有当大数基本上处于原数列后方的时候，效率才会明显提高。比如：原数列就是已经排好的数列，或者极少的数字是没有排好的，这时候用今天演示的这个方法，速度会明显提升。改进的原理：将所有数据分为三段，最下面1个数字称作淤泥，其它位置的数据称作水；步骤1：比较淤泥的最上层和水的最.

2021-09-04 20:50:57 149

原创演示冒泡法排序(升序排列)

Sub main() Dim Hang1&, Hang2&, Lie1&, Time1# Lie1 = 3 Hang1 = 3 Hang2 = 20 Time1 = 0.01 Call CCyunxing(Hang1, Hang2, Lie1, Time1)End SubSub CCyunxing(Hang1&, Hang2&, Lie1&, Time1#) Cells.Delete Cel.

2021-09-04 15:36:54 234

原创求最大公因数

Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。功能：求多个数的最大公因数。格式如下：无参数则返回1例如：FFCfactor()返回：1一个参数则返回该参数FFCfactor(正整数a)，返回a例如：FFCfactor(46)返回：46两个或两个以上的参数，则返回这些参数的最大公因数。FFCfactor(正整数a, 正整数b, 正整数c, 正整数d),返回a、b、c、d的最大公因数例如：FFCfactor(24,26,28)返回：2

2021-08-31 17:37:33 207

原创判断质数或互质

'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。功能：1．判断一个数是否为质数。FFisprime(正整数)，例如FFisprime(26)返回：FalseFFisprime(23)返回：True功能：2．判断多个数是否两两互质。判断多个数a, b, c, d, ...是否两两互质FFisprime(2, 正整数a, 正整数b, 正整数c, 正整数d, ...)例如：FFisprime(2, 40, 60, 7, 95)返回：F..

2021-08-31 16:33:08 222

原创做N以内的素数表

'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。功能：1．找到N以内所有素数，返回这些素数的数量。功能：2．找到N以内所有素数，返回这些素数组成的数组。功能：3．找到N以内所有素数，返回其中最大的素数。因为本函数是以做素数表为基本功能，所以实现功能3并不是最快捷的办法，更快的办法应该是，从N向下依次判断这些数字是不是素数，如果是素数就返回该数字。速度：第1E7以内素数1秒内出结果素数总计664579个。第1E8以内素数7-9秒内出结果素数总计57614

2021-08-31 13:55:13 179

原创做前N个素数表

'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。功能：1．找到第N个素数。功能：2．做一个由前N个素数组成的数组。速度：第1E4个素数可以大约1.5～2.5秒出结果104729。第1E5个素数三分钟出结果1299709。更大的数字没有测。输入格式：FFSushubiao(正整数)，例如：FFSushubiao(10000)上面格式返回第10000个素数： 104729FFSushubiao(正整数, 2)，例如：FFSushubiao(1000

2021-08-31 13:31:47 87

原创文本型数值计算乘积

'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。功能：求一至多个文本数字的乘积，并将乘积以文本形式返回。特点：1．对参与计算的数字数目没有限制。特点：2．数字支持正数、负数、整数、小数，不支持十进制阿拉伯数字以外的数字形式。特点：3．结果为精确值，非近似值，不存在溢出现象。位数几乎无限（并非真正的无限）。调用格式：FFChengji("152648226598323268926598.256498",-2115793,0.29894)可以文本

2021-08-30 17:45:18 666

原创文本型数值求和

'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。功能：对一至多个文本数字求和，并将和以文本形式返回。特点：1．对参与计算的数字数目没有限制。特点：2．数字支持正数、负数、整数、小数，不支持十进制阿拉伯数字以外的数字形式。特点：3．结果为精确值，非近似值，不存在溢出现象。位数几乎无限（并非真正的无限）。调用格式：FFQiuhe("152648226598323268926598.256498",-2115793,0.29894)可以文本数字和数

2021-08-28 20:04:04 643

原创汉语数字转换成阿拉伯数字

'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。功能：将汉语数字转换成阿拉伯数字。特点：1．汉语数字支持大写数字和小写数字，甚至大小写混写的情况。特点：2．数字支持正数、负数、整数、小数、有或没有计数单位，数字前后有其他文字等情况。有效的汉字形式：小写汉字例子："三百九十四亿〇五百九十九万〇二十二亿四千万〇三千五百九十亿〇四百九十五"大写汉字例子："贰佰肆拾陆亿陆仟贰佰陆拾伍万肆仟陆佰捌拾陆亿贰仟陆佰叁拾贰万肆仟陆佰"混写的例子："三百九十四亿

2021-08-27 23:50:26 1606

原创阿拉伯数字转换成汉语数字

'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。功能：将阿拉伯数字转换成汉语数字。特点：1．可以转换成小写汉字和大写汉字两种常用表达方式中的一种。效果如下：FFDushu(阿拉伯数字)'返回“〇一二三四五六七八九十百千万亿”这样的数字FFDushu(阿拉伯数字,2)'返回“零壹贰叁肆伍陆柒捌玖拾佰仟万亿”这样的数字特点：2．阿拉伯数字可以是整数或小数，可以是正数或负数，同一个数字中间也可以用逗号或空格分段。特点：3．输入的阿拉伯数字可以是字

2021-08-27 21:10:49 1020

ggggwhw的博客