返回列表 上一主題 發帖

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

verify9k

帖子
17 
主題
10 
精華
0 
積分
56 
點名
0  
作業系統
Window10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-12-4 
最後登錄
2022-6-16 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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    :)
收藏 分享

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題