返回列表 上一主題 發帖

不好意思,求教於各方高手...

不好意思,求教於各方高手...

各位版友大家好:
    小弟有一個問題想請教大家,底下是三段 "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    :)

回復 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
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題