標題: 不好意思,求教於各方高手... [打印本頁]

---

作者: verify9k    時間: 2020-2-13 13:42     標題: 不好意思,求教於各方高手...

各位版友大家好:
    小弟有一個問題想請教大家,底下是三段 "VBA小程式",動作是
    第一段程式取得3個參數,然後 Call 第二段程式執行並將參數傳給第三段程式,
    問題出在第三段程式的參數沒有傳達到,雖然第三段程式確實有執行.
    請問有高手可以解答嗎??
   
    謝謝您!!
   
   

Private Sub CommandButton1_Click()

公司代號 = Cells(4, 2).Value
年度代號 = Cells(4, 8).Value
月份代號 = Cells(5, 8).Value

Call Download2(公司代號, 年度代號, 月份代號)

End Sub


Sub Download2(公司代號, 年度代號, 月份代號)

    Sheets("EPS表格").Select
    Range("Z1:BI2000").Select
    Selection.ClearContents                      '清空 防禦表格中的 舊的財報資料
    Sheets("防禦表格").Select
    Range("Z1:BI2000").Select
    Selection.ClearContents                      '清空 防禦表格中的 舊的財報資料,
                                                 '然後,從 防禦表格開始下載新的財報資料
                                                
    MsgBox (年度代號)
    MsgBox (月份代號)
   
    Call Month(年度代號, 月份代號)
End Sub
   

Sub Month(年度代號, 月份代號)

   Sheets("EPS表格").Select                                '切換到 EPS表格
   'Download 的第一月份在 AE1536 行,是 2019/10/1
   ' 基準月份 = Month(Range("A4"))                         '使用於判斷月分是否為1月
   基準月份 = Format("2030 / 1 / 1", "m")                  '使用於判斷月分是否為1月

   最新月份BZ2113 = Format(Range("BZ2113"), "m")           '參數EPS表格BZ2113  代入 "最新月份"
   
    MsgBox (年度代號)
    MsgBox (月份代號)
End Sub    :)

---

作者: n7822123    時間: 2020-2-22 00:07

回復 1# verify9k


你沒有給附件，把你的程式簡化之後

沒有發現任何問題!

Sub KK()
  公司代號 = AAA
  年度代號 = 2019
  月份代號 = 5
  Call Download2(公司代號, 年度代號, 月份代號)
End Sub
Sub Download2(公司代號, 年度代號, 月份代號)
    MsgBox (年度代號)
    MsgBox (月份代號)
    Call Month(年度代號, 月份代號)
End Sub
Sub Month(年度代號, 月份代號)
    MsgBox (年度代號)
    MsgBox (月份代號)
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)