Vba 用于报告工作天数的消息

我使用下面的代码来通知任何在工资单中注册的人他工作少于30天。它工作得很好，但我遇到的问题是，给出的消息包含员工的姓名，例如，

Nabil Amer工作了H天

在这里，我希望消息定义天数，而不是字母“H”

Private子工作簿\u Open（）
出错时继续下一步
将名称设置为字符串
变暗和变长一样长
Dim RowNrString作为字符串
Dim CloumnEmpName作为字符串
Dim CLUMNNAMEREMSTATUS作为字符串
将状态设置为字符串
朦胧的白昼如细绳
工作表（“主工资单”）。选择
CloumnEmpName=“C”
CloumnNameRemStatus=“K”
Daysworked=“H”
RowNrNumeric=2
RowNrString=RowNrNumeric
EmpName=Range（CloumnEmpName+RowNrString）.Value
DueDate=范围（克隆中间值+行字符串）。值
RemStatus=范围（CloumnNameRemStatus+RowNrString）。值
不使用名称“”
如果单元格（行数值，8）。值<30_
而不是空的（单元格（RowNrNumeric，2））
MsgBox“警告：“+EmpName+”工作时间为“+Daysworked+”天”
范围（Daysworked+RowNrString）。Interior.ColorIndex=3
范围（Daysworked+RowNrString）。选择
如果结束
RowNrNumeric=RowNrNumeric+1
RowNrString=RowNrNumeric
EmpName=Range（CloumnEmpName+RowNrString）.Value
RemStatus=范围（CloumnNameRemStatus+RowNrString）。值
环
端接头

屏幕截图：

更改此选项：

MsgBox "WARNING: " + EmpName + " worked for " + Daysworked + " Days "

为此：

MsgBox "WARNING: " + EmpName + " worked for " & Range(Daysworked & RowNrNumeric).Value & " Days "

---

很抱歉，为了让自己更清楚，我还想添加图片，但我的系统不允许我这样做。请将图片上传到任何免费图片托管网站（例如imgur.com），并将链接粘贴到您的问题中。谢谢。

MsgBox "WARNING: " + EmpName + " worked for " & Range(Daysworked & RowNrNumeric).Value & " Days "