高手请进：帮我修改韵律和对仗

EXCEL VBA高手请进，请帮我修改一段VBA代码~~

If Cells(R, 2) = "" Then Cells(R, 2) = Int(Tmp) + Sgn(Tmp - Int(Tmp))
K列计算式改变后，代码是重新计算的，由于前面已经计算过一次，Cells(R, 2) 单元格已经填写了数据，不是空了，计算结果Tmp就没有重新填写到Cells(R, 2) 单元格。D列语句是
If C = 4 Then
Cells(R, 5) = Tmp
就是说只要D列单元格的值发生改变，Cells(R, 5) 就跟着改变。
把If Cells(R, 2) = "" Then Cells(R, 2) = Int(Tmp) + Sgn(Tmp - Int(Tmp))改成Cells(R, 2) = Int(Tmp) + Sgn(Tmp - Int(Tmp))就可以了。

没有现成的词牌可以套用，宋词的句式一般都是三五七字较多，像楼主你四 六字一句很少，南北朝骈体文倒是经常用四字句或者六字句对仗。

词写得不错，内容很清楚，战场的残酷，尤其一将万层白骨，把唐朝曹荣的名句“一将功成万骨枯”化到了自己的词里。

自创一个词牌吧，没什么不可以的，像现在我们耳熟能详的《虞美人》《乌夜啼》《青玉案》等等都是古人根据典故自创的。一楼兄弟所说的可以考虑一下，或者《角声寒》，《夜凄凉》，仅供参考。

[七律] 诗赠公平刘氏宗族

海丰桥头卷波澜，公平刘家不等闲；

数百年间文昌盛，九个英杰霸人寰；

连业开宗骏业兴，刘门毓秀炫群英；

洪范昭彰明道理，粤省海丰宗盛名。

韵律和七律诗的对仗无关紧要,本诗意义独特,不改更好!

“诗词总汇”网有格律校验工具，非常准确和适用
给你提供一下链接http://www.sczh.com/sczh/mcheck.asp

以下是校验结果，你可以再自行验证。

按[平水韵]
本作的韵脚是：闲寰英名
[闲]韵部是：十五删十六谏
[寰]韵部是：十五删
[英]韵部是：八庚
[名]韵部是：八庚
这是一首平起七律

●○○○⊙○○ ○○○○⊙●⊙ ●●○○○○⊙ ●●○●●○○ ○●○○●●⊙ ○○●●●○○ ○●⊙○○●● ●●●○○⊙○

第4字[头]格律有误，此处：应●而用○
第9字[平]格律有误，此处：应●而用○
第20字[昌]格律有误，此处：应●而用○
第23字[个]格律有误，此处：应○而用●
第30字[业]格律有误，此处：应○而用●
第32字[宗]格律有误，此处：应●而用○
第34字[业]格律有误，此处：应○而用●
第37字[门]格律有误，此处：应●而用○
第39字[秀]格律有误，此处：应○而用●
第41字[群]格律有误，此处：应●而用○
第51字[省]格律有误，此处：应○而用●
第53字[丰]格律有误，此处：应●而用○
第55字[盛]应○。[盛]是多音字，请您自行判断是否合律！

由此看来，你的这首律诗实在是太不合音韵了。
鉴于属于家谱大事，外人不敢擅自篡笔。你还是自己改吧。

---

高手请进：帮我修改韵律和对仗视频