求大佬幫助

華dee

如何將B2:S237單元格内的數值有小數點的單元格用msgbox提示他所在的位置，提示例如 B8  G9

lsdongjh

一次性提示还是 逐个提示

華dee

lsdongjh 发表于 2018-7-6 14:20
一次性提示还是 逐个提示

一次性和多次都弄一下吧，本人想學習一下

lsdongjh

其实直接用 条件格式 更直观

lsdongjh

liulang0808

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.                 If Rng Is Nothing Then
   
9.                     Set Rng = Cells(j, i)
   
10.                 Else
    
11.                     Set Rng = Union(Rng, Cells(j, i))
    
12.                 End If
    
13.             End If
    
14.         Next i
    
15.     Next j
    
16.     If Not Rng Is Nothing Then MsgBox Rng.Address(0, 0)
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

華dee

lsdongjh 发表于 2018-7-6 14:24
其实直接用 条件格式 更直观

因爲想用vba做出來

liulang0808

附件内容供参考。。。。。。

lsdongjh

重点其实就是 instr函数
InStr(arr(j, i), ".") > 0

華dee

liulang0808 发表于 2018-7-6 14:26
附件内容供参考。。。。。。

感謝大佬幫忙，已經可以了