Range ÅܼÆ

eric7765

©êºp ª¦¤F«Ü¦h¤å³¹ ¦ý³o­Ó·Pı«Ü²³æªºÅÜ¼Æ ÀY¸£¤@ª½¥´µ²
³Â·Ð«e½ú­Ì«üÂI
   i=Àx¦s®æ D1
·Q­n¿ï¨ú A1:B & i &
³o¬qµ{¦¡½XÀ³¸Ó «ç»ò¼g

eric7765

¦^´_ 1# eric7765
ªþ­Ó¹Ï
·Q¿ï¨ú A1¨ìB  ¿ï¨úªº¤ñ¼Æ °Ñ·ÓD1

¤U¸ü (38.38 KB)

2019-3-6 18:04

­ã´£³¡ªL

RANGE("A1:B" & i)
[A1:B1].RESIZE(i)
[A1].RESIZE(i, 2)

eric7765

¦^´_ 3# ­ã´£³¡ªL
­ã¤j ©êºp ¤p§Ì¹ê¦b¬O¤Ó·s¤â¤F ¥»¨Ó·Q»¡°Ý§¹­«ÂI¦Û¤vºN¯Á ¦ý³£¥X²{ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk

¤è«K±Ð§Ú¸Ì­±­n¦p¦ó¶ñ¼g ·|Åý§Ú«ö«ö¶s1®É ·|¿ï¨ú A1:B?  Àx¦s®æD1  ¹³¹Ï¤ù³o¼Ë  D1¦pªG¬O ·|¿ï¨ú5­Ó  D1 ¦pªG¬O10·|¿ï¨ú10­Ó

¤U¸ü (38.38 KB)

2019-3-6 21:46

1. Sub «ö¶s1_Click()
   
2. 
   
3. 
   
4. 
   
5. End Sub

½Æ»s¥N½X

ML089

¦^´_ 4# eric7765

Sub ex()
    [A:C].ClearContents
   
    Range("A1:B" & [d1]) = 1
    [A11:B11].Resize([d1]) = 2
    [A21].Resize([d1], 2) = 3
End Sub

«öF8³v±ø°õ¦æ¬d¬Ý

­ã´£³¡ªL

¦^´_ 4# eric7765


RANGE("A1:B" & i).select
[A1:B1].RESIZE(i).select
[A1].RESIZE(i, 2).select

¤TºØ³£¥i¥Î~~

eric7765

¤j·PÁÂ
¨â¦ìª©¥DÅý§Ú¨ü¯q¨}¦h