VBA/Excel 微调器输出不是数字，用 excel 命令拧紧

Question

我在我的用户表单中添加了一个 Spinner，它输出到一个文本框

Private Sub Level_Spinner_Change()

Level_Select.Text = Level_Spinner.Value

End Sub

然后导出到不同的 sheet

'Write Level into Main Worksheet
Worksheets("Main").Range("E1").Value = Level_Select

但是，新 sheet 中的结果不是数字，并且在 excel 命令中不能作为数字使用。例如，

IF(E1<5,E1,"N/A")

返回 N/A 所有值。如果我转到特定的单元格，我可以单击错误消息并将其转换为数字，但我不知道如何让它自动执行或修复 VBA 代码中的错误。我不能

Dim Level_Select as Integer

代码中的任何位置，因为它根本不会 运行，或者只是在导出的单元格中报告零。我无法将 .text 更改为 .value，因为它没有任何效果。

Answer 1

通过将微调器值插入文本框，它会转换为字符串。只需使用原始微调器值粘贴到 Excel 单元格，因此它将保持为整数：

Worksheets("Main").Range("E1").Value = Level_Spinner.Value