- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2025-2-15
|
Function MyCustomFunction(arg1, arg2, V%) '¦Ûq¨ç¼Æ¥uµ¹µ²ªGÈ, ¤£¯à«ü©w¦s©ñ¦ì¸m
Dim result
If V = 1 Then result = Val(arg1) + Val(arg2)
If V = 2 Then result = arg1 & arg2
MyCustomFunction = result
End Function
Sub TEST() 'µ¹¦Ûq¨ç¼Æ[°Ñ¼Æ],¦A«ü©w¶ñ¤J¦ì¸m, ¶·«ö¶s°õ¦æ
Sheets("¤u§@ªí2").[B2] = MyCustomFunction(100, 200, 1)
Sheets("¤u§@ªí2").[B3] = MyCustomFunction("§Úªº¦Ûq", "¨ç¼Æ", 2)
End Sub |
|