以EXCEL纪录股市指数，如何以VBA计算周KD

doit0615

大家好,
我都是以EXCEL纪录股票指数每日数据(日K)
如附件，依日期新旧往下排列开盘-最高-最低-收盘价格
但是这样以日K纪录的方式，仅能技术分析计算日KD而已
如果我希望也能同时读出当日在周KD区间下，当日的周KD数据呈现在最右边的三栏，VBA该如何写呢？


备注：
1.KD技术指标公式：http://www.ezchart.com.tw/inds.php?IND=KD
2.日KD：根据当日收盘与近N日的最高、最低价计算而得
3.周KD：应该要先算出每周的收盘、最高、最低价。然后再参考日KD计算方式，得出当日的周KD数据
4.目前近N日KD及近N周KD，N都是取9，后续如果可以自订更好
5.最后可呈现的图表及概念类似多周期KD想法 https://goo.gl/7bB8y3
.
.
.
周KD标准呈现方式如下图，但这是用周K算出来的
<img src="http://attach.mobile01.com/attach/201612/mobile01-108842501112770092f8a63054da463e.png">

我希望在日K也能呈现当日在周KD的数据
<img src="http://attach.mobile01.com/attach/201612/mobile01-ad3f02c18824a297a5ca9715609207ba.png">