Top > VBA ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ
Â裱£°²ó¡¡Â裱£±²ó¡¡Â裱£²²ó
Â裱£°²ó¡¡Â裱£±²ó¡¡Â裱£²²ó
Top > VBA ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ
Â裱£°²ó¡¡Â裱£±²ó¡¡Â裱£²²ó
Á°²ó¤Î¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤ÎÆ°ºî¤ò³Îǧ¤·¤Æ¤ß¤Þ¤·¤ç¤¦¡£
¤Þ¤º¤ÏÊ£¿ô¤Î½èÍý¤òƱ»þ¤Ë¸Æ¤Ó½Ð¤·¤Æ¤ß¤Þ¤¹¡£
°Ê²¼¤Î¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤¹¤ë¤È¡¢lngKey(0)¤Î»Ø¤·¼¨¤¹¥Ç¡¼¥¿¤Ë¤Ï0¡Á2¡¢
lngKey(1)¤Î»Ø¤·¼¨¤¹¥Ç¡¼¥¿¤Ë¤Ï1¡Á3¡¢lngKey(2)¤Î»Ø¤·¼¨¤¹¥Ç¡¼¥¿¤Ë¤Ï
2¡Á4¡¢¤È¤¤¤¦´¶¤¸¤Ç¥Ç¡¼¥¿¤¬Äɲ䵤ì¤Þ¤¹¡£
¼Â¹Ô·ë²Ì¤ò¸«¤ë¤È¹ç·×¤ÈÊ¿¶Ñ¤¬Àµ¤·¤¯·×»»¤µ¤ì¤Æ¤¤¤ë¤³¤È¤¬¤ï¤«¤ê
¤Þ¤¹¡£
¤Þ¤º¤ÏÊ£¿ô¤Î½èÍý¤òƱ»þ¤Ë¸Æ¤Ó½Ð¤·¤Æ¤ß¤Þ¤¹¡£
°Ê²¼¤Î¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤¹¤ë¤È¡¢lngKey(0)¤Î»Ø¤·¼¨¤¹¥Ç¡¼¥¿¤Ë¤Ï0¡Á2¡¢
lngKey(1)¤Î»Ø¤·¼¨¤¹¥Ç¡¼¥¿¤Ë¤Ï1¡Á3¡¢lngKey(2)¤Î»Ø¤·¼¨¤¹¥Ç¡¼¥¿¤Ë¤Ï
2¡Á4¡¢¤È¤¤¤¦´¶¤¸¤Ç¥Ç¡¼¥¿¤¬Äɲ䵤ì¤Þ¤¹¡£
¼Â¹Ô·ë²Ì¤ò¸«¤ë¤È¹ç·×¤ÈÊ¿¶Ñ¤¬Àµ¤·¤¯·×»»¤µ¤ì¤Æ¤¤¤ë¤³¤È¤¬¤ï¤«¤ê
¤Þ¤¹¡£
Option Explicit
Sub test1()
On Error GoTo error_proc
Dim lngKey() As Long
Dim lngCnt As Long
<font color="green"> '¥Ç¡¼¥¿¤ò10¸Ä¼èÆÀ</font>
ReDim lngKey(9)
For lngCnt = 0 To 9
<font color="green"> '(lngCnt)ÈÖÌܤΥǡ¼¥¿¤Î½é´ü²½</font>
lngKey(lngCnt) = modSumAvg7.init
Next lngCnt
For lngCnt = 0 To 9
<font color="green"> '(lngCnt)ÈÖÌܤΥǡ¼¥¿¤Ë¥Ç¡¼¥¿¤òÄɲÃ</font>
Call modSumAvg7.addValue( _
lngKey(lngCnt), lngCnt)
Next lngCnt
For lngCnt = 0 To 9
<font color="green"> '(lngCnt)ÈÖÌܤΥǡ¼¥¿¤Ë¥Ç¡¼¥¿¤òÄɲÃ</font>
Call modSumAvg7.addValue( _
lngKey(lngCnt), lngCnt + 1)
Next lngCnt
For lngCnt = 0 To 9
<font color="green"> '(lngCnt)ÈÖÌܤΥǡ¼¥¿¤Ë¥Ç¡¼¥¿¤òÄɲÃ</font>
Call modSumAvg7.addValue( _
lngKey(lngCnt), lngCnt + 2)
Next lngCnt
<font color="green"> '·ë²Ì½ÐÎÏ</font>
For lngCnt = 0 To 9
Debug.Print "********************" & CStr(lngCnt)
Debug.Print "sum=" _
& modSumAvg7.getSum(lngKey(lngCnt))
Debug.Print "avg=" _
& modSumAvg7.getAvg(lngKey(lngCnt))
Next lngCnt
End Sub
Â裱£°²ó¡¡Â裱£±²ó¡¡Â裱£²²ó
Top > VBA ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ
- ¥«¥Æ¥´¥ê¡§
- ¥Ñ¥½¥³¥ó
- ¥×¥í¥°¥é¥ß¥ó¥°
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
1tH9Vg Enjoyed every bit of your article post.Much thanks again. Will read on...