- 帖子
- 250
- 主題
- 59
- 精華
- 0
- 積分
- 313
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 澳門
- 註冊時間
- 2010-9-11
- 最後登錄
- 2020-1-6
|
請教如何修改程式
請教大大們,
下次程式是個下拉傳回資料程式, 程式把另一檔案資料傳回, 當程式運行中, 會自行開啟另一檔案, 傳回資料後, 該被開啟檔案會自行關聞, 現時我希望能做到程式必須於兩個檔案同時開啟下才能運行. 請大大們指導, 謝!!
Private Sub ComboBox1_Change()
With ComboBox1
i = .ListIndex
If i = -1 Then Exit Sub
ar = Array(Month(Date), Date, .List(i, 1), .List(i, 2), .List(i, 3), .List(i, 4), "", .List(i, 5))
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 8) = ar
End With
End Sub
Private Sub ComboBox1_DropButtonClick()
Application.ScreenUpdating = False
fs = ThisWorkbook.Path & "\sal名冊.xlsm"
With Workbooks.Open(fs)
With .Sheets("人員名稱")
ar = .Range(.[A4], .[A3].End(xlDown).Offset(, 5))
With ComboBox1
.ColumnCount = 3
.List = ar
.ColumnWidths = "0,30,40"
End With
End With
.Close 0
End With
Application.ScreenUpdating = True
End Sub |
|
發表於 2016-12-2 18:51
| 
