如何实现分段计价功能
例题描述
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 复制Excel中B2-F39区域的数据,在集算器中双击A1,按Ctrl+V把数据复制到A1格中
B1 复制Excel中H2-K7区域的数据,在集算器中双击B1,按Ctrl+V把数据复制到B1格中
A2 把A1中的数据读成序表,选项@t表示首行是列标题
B2 把B1中的数据读成序表,选项@t表示首行是列标题
A3 取B2中的开始时间列的所有值组成序列
A4 循环A2中每一行
B4 查询充电开始时间在A3中的分段区间中的段号
B5 如果段号为0(即0到6点),则改为第5段(22点以后)
B6 将电价设为B2中对应时间段的电价
B7 将备注设为B2中对应时间段的备注
A8 取A2中的电价、备注列转成字符串后放到剪贴板中
3、 按F9运行程序,运行结束后再回到Excel文件,点击E3,按Ctrl+V就可以把剪贴板中的数据粘贴过来。如下图所示:
【附件】 fdjj.zip
没考虑跨段?
有点麻烦,算了,规则也不确定