返回列表 上一主題 發帖

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

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    :)
收藏 分享

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 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
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題