返回列表 上一主題 發帖

新手發問 (Function)

本帖最後由 GBKEE 於 2014-2-16 07:40 編輯

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題