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

Range ÅܼÆ

Range ÅܼÆ

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

¦^´_ 1# eric7765
ªþ­Ó¹Ï
·Q¿ï¨ú A1¨ìB  ¿ï¨úªº¤ñ¼Æ °Ñ·ÓD1
range.png
2019-3-6 18:04

TOP

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

TOP

¦^´_ 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­Ó
range.png
2019-3-6 21:46
  1. Sub «ö¶s1_Click()



  2. End Sub
½Æ»s¥N½X

TOP

¦^´_ 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¬Ý
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# eric7765


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

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD