關於msgbox的問題

華dee

如何弄成msgbox提示的是單元格位置而不是內容?

數據錯誤多次只彈窗口一次

liulang0808

楼主的需求不是很明确
使用union将多个错误单元格组合一起，然后使用msgbox 返回区域地址即可

華dee

liulang0808 发表于 2018-7-2 13:45
楼主的需求不是很明确
使用union将多个错误单元格组合一起，然后使用msgbox 返回区域地址即可

本人剛接觸vba不久,還望版主能幫嗎弄出來看下效果

liulang0808

華dee 发表于 2018-7-2 14:40
本人剛接觸vba不久,還望版主能幫嗎弄出來看下效果

建议楼主结合附件，再将需求举例说明下，具体要做什么，怎么做

華dee

liulang0808 发表于 2018-7-2 13:45
楼主的需求不是很明确
使用union将多个错误单元格组合一起，然后使用msgbox 返回区域地址即可

或者說  假如F行的結果與H行的結果不同就會通過msgbox提示F行那個單元格數據不對

liulang0808

1. Sub aaa()
   
2.     Application.ScreenUpdating = False
   
3.     ActiveSheet.UsedRange.Interior.ColorIndex = 0
   
4.     arr = ActiveSheet.UsedRange
   
5.     Set Rng = Nothing
   
6.     For j = 1 To UBound(arr)
   
7.         If arr(j, 6) <> arr(j, 8) Then
   
8.             If Rng Is Nothing Then
   
9.                 Set Rng = Cells(j, 6)
   
10.             Else
    
11.                 Set Rng = Union(Rng, Cells(j, 6))
    
12.             End If
    
13.         End If
    
14.     Next j
    
15.     If Not Rng Is Nothing Then Rng.Interior.ColorIndex = 3
    
16.     Application.ScreenUpdating = True
    
17. End Sub
    

复制代码

liulang0808

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

華dee

liulang0808 发表于 2018-7-2 15:32
附件内容供参考。。。。。。

版主能弄成msgbox 彈窗嗎, 比如F2有錯彈出 "F2數據錯誤", F4有錯彈出"F4數據錯誤",這個能實現的了嗎?

liulang0808

代码见截图。。。

華dee

liulang0808 发表于 2018-7-2 15:51
代码见截图。。。

感謝版主,已經達到了我想要的目的