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

[µo°Ý] ¦p¦ó±N¨C­Ó®É¬q¤ºªº«ü©w¼Æ­È©â¥X

¦^´_ 7# GBKEE


    G¤j¡A·Q½Ð°Ý±zÃö©ó³oÃä°}¦CÅÞ¿è°ÝÃD

Option Explicit
Sub Ex()
    Dim AR(),  ³o¸Ì«Å§i¤@²Õ°}¦CÅܼƧڤF¸Ñ   Rng As Range, i As Integer, A(1 To 6), T As Integer   
    ReDim AR(0)  ¬°¤°»ò³o¸Ì°¨¤W´N­n­«·s©w¸q°}¦CÅܼƩO?   
                                                        ¦Ó¥B§Ú¦³¤@­ÓºÃ°Ý  AR(0) ¬O³o­Ó°}¦C¤¸¯À¤¤ªº²Ä¤@­ÓÅܼÆ?  ÁÙ¬O ­«·s«Å§i¾ã­Ó°}¦CÅܼÆ

    With Sheets("Sheet1")
        .[B:B].Replace "000", "00", xlPart         '­×§ï¬°®É¶¡®æ¦¡ **********
        AR(0) = .[A1:F1]   

³o¬O§Ú²Ä¤G­ÓºÃ´bªºÂI¢I@"  ­«·s§â¤¸¯À½á¤©µ¹ AR(0)  ³o¬O¤°»ò·N«ä  
·N«ä¬O   
AR(0) = A1  
AR(1)=B1
AR(2)=C1
AR(3)=D1
AR(4)=E1
AR(5)=F1   

OR  

AR(0) ¸Ì­±´N§t¦³  ¤»­Ó¤¸¯À??    §Úı±o©Ç©Çªº ©Ò¥H¯S¦¹½Ð±Ð@@

¥H¤WÁÂÁÂ~^^

TOP

¦^´_ 21# handsometrowa
Dim AR(),  ³o¸Ì«Å§i¤@²Õ°}¦CÅܼƧڤF¸Ñ                -> ÁA¸Ñ¥¦¬O°ÊºA°}¦C,ªÅªº°}¦C??
ReDim AR(0)  ¬°¤°»ò³o¸Ì°¨¤W´N­n­«·s©w¸q°}¦CÅܼƩO?   ->·s¼W¤@¤¸¯À (§@¬°ªíÀY¥Îªº)  
­«·s§â¤¸¯À½á¤©µ¹ AR(0)  ³o¬O¤°»ò·N«ä                  -> ½Ð«öF8 ³v¦æ°õ¦æµ{¦¡,¹L¤F¦æ AR(0) = .[A1:F1] ¨ì[À˵ø]-[°Ï°ìÅܼƵøµ¡] ¬ÝAR(0)ªº¤º®e
¨Ò¦p  .[B5:F9] => ¤Gºû°}¦C( 1 To  9 - 4 , 1 To  5 [BÄæ - FÄ檺 Äæ¼Æ] ) =>¤Gºû°}¦C( ¦C¼Æ , øó¼Æ )
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD