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

[µo°Ý] ¨âªí¤ñ¹ï«á±Nµ²ªG¿é¥X

²Ê²Lªº»¡
Dim Arr, Brr(), Crr(9,9)

(1)
Arr ¬OVariant, ¥i¥H½á¤_³æ¤@¤¸¯À, ©ÎÀx¦s®æ½d³ò¦¨¤@°}¦C, ©ÎRedim¬°¤@­Ó°}¦C
¨Ò:Arr=9, Arr="abc", Arr=range("A1:E9"), Redim Arr(1 to 9, 1 to 3)
   ¤£ºÞArr¤w³Q½á¤_¦óºØ«¬ºA¤Î¤º®e, ¨ä«á¤´¥iª½±µ¹ï¨ä½á¤_¨ä¥¦«¬ºA¤Î¤º®e,
   ·í¥Î Arr = Crr, ¤]¬O¥i¥H±µ¦¬¨ä¥¦"¤v©w¸q¥B¦s¦b"ªº°}¦C,
  
   ¦pªG³Q©w¬°°}¦C, ³Ì«á­nÄÀ©ñ¨ä¦û¥Îªº°O¾ÐÅé®É, ­Y¥Î Erase Arr, «h¥¦ÁÙ¬O°}¦C«¬ºA, ¥u¬O¨S¦³¤j¤p,
   ·íµM, ¥¦ÁÙ¬O¥i¥H¦A½á¤_¥ô¦ó¤º®e, ¦p Arr = Empty (ªì©l¤Æ)
__¥¦¬O¯È¼ß, ¥i¥H»s¦¨¥ô¦ó©Ò»Ý, ¦^¦¬®ÉÅܦ¨¯È¼ß

(2)
Brr(), ¬°°}¦C, ¥u¬OÁÙ¨S©w¤j¤p, ¦Ó¥B¥u¯à¥Î¤_°}¦C, ´N¹³¤@¶ô¦a¤w³W¹º»\©Ð¤l, ÁÙ¨S©w¥X»\´X¼h¤Î¹j¶¡, °£¤F©Ð¤l¤£¥i®¿§@¥¦¥Î,
¨ä¶¡¥i¥H¦b¥ô¦ó®É­Ô­«·s©w¸q¨ä¤j¤p¤Îºû«×, ¦p Redim Brr(9),  ¨C¦¸­«©w¸q, «e¨­¸ê®Æ§Y®ø¥¢,
­Y­n«O¯d«e¸ê®Æ, ¥BÂX®iªÅ¶¡, ¥i¥Î ReDim Preserve , ¦ý¥u¥i¥H§ïÅ̫ܳá¤@­Óºû«×ªº¤W¼Ð¬É¡A¦Ó¤£¯à§ïÅܺû¼Æ¡C
¥i¥Î Erase Brr ÄÀ©ñ¸ê®Æ, ¦ý«áÄò­n¥Î, ±o­«·s©w¸q!!
__¥¦¬O¤@±i¯È, µLªk¸ËªF¦è, ¥i¥H§é¦¨¥ô¦ó«¬ª¬¤Î¤j¤p¥h¸ËªF¦è, «ì´_®ÉÁÙ¬O¤@±i¯È!!!

(3)
Crr(9, 9) ,¬°©T©w¤j¤pªº°}¦C, ³oÀ³¤£»Ý»¡©ú, Erase Crr ÄÀ©ñ¸ê®Æ, ¦ý¥u¬O²MªÅ¤º®e, ¤j¤pÁÙ¬O¤@¼Ë
__¥¦¬O­Ó¯È½c, ¥i¸Ë©T©w¤j¤pªºªF¦è, ­Ë±¼¥þ³¡¦AÄ~Äò¥Î

TOP

'If UCase(xD(T)(1)) = "DR" Then
'    If Arr(i, 10) > Arr(i, 11) Then
'        Brr(M, 7) = Brr(M, 7) + Arr(i, 10)
'    Else
'        Brr(M, 7) = Brr(M, 7) + Arr(i, 11)
'    End If
' ElseIf UCase(xD(T)(1)) = "CR" Then
'    If Arr(i, 10) > Arr(i, 11) Then
'        Brr(M, 7) = Brr(M, 7) - Arr(i, 10)
'    Else
'        Brr(M, 7) = Brr(M, 7) - Arr(i, 11)
'    End If
' End If


>>>>>
If UCase(xD(T)(1)) = "DR" Then S = 1 Else S = -1
If Arr(i, 10) > Arr(i, 11) Then C = 10 Else C = 11
Brr(M, 7) = Brr(M, 7) + Arr(i, C) * S

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD