§ä¥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

¦^´_ 2# Hsieh

ÁÂÁ¤j¤j.
¦ý§Ú¬O·Q­n³o­Ó.
½Ð°Ý¤j¤j³o­Ó¥i¥H¤Æ²¶Ü?

1. Sub nn()
   
2. b = 0
   
3. For Each a In Range("A1:C5,E6:G10,A11:C15 ")
   
4. b = b + WorksheetFunction.CountIf(a, 1)
   
5. Next
   
6. 
   
7. If b = 1 Then
   
8. For Each a In Range("A1:C5,E6:G10,A11:C15 ")
   
9.   If a = 1 Then i1 = a.Row: j1 = a.Column: Exit For
   
10. Next
    
11. End If
    
12. 
    
13. MsgBox i1 & "    " & j1
    
14. 
    
15. 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ÅܼÆ.

basarasy

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

basarasy

¦^´_ 10# GBKEE

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

basarasy

¦^´_ 12# GBKEE


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