如何解决用户表单更改:运行时错误代码'13:类型不匹配
我在用户表单中使用以下代码将每小时/每天的费率计算到一个文本框中,然后将其粘贴到电子表格中。
我遇到的问题是当成绩组合框改变时,我得到一个运行时代码类型不匹配。
有人知道我哪里出错了吗?
很抱歉代码很长,但我是新手,正在工作中学习,如果有人有改进代码的建议,那也欢迎。
调试落在我在 End If
之后将“**”放在最后的位置
cboGrade.BackColor = vbWhite
If cboOffice.value = "Croydon" Then
Select Case cboGrade.value
Case Is = "SCS"
TxtGradePHour.value = SCSphC
End Select
Select Case cboGrade.value
Case Is = "Grade 7+"
TxtGradePHour.value = G8phC
End Select
Select Case cboGrade.value
Case Is = "Grade 6"
TxtGradePHour.value = G6phC
End Select
Select Case cboGrade.value
Case Is = "Grade 7"
TxtGradePHour.value = G7phC
End Select
Select Case cboGrade.value
Case Is = "SEO+"
TxtGradePHour.value = SEO1phC
End Select
Select Case cboGrade.value
Case Is = "SEO"
TxtGradePHour.value = SEOphC
End Select
Select Case cboGrade.value
Case Is = "HEO"
TxtGradePHour.value = HEOphC
End Select
Select Case cboGrade.value
Case Is = "EO"
TxtGradePHour.value = EOphC
End Select
Select Case cboGrade.value
Case Is = "AO"
TxtGradePHour.value = AOphC
End Select
Select Case cboGrade.value
Case Is = "AA"
TxtGradePHour.value = AAphC
End Select
Select Case cboGrade.value
Case Is = "APP"
TxtGradePHour.value = APPphC
End Select
Else
Select Case cboGrade.value
Case Is = "SCS"
TxtGradePHour.value = SCSph
End Select
Select Case cboGrade.value
Case Is = "Grade 7+"
TxtGradePHour.value = G8ph
End Select
Select Case cboGrade.value
Case Is = "Grade 6"
TxtGradePHour.value = G6ph
End Select
Select Case cboGrade.value
Case Is = "Grade 7"
TxtGradePHour.value = G7ph
End Select
Select Case cboGrade.value
Case Is = "SEO+"
TxtGradePHour.value = SEO1ph
End Select
Select Case cboGrade.value
Case Is = "SEO"
TxtGradePHour.value = SEOph
End Select
Select Case cboGrade.value
Case Is = "HEO"
TxtGradePHour.value = HEOph
End Select
Select Case cboGrade.value
Case Is = "EO"
TxtGradePHour.value = EOph
End Select
Select Case cboGrade.value
Case Is = "AO"
TxtGradePHour.value = AOph
End Select
Select Case cboGrade.value
Case Is = "AA"
TxtGradePHour.value = AAph
End Select
Select Case cboGrade.value
Case Is = "APP"
TxtGradePHour.value = APPph
End Select
End If
**TxtGradeMax = Format(Me.TxtGradePHour.value * 7.4,"#,##0.00")**
TxtGradeMax = Format(TxtGradeMax,##0.00")
End Sub```
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。