程序导致types不匹配

嗨，我有这个程序的问题：

Sub initiative(name As Range, initiative_range As Range, number As Integer) Worksheets("battle").Range("a6").Offset(0, number).Value = name Worksheets("battle").Range("b6").Offset(0, number).Value = Round(19 * Rnd) + 1 + CInt(initiative_range.Value) End Sub 

第三行导致types不匹配问题。 我使用这个子类来调用它：

 Call initiative(Worksheets("character").Range("AD24"), Worksheets("character").Range("b1"), 1) 

Answer 1

这意味着这四个组件之一是一个不匹配的数据types：

 Worksheets("battle").Range("b6").Offset(0, number).Value Round(19 * Rnd) 1 CInt(initiative_range.Value) 

或者， CInt(initiative_range.Value)不能转换为整数。

或者， number不是一个数字

为什么不进入debugging模式并检查每个组件并将其解决。

这可能是CInt一部分。