VBA用太极点与准线开始相加

laoau138

VBA用太极点与准线开始相加


有三个变量，第一个"F1控制A:C列数据倒数7行"开始计算
第二个"第几列",1代表A列，2代表B列，3代表C列, I1=1(第1列)
第三个"间隔多少行",L1=2(间隔2行)

模拟过程:倒数7行就是绿底第17行开始，

I1与K1联合起来计算太极点
I1代表A列也就是A17,   K1=2(从A17间隔2行，就是A19为太极点)
计算完A19 ，再从A20再开始，一直循环A列太极点

以A19=1为太极点,以R17C1=3,R17C2=8,R17C3=4,R18C1=4,R18C2=4,R18C3=6为准线，
分别相加  1+3=4,1+8=9 , 1+4=5  ,1+4=5, 1+4=5,  1+6=7
就得到黄底单元格第19行数据   
然后从A20为太极点,R18C1至R18C3，R19C1至R19C3继续相加
以A20=7为太极点,以R18C1=4,R18C2=4,R18C3=6,R19C1=1,R19C2=7,R19C3=4为准线
分别相加 如果相加和值大于10  用mod 10取尾数
7+4=11取尾为1  7+4=11取尾为1  7+6=13取尾为3
7+1=8   7+7=14取尾为4   7+4=11取尾为1
其它如此类推如何用VBA计算

lmze2000

你第20行以下的没看明白是咋来的。

laoau138

lmze2000 发表于 2017-1-25 17:25
你第20行以下的没看明白是咋来的。

一样如此计算，    漏了一个条件没有讲清楚    就是当相加和值大于10     取尾数



VBA用太极点与准线开始相加


有三个变量，第一个"F1控制A:C列数据倒数7行"开始计算
第二个"第几列",1代表A列，2代表B列，3代表C列, I1=1(第1列)
第三个"间隔多少行",L1=2(间隔2行)

模拟过程:倒数7行就是绿底第17行开始，

I1与K1联合起来计算太极点
I1代表A列也就是A17,   K1=2(从A17间隔2行，就是A19为太极点)
计算完A19 ，再从A20再开始，一直循环A列太极点

以A19=1为太极点,以R17C1=3,R17C2=8,R17C3=4,R18C1=4,R18C2=4,R18C3=6为准线，
分别相加  1+3=4,1+8=9 , 1+4=5  ,1+4=5, 1+4=5,  1+6=7
就得到黄底单元格第19行数据   
然后从A20为太极点,R18C1至R18C3，R19C1至R19C3继续相加
以A20=7为太极点,以R18C1=4,R18C2=4,R18C3=6,R19C1=1,R19C2=7,R19C3=4为准线
分别相加 如果相加和值大于10  用mod 10取尾数
7+4=11取尾为1  7+4=11取尾为1  7+6=13取尾为3
7+1=8   7+7=14取尾为4   7+4=11取尾为1
其它如此类推如何用VBA计算

lmze2000

laoau138 发表于 2017-1-25 17:42
一样如此计算，    漏了一个条件没有讲清楚    就是当相加和值大于10     取尾数

你看一下是不是这样的效果。

laoau138

lmze2000 发表于 2017-1-25 20:06
你看一下是不是这样的效果。

真够高手了

laoau138

lmze2000 发表于 2017-1-25 20:06
你看一下是不是这样的效果。

高手这条如何做

http://www.excelpx.com/thread-427373-1-1.html

用VBA数组统计B列 上一行出现同尾数 下一行跟尾数字总次数