Excelæè½ç¶æèªå¸¦å½æ°åºï¼å¹¶ä¸æ¯å¾å¤ç¨ï¼ä¸è½æ»¡è¶³ææå¯è½åºç°çæ åµï¼ææ¶åå°±éè¦ä½¿ç¨èªå®ä¹å½æ°ã
1ãæå¼Excelç¨åºï¼ç¹å»âå·¥å ·âä¸çâå®âï¼éæ©âVisual Basicç¼è¾å¨âé项ãï¼æâAlt+F11âå¿«æ·é®ä¹å¯ä»¥å®ç°ï¼ã
2ãä¼è·³åºâVisual Basicç¼è¾å¨-Book1âçªå£ãå¨âVisual Basicç¼è¾å¨-Book1âçªå£ä¸ï¼ç¹å»âæå ¥âä¸çâ模åâ项ã
3ãä¼è·³åºå½ä»¤çªå£ãå¨âBook1-模å1ï¼ä»£ç ï¼âçªå£éè¾å ¥ä½ éè¦èªå®ä¹çå½æ°ï¼
ï¼ä¸¾ä¸ªä¾åï¼è¿éæ±ä¸è§å½¢é¢ç§¯
èªå®ä¹å½æ°æ¯ç¨functionå½ä»¤å¼å§çï¼å¨è¿ä¸ªå½ä»¤åé¢ç»å®æå®ä¸ä¸ªååååæ°
è¾å
¥å
容å¦ä¸ï¼
Function S(a, h)
S = a* h / 2
End Function
è¿æ®µä»£ç é常ç®ååªæä¸è¡ï¼ç¬¬ä¸è¡ï¼å
¶ä¸Sæ¯èªå·±åçå½æ°ååï¼æ¬å·ä¸çæ¯åæ°ï¼ä¹å°±æ¯åéï¼a表示âåºè¾¹é¿âï¼h表示âé«âï¼ä¸¤ä¸ªåæ°ç¨éå·éå¼ã
第äºè¡ï¼è¿æ¯è®¡ç®è¿ç¨ï¼å°a*h/2è¿ä¸ªå
¬å¼èµå¼ç»Sï¼å³èªå®ä¹å½æ°çååã
第ä¸è¡ï¼å®æ¯ä¸ç¬¬ä¸è¡æ对åºç°çï¼å½ä½ æå·¥è¾å
¥ç¬¬ä¸è¡çæ¶åï¼ç¬¬ä¸è¡çend functionå°±ä¼èªå¨åºç°ï¼è¡¨ç¤ºèªå®ä¹å½æ°çç»æã
4ãè¾å
¥å®æ¯ï¼å
³éçªå£ï¼èªå®ä¹çå½æ°å°±å®æäºããä½ éè¦æä¸å®çVBåºç¡ç¥è¯ã
5ãç¶åå°±æ¯èªå®ä¹å½æ°å®é
çè¿ç¨äºï¼è¿ç¨åå¯ä»¥å个ç®åçæ£éªï¼ççæ¯ä¸æ¯åç¡®ï¼ä¸è¬æ¥æ¯ä¸ä¼éçã
ææ¶åèªå®ä¹å¤æå½æ°ï¼éè¦åºæ¬çæ°å¦ç¥è¯åVBAåºç¡ï¼è¿éè¦èªèº«çæ¥ç§¯æç´¯äºã
ã注æäºé¡¹ã
èªå®ä¹çå½æ°è½ç¶å¯ä»¥åå ç½®å½æ°ä¸æ ·ä½¿ç¨ï¼ä¸è¿å´å¹¶ä¸æ¯çæ£çå ç½®å½æ°ï¼åªè½ç¨äºå½åå·¥ä½ç°¿ã
举例说明。
例如要做一个单元格求和的自定义函数,比sum函数增加一个条件,就是如果单元格有删除线标记,则不计入该单元格的数值。如图:
第一步:在visual basic模式下插入模块,并创建自定义函数。代码如下:
Public Function mysum(qu As Range)
Dim s As Double
Dim b
mysum = 0
For Each b In qu
If b.Font.Strikethrough = False Then
mysum = mysum + b.Value
End If
Next
End Function
第二步:在c15单元格输入公式:=mysum(C4:C14)。结果如图: