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

rangeÂ÷©_°ÝÃD

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-7-4 11:40 ½s¿è

¦^´_ 1# HSINLI


    ³o¼Ë¨S°ÝÃD°Ú¡I°²¦p½d³òA1:C10¦n¤F¡A§A¤]¥i¥H¼Ð¥ÜA10:C1ªº¨âºØ¼gªk³£¹ï
½d³ò¦b¤@¯ë¼gªk¼Æ¦r¤pªº¦C·|¦b«e­±¡A¼Æ¦r¤jªº·|¦b«á­±
¨Ì$A$100:$L$188ªº¼gªk©M$A$188:$L$100¨ä¹ê¬O¤@¼Ëªº¡I
¦Ó$A$188:$L$1000¡A188ªº¼Æ¦r¤ñ1000¤p©Ò¥H¹q¸£ª½±µ§PÂ_¬°$A$188:$L$1000¡A¦ý­Y¥Î¤H¤u¼gªº¤]¥i¥H¼g$A$1000:$L$188
  1. Public Sub test()
  2. Range("A10:c1").Select
  3. Range("A1:c10").Select
  4. End Sub
½Æ»s¥N½X
¤W­±¥N½Xµª®×µ²ªG³£¬O¤@¼Ëªº¡I

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-7-4 11:59 ½s¿è

¦^´_ 4# jackyq


IF"A2:C100" <> "A100:C2"¡@Then
    Msgbox "³o¬O¤£¦Pªº¿ï¨ú°Ï"
End iF
¤W­±¥N½X¬O¨â²Õ¤£¦Pªº¦r¦ê
½d³ò«h¬O¦ì¸m¡A¬O¬Û¦Pªº¡I¦p¤U¡G
If Range("A10:c1").Address <> Range("A1:c10").Address Then
    MsgBox "³o¬O¤£¦Pªº¿ï¨ú°Ï"'
End If
©Ò¥H³o¤£¬O¿ù»~¡I

TOP

¦^´_ 9# HSINLI


    "i - 1 * 100 + 88"¬O¬°­t­Èrange¤£¥i¯à¦³­t­Èªº¡I

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD