恳请大神们帮忙修改下这个代码

qiongmei6 · 发表于 2024-1-31 19:27

我附件上有一个代码，我想实现的功能是，在执行的时候，他会检查q3：q125列，如果发现q列任何单元格输入小数点的数都会提示“该列不允许输入非整数”我希望在我原有的公式上修改，如果不行也可以另外给代码，谢谢各位大神的帮忙
Sub 检查()

For i = 3 To 125
If Cells(i, 3) <> "" And Cells(i, 17) = 0# Then
MsgBox "该项目不允许输入非整数"
Exit Sub
End If
Next i

End Sub

大灰狼1976 · 发表于 2024-1-31 19:33

If Cells(i, 3) <> "" And Cells(i, 17).Text Like "*.*" Then

ykcbf1100 · 发表于 2024-1-31 20:05

If Cells(i, 3) <> "" then
if int(Cells(i, 17))<>cells(i,17) Then
MsgBox "该项目不允许输入非整数"

		自动登录	找回密码
密码			免费注册

[求助] 恳请大神们帮忙修改下这个代码

评分

评分