找出row和col問題

basarasy

請問大大如何 找出 A1:C5,E6:G10,A11:C15 只有1個儲存格的值是1的就找出它的row和col.
i1=row
j1=col

basarasy

回復 12# GBKEE


    哦.謝謝大大.
原來用 End 結束程式可以做到.又學會了一樣東西><

GBKEE

回復 11# basarasy
好像沒有! 如有請各位先建提供.
但程式碼中用 End 以結束程式,也是一種方式.

basarasy

回復 10# GBKEE

如果有變數A-Z
A=Nothing
B=Nothing
C=Nothing............
可以  ALL=Nothing嗎?

GBKEE

回復 9# basarasy
如何1次過把所有的 變數=Nothing?
可以再說明白些嗎?

basarasy

回復 8# GBKEE
是這個了.
非常感謝GBKEE大大.
還有個小問題是如何1次過把所有的 變數=Nothing?

GBKEE

回復 7# basarasy
是這樣嗎?

1. Sub Ex()
   
2.     Dim X, E As Range, i%, Rng As Range
   
3.     X = 1  'X-> 數值的變數
   
4.     For Each E In Range("A1:C5,E6:G10,A11:C15")
   
5.         If E = X Then
   
6.             i = i + 1
   
7.             Set Rng = E
   
8.             If i >= 2 Then Exit For
   
9.         End If
   
10.     Next
    
11.     If i = 1 Then MsgBox "Row " & Rng.Row & " , Column " & Rng.Column
    
12. End Sub

複製代碼

basarasy

先謝謝2位大大.
但我想找的是,在A1:C5,E6:G10,A11:C15 只有1個儲存格的值是1的數,多過1個儲存格的值是1的就
不出MSGBOX.
數值1是變數.

Hsieh

回復 5# GBKEE


    加入參數會好一點
    Set Rng = Range("A1:C5,E6:G10,A11:C15").Find(1, lookat:=xlWhole)

GBKEE

Sub Ex()
    Dim Rng As Range
    Set Rng = Range("A1:C5,E6:G10,A11:C15").Find(1)
    If Not Rng Is Nothing Then MsgBox "Row " & Rng.Row & " , Column " & Rng.Column
End Sub