ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð¦¹µ{§Ç¦p¦ó­×§ï??

[µo°Ý] ½Ð±Ð¦¹µ{§Ç¦p¦ó­×§ï??

¥»©«³Ì«á¥Ñ t8899 ©ó 2014-10-30 18:43 ½s¿è

Sub MA3333()
Dim tou, aa
SET TOU = Range("A300").End(xlUp).Offset(0, 1) '©Ò¦b¦ì¸m
Set aa = Range(tou&":B222").Find(What:="", LookIn:=xlFormulas, SearchOrder:=xlByColumns) '©Ò¦b¦ì¸m¨ìB222 §äªÅ¥ÕªºÀx¦s®æ
If aa Is Nothing Then
MsgBox aa.Address
End If
End Sub

¥»©«³Ì«á¥Ñ luhpro ©ó 2014-10-30 22:14 ½s¿è
Sub MA3333()
Dim tou, aa
SET TOU = Range("A300").End(xlUp).Offset(0, 1) '©Ò¦b¦ì¸m
Set aa = Range ...
t8899 µoªí©ó 2014-10-30 18:42

Set aa = Range(tou, [B222]).Find(What:="", LookIn:=xlFormulas, SearchOrder:=xlByColumns) '©Ò¦b¦ì¸m¨ìB222 §äªÅ¥ÕªºÀx¦s®æ

¥t :
If aa Is Nothing Then
MsgBox aa.Address
End If
¥Ã»·¤£·|¥¿½T°õ¦æ.

¦]¬°·í aa Is Nothing ®É, aa ¬°ªÅ­È,
·|¥X²{ "¨S¦³³]©wª«¥óÅܼƩΠWith °Ï°ìÅܼÆ" ªº¿ù»~.
À³¸Ó§ï¦¨ :
If Not aa Is Nothing Then

TOP

Set aa = Range(tou, ).Find(What:="", LookIn:=xlFormulas, SearchOrder:=xlByColumns) '©Ò¦b¦ì¸m¨ìB222 ...
luhpro µoªí©ó 2014-10-30 22:04

ÁÂÁ«ü¾É

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD