Top > VBA ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ
Â裱²ó¡¡Â裲²ó¡¡Â裳²ó
Â裱²ó¡¡Â裲²ó¡¡Â裳²ó
Top > VBA ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ
Â裱²ó¡¡Â裲²ó¡¡Â裳²ó
¤³¤³¤Ç¤Ï¡¢¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤È¤·¤Æ¡¢¤¢¤ë¥Ç¡¼¥¿¤Î½¸¤Þ¤ê¤Ë¤Ä¤¤¤Æ¹ç
·×¤ÈÊ¿¶Ñ¤òµá¤á¤ë¥×¥í¥°¥é¥à¤ò¹Í¤¨¤Æ¤ß¤¿¤¤¤È»×¤¤¤Þ¤¹¡£
VBA ¤Ç¥×¥í¥°¥é¥à¤òºî¤ë¤È°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£¹ç·×¤ÈÊ¿¶Ñ¤òµá¤á¤ë
½èÍý¤·¤«½ñ¤«¤ì¤Æ¤¤¤Þ¤»¤ó¤¬¡¢¼ÂºÝ¤Ï¹ç·×¤äÊ¿¶Ñ¤òµá¤á¤ë¤¿¤á¤Î¥Ç¡¼
¥¿¤ò¼èÆÀ¤¹¤ë½èÍý¤â½ñ¤«¤ì¤¤¤Æ¤ë¤â¤Î¤È»×¤Ã¤Æ¤¯¤À¤µ¤¤¡£
·×¤ÈÊ¿¶Ñ¤òµá¤á¤ë¥×¥í¥°¥é¥à¤ò¹Í¤¨¤Æ¤ß¤¿¤¤¤È»×¤¤¤Þ¤¹¡£
VBA ¤Ç¥×¥í¥°¥é¥à¤òºî¤ë¤È°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£¹ç·×¤ÈÊ¿¶Ñ¤òµá¤á¤ë
½èÍý¤·¤«½ñ¤«¤ì¤Æ¤¤¤Þ¤»¤ó¤¬¡¢¼ÂºÝ¤Ï¹ç·×¤äÊ¿¶Ñ¤òµá¤á¤ë¤¿¤á¤Î¥Ç¡¼
¥¿¤ò¼èÆÀ¤¹¤ë½èÍý¤â½ñ¤«¤ì¤¤¤Æ¤ë¤â¤Î¤È»×¤Ã¤Æ¤¯¤À¤µ¤¤¡£
Option Explicit
'¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à£°£±
Sub calc1()
'¹ç·×
Dim lngSum As Long
'¥Ç¡¼¥¿¿ô
Dim lngNums As Long
'Ê¿¶Ñ
Dim lngAvg As Long
'¹ç·×¤È¥Ç¡¼¥¿¿ô¤Î½é´ü²½
lngSum = 0
lngNums = 0
'¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»
lngSum = lngSum + 10
lngNums = lngNums + 1
'¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»
lngSum = lngSum + 20
lngNums = lngNums + 1
'¥Ç¡¼¥¿¤ÎÄɲäȥǡ¼¥¿¿ô¤Î·×»»
lngSum = lngSum + 30
lngNums = lngNums + 1
'Ê¿¶Ñ¤Î·×»»
lngAvg = lngSum / lngNums
'·ë²Ì¤Î½ÐÎÏ
Debug.Print "Sum=" & CStr(lngSum) & _
":Avg=" & CStr(lngAvg)
End Sub
Â裱²ó¡¡Â裲²ó¡¡Â裳²ó
Top > VBA ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ
- ¥«¥Æ¥´¥ê¡§
- ¥Ñ¥½¥³¥ó
- ¥×¥í¥°¥é¥ß¥ó¥°
¥³¥á¥ó¥È¤ò¤«¤¯