求大佬幫助

華dee

lsdongjh 发表于 2018-7-6 14:28
重点其实就是 instr函数
InStr(arr(j, i), ".") > 0

感謝幫助！

華dee

liulang0808 发表于 2018-7-6 14:26

版主，能帮忙注解一下吗有些地方不是很了解

華dee

liulang0808 发表于 2018-7-6 14:26

如果我只是想要s行出现小数点才msgbox怎么改

liulang0808

華dee 发表于 2018-7-6 16:24
如果我只是想要s列出现小数点才msgbox怎么改

1. Sub test1()
   
2.     arr = [a1].CurrentRegion.Value
   
3.     Set Rng = Nothing
   
4.     Application.ScreenUpdating = False
   
5.     For j = 2 To UBound(arr)
   
6.         For i = 2 To UBound(arr, 2)
   
7.             If InStr(arr(j, i), ".") <> 0 Then
   
8.                     MsgBox cells(j,i).Address(0, 0)
   
9. 
   
10.             End If
    
11.         Next i
    
12.     Next j
    
13.    
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    

复制代码

華dee

liulang0808 发表于 2018-7-6 16:26

但是其他单元格有小数点一样会弹出窗口提示，我现在是想所有的都不提示只有s行出现小数点提示，其他单元格出现不提示

liulang0808

華dee 发表于 2018-7-6 16:32
但是其他单元格有小数点一样会弹出窗口提示，我现在是想所有的都不提示只有s行出现小数点提示，其他单元 ...

那么就对s行进行遍历循环即可啊

華dee

liulang0808 发表于 2018-7-6 16:36
那么就对s行进行遍历循环即可啊

经过自己测试可以了，谢谢版主

華dee

華dee 发表于 2018-7-6 16:32
但是其他单元格有小数点一样会弹出窗口提示，我现在是想所有的都不提示只有s行出现小数点提示，其他单元 ...

Sub 检测()
arr = [a1].CurrentRegion.Value
Set Rng = Nothing
Application.ScreenUpdating = False
For j = 1 To UBound(arr)
        If InStr(arr(j, 19), ".") <> 0 Then
            MsgBox Cells(j, 19).Address(0, 0)
        End If
Next j
Application.ScreenUpdating = True
End Sub