小弟每次開啟下列檔案時, 總是會彈出圖片中框架, - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 小弟每次開啟下列檔案時, 總是會彈出圖片中框架,

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

小弟每次開啟下列檔案時, 總是會彈出圖片中框架,

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-6-16 21:14 | 顯示全部帖子

本帖最後由 lpk187 於 2015-6-16 21:18 編輯

回復 2# hong912

Private Sub Workbook_Open()
Dim Ar(), S%
With GetObject(ThisWorkbook.Path & "\sal倉庫資料.xlsm") '路徑
With .Sheets(1)
Ar = .Range(.[B3], .[B4].End(xlDown).Offset(, 2)).Value
End With
.Close True '這裡True是儲存False是不儲存，給你參考
End With
With Sheet1.ComboBox1
.ColumnWidths = "70,160"
.TextColumn = 2
.ColumnCount = 3
.List = Ar
End With
End Sub

複製代碼

資料.rar (94.88 KB)

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。

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