Excel 2003中VBA工程
PrivateSubTextBox_shiyong_KeyUp(ByValKeyCodeAsMSForms.ReturnInteger,ByValShiftAsInteg...
Private Sub TextBox_shiyong_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If VBA.Val(TextBox_shiyong.Text) > Val(TextBox_xianzi.Text) Then
TextBox_shiyong.Text = 10
MsgBox "使用列数不可以大于最大限制使用列数!", 64, "(只为提高效率)提示:"
End If
If TextBox_shiyong.Text = 0 Then TextBox_shiyong.Text = 10
End Sub
Private Sub TextBox_shiyong_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode > 47 And KeyCode < 58 Or KeyCode > 95 And KeyCode < 104 Or KeyCode = 8 Then Else KeyCode = 0
End Sub
求翻译 这段代码什么意思 展开
If VBA.Val(TextBox_shiyong.Text) > Val(TextBox_xianzi.Text) Then
TextBox_shiyong.Text = 10
MsgBox "使用列数不可以大于最大限制使用列数!", 64, "(只为提高效率)提示:"
End If
If TextBox_shiyong.Text = 0 Then TextBox_shiyong.Text = 10
End Sub
Private Sub TextBox_shiyong_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode > 47 And KeyCode < 58 Or KeyCode > 95 And KeyCode < 104 Or KeyCode = 8 Then Else KeyCode = 0
End Sub
求翻译 这段代码什么意思 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询