§ä¥Xrow©Mcol°ÝÃD

basarasy

½Ð°Ý¤j¤j¦p¦ó §ä¥X A1:C5,E6:G10,A11:C15 ¥u¦³1­ÓÀx¦s®æªº­È¬O1ªº´N§ä¥X¥¦ªºrow©Mcol.
i1=row
j1=col

basarasy

¦^´_ 12# GBKEE


    ®@.ÁÂÁ¤j¤j.
­ì¨Ó¥Î End µ²§ôµ{¦¡¥i¥H°µ¨ì.¤S¾Ç·|¤F¤@¼ËªF¦è><

GBKEE

¦^´_ 11# basarasy
¦n¹³¨S¦³! ¦p¦³½Ð¦U¦ì¥ý«Ø´£¨Ñ.
¦ýµ{¦¡½X¤¤¥Î End ¥Hµ²§ôµ{¦¡,¤]¬O¤@ºØ¤è¦¡.

basarasy

¦^´_ 10# GBKEE

¦pªG¦³ÅܼÆA-Z
A=Nothing
B=Nothing
C=Nothing............
¥i¥H  ALL=Nothing¶Ü?

GBKEE

¦^´_ 9# basarasy
¦p¦ó1¦¸¹L§â©Ò¦³ªº ÅܼÆ=Nothing?
¥i¥H¦A»¡©ú¥Õ¨Ç¶Ü?

basarasy

¦^´_ 8# GBKEE
¬O³o­Ó¤F.
«D±`·PÁÂGBKEE¤j¤j.
ÁÙ¦³­Ó¤p°ÝÃD¬O¦p¦ó1¦¸¹L§â©Ò¦³ªº ÅܼÆ=Nothing?

GBKEE

¦^´_ 7# basarasy
¬O³o¼Ë¶Ü?

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

½Æ»s¥N½X

basarasy

¥ýÁÂÁÂ2¦ì¤j¤j.
¦ý§Ú·Q§äªº¬O,¦bA1:C5,E6:G10,A11:C15 ¥u¦³1­ÓÀx¦s®æªº­È¬O1ªº¼Æ,¦h¹L1­ÓÀx¦s®æªº­È¬O1ªº´N
¤£¥XMSGBOX.
¼Æ­È1¬OÅܼÆ.

Hsieh

¦^´_ 5# GBKEE


    ¥[¤J°Ñ¼Æ·|¦n¤@ÂI
    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