ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

·s¤âµo°Ý (Function)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-16 07:40 ½s¿è

¦^´_ 1# tainanfriend
  1. Option Explicit
  2. Function AA()
  3.     AA = "IS ok"
  4. End Function
  5. Function Ex(A As Range, B As Range)
  6.     Ex = A + B
  7. End Function
  8. Sub Test()
  9.     Dim A  As Integer
  10.     MsgBox AA
  11.     A = Ex(Range("D2"), Range("D3"))
  12.     If A > 10 Then MsgBox A
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD