VBA ¤È Java ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥°

Top > VBA ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ
Â裱²ó¡¡Â裲²ó¡¡Â裳²ó

Â裲²ó¡§¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à

¤³¤³¤Ç¤Ï¡¢¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤È¤·¤Æ¡¢¤¢¤ë¥Ç¡¼¥¿¤Î½¸¤Þ¤ê¤Ë¤Ä¤¤¤Æ¹ç
·×¤ÈÊ¿¶Ñ¤òµá¤á¤ë¥×¥í¥°¥é¥à¤ò¹Í¤¨¤Æ¤ß¤¿¤¤¤È»×¤¤¤Þ¤¹¡£

VBA ¤Ç¥×¥í¥°¥é¥à¤òºî¤ë¤È°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£¹ç·×¤ÈÊ¿¶Ñ¤òµá¤á¤ë
½èÍý¤·¤«½ñ¤«¤ì¤Æ¤¤¤Þ¤»¤ó¤¬¡¢¼ÂºÝ¤Ï¹ç·×¤äÊ¿¶Ñ¤òµá¤á¤ë¤¿¤á¤Î¥Ç¡¼
¥¿¤ò¼èÆÀ¤¹¤ë½èÍý¤â½ñ¤«¤ì¤¤¤Æ¤ë¤â¤Î¤È»×¤Ã¤Æ¤¯¤À¤µ¤¤¡£
ɸ½à¥â¥¸¥å¡¼¥ë¡§mod1
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 ¤Î¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¥×¥í¥°¥é¥ß¥ó¥° > ÆþÌçÊÔ

¥³¥á¥ó¥È¤ò¤«¤¯


¡Öhttp://¡×¤ò´Þ¤àÅê¹Æ¤Ï¶Ø»ß¤µ¤ì¤Æ¤¤¤Þ¤¹¡£

ÍøÍѵ¬Ìó¤ò¤´³Îǧ¤Î¤¦¤¨¤´µ­Æþ²¼¤µ¤¤

ÊÔ½¸¤Ë¤ÏID¤¬É¬ÍפǤ¹