Tag: 微调

VBA / Excel的微调输出不是一个数字，螺丝与Excel命令

我在我的用户表单中添加了一个Spinner，输出到一个文本框 Private Sub Level_Spinner_Change() Level_Select.Text = Level_Spinner.Value End Sub 然后将其导出到不同的工作表 'Write Level into Main Worksheet Worksheets("Main").Range("E1").Value = Level_Select 但是，新工作表中的结果不是一个数字，并且在excel命令中不起作用。 例如， IF(E1<5,E1,"N/A") 向所有值报告N / A。 如果我到特定的单元格，我可以单击错误消息并将其转换为数字，但我不知道如何使它自动执行或修复VBA代码中的错误。 我不能 Dim Level_Select as Integer 代码中的任何地方，因为它根本不会运行，或者只是在导出的单元格中报告零。 我无法将.text更改为.value，因为它没有效果。

通过“旋转”button启动不同的工作表

想要使用“旋转”button（ActiveX控件）来显示上一张或下一张。 点击button后，事件被成功触发，所需表单被激活，但是它保存了原始表单中的一些元素（命令，graphics等），并将其显示为附加图片。 向下button事件的示例代码： Private Sub SpinButton_JumpToWeek_SpinDown() Dim sh_num As String Dim tmp_num As Integer Application.ScreenUpdating = False Application.EnableEvents = False SpinButton_JumpToWeek.Value = Range("B27").Value – 1 tmp_num = SpinButton_JumpToWeek.Value ' Activate desired KTx sheet sh_num = "KT" & tmp_num Range("F27").Value = "" 'reset to blank Sheets(sh_num).Activate Application.ScreenUpdating = True Application.EnableEvents = True End Sub 要覆盖这种效果，我必须手动select（激活）另一张纸，然后再次select所需的纸张。 我也尝试用macros自动化这个解决方法，但不幸的是它不工作。 […]