如何实现分段计价功能

 

例题描述

Excel文件中有两个表,表一中的电价、备注需要根据充电开始时间查询表二中对应时段的电价和备注。如下图所示:

..

 

实现步骤

1、  运行集算器

可去润乾官网下载职场版,同时下载一个免费授权就够了,首次运行时会提示加载。

2、  编写脚本:

..

把代码列出来看得清楚点:


A

B

1

...

...

2

=A1.import@t()

=B1.import@t()

3

=B2.(开始时间)


4

for A2

>x=A3.pseg(time(A4.充电开始时间))

5


>x=if(x==0,5,x)

6


=A4.field("电价",B2(x).电价)

7


=A4.field("备注",B2(x).备注)

8

=clipboard(A2.new(电价,备注).export())


A1   复制ExcelB2-F39区域的数据,在集算器中双击A1,按Ctrl+V把数据复制到A1格中

B1   复制ExcelH2-K7区域的数据,在集算器中双击B1,按Ctrl+V把数据复制到B1格中

A2   A1中的数据读成序表,选项@t表示首行是列标题

B2   B1中的数据读成序表,选项@t表示首行是列标题

A3   B2中的开始时间列的所有值组成序列

A4   循环A2中每一行

B4   查询充电开始时间在A3中的分段区间中的段号

B5   如果段号为0(06),则改为第5(22点以后)

B6   将电价设为B2中对应时间段的电价

B7   将备注设为B2中对应时间段的备注

A8   A2中的电价、备注列转成字符串后放到剪贴板中

 

3、  F9运行程序,运行结束后再回到Excel文件,点击E3,按Ctrl+V就可以把剪贴板中的数据粘贴过来。如下图所示:

..

 

 

【附件】 fdjj.zip