標題: [發問] 請問Call 指令的資料互用 [打印本頁]

---

作者: cji3cj6xu6    時間: 2014-4-3 17:50     標題: 請問Call 指令的資料互用

請問Call 指令的資料要如何互用。

如：
sub SubA()

FileName1 = "X1.xlsm"
SheetNumber = 5
call SubB
end sub

Sub SubB()
Windows(FileName1).Activate     
Sheets(SheetNumber).Select
End Sub

請問此時的 FileName1 與 SheetNumber 要如何從SubA 帶入 SubB

謝謝∼

---

作者: cji3cj6xu6    時間: 2014-4-3 18:06

試出來了，

Call Sub(FileName1, SheetNumber)

即可∼

---

作者: GBKEE    時間: 2014-4-3 19:58

回復 2# cji3cj6xu6

1. Option Explicit
   
2. Sub SubA()
   
3.     Dim FileName1 As String, SheetNumber As Integer
   
4.     FileName1 = "X1.xlsm"
   
5.     SheetNumber = 5
   
6. SubB FileName1, SheetNumber
   
7. End Sub
   
8. Sub SubB(參數1 As String, 參數2 As Integer)
   
9.     Windows(參數1).Activate
   
10.     Sheets(參數2).Select
    
11. End Sub

複製代碼

---

作者: cji3cj6xu6    時間: 2014-4-7 09:56

謝謝g大的精確語法∼

---

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