- ©«¤l
- 5
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-21
- ³Ì«áµn¿ý
- 2021-7-19
|
[µo°Ý] excel function µLªk¦Û°Ê§ó·s
½Ð°Ý«e½úÌ¡A¥H¤U¬O§Ú¼gªºfunction¡A¦ý¬O¹J¨ì¤@Ó°ÝÃD¡A
·í Main!CH:CHÄæ¦ìªºÈ¦³ÅÜ°Ê¡A¦ýfunctionªºÈ«o¤£·|¦Û°Ê§ó·s
³o¬OþÃä»yªk¦³°ÝÃD¡A¦A³Â·Ð«e½úÌÀ°¦£¸Ñ´b¡AÁÂÁ¡C
Function safeStock(fab As String, partname As String)
Application.Volatile
Select Case fab
Case "A"
safeStock = Application.Evaluate("=ROUNDUP(SUMIF(Main!$CF:$CF,""" & partname & """,Main!CH:CH),0)")
Case "B"
safeStock = Application.Evaluate("=ROUNDUP(SUMIF(Main!$CP:$CP,""" & partname & """,Main!CR:CR),0)")
Case "C"
safeStock = Application.Evaluate("=ROUNDUP(SUMIF(Main!$CZ:$CZ,""" & partname & """,Main!DB:DB),0)")
Case Else
safeStock = "error"
End Select
End Function |
|