請教如何修改程式 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教如何修改程式

返回列表下一主題上一主題發帖

請教如何修改程式

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2016-12-3 17:17 | 顯示全部帖子

回復 2# 周大偉
試試難！

Private Sub ComboBox1_DropButtonClick()
Dim DataBook As Workbook, fs As String
Application.ScreenUpdating = False
On Error Resume Next
fs = ThisWorkbook.Path & "\資料庫.xlsm"
Set DataBook = Workbooks(fs)
On Error GoTo 0
If DataBook Is Nothing Then
Set DataBook = Workbooks.Open(fs)
End If
With DataBook.Sheets("工作表1")
ar = .Range(.[A4], .[A3].End(xlDown).Offset(, 5))
With ComboBox1
.ColumnCount = 3
.List = ar
.ColumnWidths = "0,30,40"
End With
End With
DataBook.Close 0
Application.ScreenUpdating = True
End Sub

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-12-3 17:33 | 顯示全部帖子

回復 2# 周大偉

Private Sub ComboBox1_DropButtonClick()
Dim DataBook As Workbook, fs As String
Application.ScreenUpdating = False
On Error Resume Next
fs = ThisWorkbook.Path & "\資料庫.xlsm"
Set DataBook = Workbooks(fs)
On Error GoTo 0
If DataBook Is Nothing Then
Set DataBook = Workbooks.Open(fs)
End If
With DataBook
With Sheets("工作表1")
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

複製代碼

稍加整理版。

靜思自在 : 為自己找藉口的人永遠不會進步。

返回列表下一主題上一主題