Top > VBA ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ
Â裵²ó¡¡Â裶²ó¡¡Â裷²ó
Â裵²ó¡¡Â裶²ó¡¡Â裷²ó
Top > VBA ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ
Â裵²ó¡¡Â裶²ó¡¡Â裷²ó
Á°²ó¤Î¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤Ç¤Ï¥Ç¡¼¥¿¤ò¤Þ¤È¤á¤ëÊýË¡¤ò¹Í¤¨¤Þ¤·¤¿¤¬º£²ó
¤Ï¼ê³¤¤ò¤Þ¤È¤á¤ëÊýË¡¤ò¹Í¤¨¤Þ¤¹¡£¼ê³¤¤Î¤Þ¤È¤áÊý¤ò¹Í¤¨¤ë¤È¤¤Ë¤Ï¡¢
¥Ç¡¼¥¿¤ò¤É¤¦¤ä¤Ã¤ÆÅϤ¹¤«¤È¤¤¤¦¤³¤È¤â¹Í¤¨¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£
Á°²ó¤Î¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤Ç¤Ï¡¢¥Ç¡¼¥¿¤Î½é´ü²½¡¢¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿
¿ô¤Î·×»»¡¢Ê¿¶Ñ¤Î·×»»¤ò¡¢²¿Å٤ⷫ¤êÊÖ¤·¼Â¹Ô¤·¤Æ¤¤¤Þ¤¹¡£
¤³¤ì¤é¤ò¤½¤ì¤¾¤ìÀìÍѤÎÌò³ä¤ò»ý¤Ã¤¿¼ê³¤¤Ç¼Â¹Ô¤¹¤ë¤è¤¦¤Ë¤·¤Æ¤ß¤Þ¤·
¤ç¤¦¡£
¤Ï¼ê³¤¤ò¤Þ¤È¤á¤ëÊýË¡¤ò¹Í¤¨¤Þ¤¹¡£¼ê³¤¤Î¤Þ¤È¤áÊý¤ò¹Í¤¨¤ë¤È¤¤Ë¤Ï¡¢
¥Ç¡¼¥¿¤ò¤É¤¦¤ä¤Ã¤ÆÅϤ¹¤«¤È¤¤¤¦¤³¤È¤â¹Í¤¨¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£
Á°²ó¤Î¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤Ç¤Ï¡¢¥Ç¡¼¥¿¤Î½é´ü²½¡¢¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿
¿ô¤Î·×»»¡¢Ê¿¶Ñ¤Î·×»»¤ò¡¢²¿Å٤ⷫ¤êÊÖ¤·¼Â¹Ô¤·¤Æ¤¤¤Þ¤¹¡£
¤³¤ì¤é¤ò¤½¤ì¤¾¤ìÀìÍѤÎÌò³ä¤ò»ý¤Ã¤¿¼ê³¤¤Ç¼Â¹Ô¤¹¤ë¤è¤¦¤Ë¤·¤Æ¤ß¤Þ¤·
¤ç¤¦¡£
Option Explicit
<font color="green">'---------------------------------------------</font>
<font color="green">'¥Ç¡¼¥¿</font>
<font color="green">'---------------------------------------------</font>
<font color="green">'¥æ¡¼¥¶¡¼ÄêµÁ·¿</font>
Private Type typSumAvg
<font color="green"> '¹ç·×</font>
mlngSum As Long
<font color="green"> '¥Ç¡¼¥¿¿ô</font>
mlngNums As Long
<font color="green"> 'Ê¿¶Ñ</font>
mlngAvg As Long
End Type
<font color="green">'¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à£°£´</font>
Sub calc4()
<font color="green"> '---------------------------------------------</font>
<font color="green"> '¥Ç¡¼¥¿</font>
<font color="green"> '---------------------------------------------</font>
<font color="green"> '¥æ¡¼¥¶¡¼ÄêµÁ·¿¤ÎÇÛÎó</font>
Dim audtSumAvg(2) As typSumAvg
<font color="green"> '---------------------------------------------</font>
<font color="green"> '¼ê³¤</font>
<font color="green"> '---------------------------------------------</font>
<font color="green"> '¹ç·×¤È¥Ç¡¼¥¿¿ô¤Î½é´ü²½(1)</font>
Call dataCrear(audtSumAvg(0))
<font color="green"> '¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»(1)</font>
Call dataAdd(audtSumAvg(0), 10)
<font color="green"> '¹ç·×¤È¥Ç¡¼¥¿¿ô¤Î½é´ü²½(2)</font>
Call dataCrear(audtSumAvg(1))
<font color="green"> '¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»(2)</font>
Call dataAdd(audtSumAvg(1),100)
<font color="green"> '¹ç·×¤È¥Ç¡¼¥¿¿ô¤Î½é´ü²½(3)</font>
Call dataCrear(audtSumAvg(2))
<font color="green"> '¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»(3)</font>
Call dataAdd(audtSumAvg(2),1000)
<font color="green"> '¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»(1)</font>
Call dataAdd(audtSumAvg(0), 20)
<font color="green"> '¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»(2)</font>
Call dataAdd(audtSumAvg(1), 200)
<font color="green"> '¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»(3)</font>
Call dataAdd(audtSumAvg(2), 2000)
<font color="green"> '¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»(1)</font>
Call dataAdd(audtSumAvg(0), 30)
<font color="green"> 'Ê¿¶Ñ¤Î·×»»(1)</font>
audtSumAvg(0).mlngAvg = getAvg(audtSumAvg(0))
<font color="green"> '¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»(2)</font>
Call dataAdd(audtSumAvg(1), 300)
<font color="green"> 'Ê¿¶Ñ¤Î·×»»(2)</font>
audtSumAvg(1).mlngAvg = getAvg(audtSumAvg(1))
<font color="green"> '¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»(3)</font>
Call dataAdd(audtSumAvg(2), 300)
<font color="green"> 'Ê¿¶Ñ¤Î·×»»(3)</font>
audtSumAvg(2).mlngAvg = getAvg(audtSumAvg(2))
<font color="green"> '·ë²Ì¤Î½ÐÎÏ</font>
Debug.Print "1:Sum=" & CStr(audtSumAvg(0).mlngSum) & _
":Avg=" & CStr(audtSumAvg(0).mlngAvg)
Debug.Print "2:Sum=" & CStr(audtSumAvg(1).mlngSum) & _
":Avg=" & CStr(audtSumAvg(1).mlngAvg)
Debug.Print "3:Sum=" & CStr(audtSumAvg(2).mlngSum) & _
":Avg=" & CStr(audtSumAvg(2).mlngAvg)
End Sub
<font color="green">'¥Ç¡¼¥¿¤Î½é´ü²½½èÍý</font>
Sub dataClear(pudtSumAvg As typSumAvg)
<font color="green"> '---------------------------------------------</font>
<font color="green"> '¼ê³¤</font>
<font color="green"> '---------------------------------------------</font>
<font color="green"> '¹ç·×¤È¥Ç¡¼¥¿¿ô¤Î½é´ü²½</font>
pudtSumAvg.mlngSum = 0
pudtSumAvg.mlngNums = 0
End Sub
<font color="green">'¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»½èÍý</font>
Sub dataAdd(pudtSumAvg As typSumAvg, plngValue As Long)
<font color="green"> '---------------------------------------------</font>
<font color="green"> '¼ê³¤</font>
<font color="green"> '---------------------------------------------</font>
<font color="green"> '¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»</font>
pudtSumAvg.mlngSum = pudtSumAvg.mlngSum + plngValue
pudtSumAvg.mlngNums = pudtSumAvg.mlngNums + 1
End Sub
<font color="green">'Ê¿¶Ñ¤Î·×»»½èÍý</font>
Function getAvg(pudtSumAvg As typSumAvg) As Long
<font color="green"> '---------------------------------------------</font>
<font color="green"> '¼ê³¤</font>
<font color="green"> '---------------------------------------------</font>
<font color="green"> 'Ê¿¶ÑÃͤη׻»</font>
getAvg = pudtSumAvg.mlngSum / pudtSumAvg.mlngNums
End Sub
Â裵²ó¡¡Â裶²ó¡¡Â裷²ó
Top > VBA ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ
- ¥«¥Æ¥´¥ê¡§
- ¥Ñ¥½¥³¥ó
- ¥×¥í¥°¥é¥ß¥ó¥°
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
PDdwbo <a href="http://qkbbhfikkyxc.com/">qkbbhfikkyxc</a>, [url=http://dkmkxprvotvz.com/]dkmkxprvotvz[/url], [link=http://ccxkrtbslnri.com/]ccxkrtbslnri[/link], http://drpafemtdzzm.com/