EXCELçèªå®ä¹å½æ°æ¯å¨å®æ¨¡åä¸æ·»å ç
å·¥å ·åæï¼çµè+office2007
1ãç¨å¿«æ·é®alt+F11ï¼æå¼VUSIAL BASICç¼è¾å¨
2ãå¨VUSIAL BASICç¼è¾å¨ä¸éæ©vbaprojectï¼book1ï¼ï¼å³é®éæ©æå ¥ï¼åéæ©æ¨¡åï¼æ°å»ºæ¨¡åå®æï¼å¦ä¸å¾æ示
3ãå¨æ¨¡åä¸é®å ¥å¦ä¸ä»£ç ï¼ç¶åå¨è¡¨æ ¼ä¸è°ç¨å³å¯ï¼å¦ä¸å¾æ示ï¼
Dim a As Double
Function SUM_S(X, Y)
a = X * 0.7 + Y * 0.3
SUM_S = a
' X ä¸å®¶è¯å§åæ°
' Y 大ä¼è¯å§åæ°
End Function
æå表çè¦æ±æ¯ï¼ï¼5个ä¸å®¶è¯å§åæ±å*70%ï¼+ï¼10个大ä¼è¯å§åæ±å*30%ï¼
å设X ä¸å®¶è¯å§åæ° Y 大ä¼è¯å§åæ°
ä¹åçæ±åç¨ç³»ç»é»è®¤å½æ°å³å¯ï¼ä½æ¯æ¥ä¸æ¥çX * 0.7 + Y * 0.3å´ä¸æ¯ç³»ç»æç»åºçå½æ°ï¼äºæ¯å°±éè¦èªå®ä¹ï¼
EXCELå®ä¸å ¶ä»OFFICEå®ä¸æ ·ï¼ä½¿ç¨VBAä½ä¸ºç¼ç¨è¯è¨ï¼æ¢å¥è¯è¯´ï¼å°±æ¯ä¸ä¸ªåµå ¥ççVBã
ç±äºæç¼è¾å为æ°ååï¼æ以ä¸éè¦è½¬æ¢å符
4ããè¥ä¸ºå ¶ä»ç±»å«çè¯ï¼æ¯å¦è´§å¸æææ¬ï¼è¯·ä½¿ç¨å¦ä¸å¥å¼:
Dim a As Double
Function SUM_S(X, Y)
a = val(X) * 0.7 + val(Y) * 0.3
SUM_S = a
' X ä¸å®¶è¯å§åæ°
' Y 大ä¼è¯å§åæ°
End Function
å®æåè°ç¨çæ¶åï¼åªéè¦å¨ç»ææå¨åå æ ¼ä¸é¢çå¼æ ä¸å¡«å ¥=SUM_S(B1,B2) (æ¤å¤ä¸ºä¾åï¼
æ¤æ¶B1å°±æ¯Xå¼æå¨åå æ ¼ï¼B2为Yå¼æå¨åå æ ¼ã
注æäºé¡¹ï¼
è¿è¡å®éè¦EXCELçå®å ¨çº§å«ä¸ºä¸
è¿è¡æ¶éè¦æå¨ç¡®è®¤âæ¯âï¼å¦åæ æ³ä½¿ç¨
按ALT+F11进行编程界面,在模块里面写代码即可,附件是我昨天回复一个帖子写的自定义函数。