請問我這VBA哪裡有問題？為什麼會無法出現 424 無法找到物件呢?
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
請問我這VBA哪裡有問題？為什麼會無法出現 424 無法找到物件呢?
請問各位前輩先進
如何讓這檔案
 能自動跳出多張圖片及對應資料)-英文版-02.rar (341.33 KB)
可以像右邊這檔案開啟圖檔呢?
 20180611 VBA 讀取圖片 v.02.zip (43.52 KB)
右邊的檔案 圖片如下：
請問我這VBA哪裡有問題？為什麼會無法出現 424 無法找到物件呢?
Private Sub ComboBox1_Change()
Dim a As Range
Application.ScreenUpdating = False
With Database
Set a = .Columns("E").Find(ComboBox1, lookat:=xlWhole)
Label1.Caption = a.Offset(, 1)
a.Offset(, 1).CopyPicture '複製成圖片 a.Offset(, 1). 1為傳回上1行程式 a = .Columns("E").後1格儲存格的圖片
With .ChartObjects.Add(1, 1, a.Offset(, 2).Width, a.Offset(, 2).Height) '新增圖表
.Chart.Paste '貼上圖片
.Chart.Export "D:\temp.jpg" '匯出圖表，暫存圖片
.Delete '刪除圖表
End With
Image1.Picture = LoadPicture("D:\temp.jpg") '表單顯示圖片
Kill "D:\temp.jpg" '刪除暫存圖片
End With
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Dim a As Range
Set d = CreateObject("Scripting.Dictionary")
With Database
For Each a In .Range(.[E2], .[E2].End(xlDown))
d(a.Value) = ""
Next
End With
ComboBox1.List = d.keys
End Sub
-------------------------------------------------------------------
謝謝各位 |
|
|
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
回復 2# GBKEE
謝謝 G 超級版主的回覆，目前發現最後要加 End Function 就可以Run了，其他還在研究中，超級感謝您的幫忙。 |
|
|
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
回復 jeffrey628litw
試試看
GBKEE 發表於 2018-6-13 08:26 
請問我想要按Display Photo按鈕後，
下拉選單 Player Name
選Mchael Jordan 後可以出現
Image1：為F2圖案
Image2為F3圖案
類似EBAY 篩選完有陣列圖表，類似下圖
檔案在雲端 http://webhd.xuite.net/_oops/jeffrey628litw/c6x |
|
|
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
|
|
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
回復 7# GBKEE
G大 超級版主您好，我看您已經有將我問題1解決了，另外要程式中說明要新增 Lable4 我也新增了，
問題2和3還沒解決，
接下來，
程式的邏輯是要依據撈出的Lable4 如果結果同Lable1的字串，則撈出圖片，否則撈出Null的圖片嗎?
是這樣的話請問要如何寫呢? 因為我對於VBA實在幾乎完全不了解，能否請您幫忙一點一點解給我看，我慢慢學呢?
謝謝您。
檔案在雲端：http://webhd.xuite.net/_oops/jeffrey628litw/wyh |
|
|
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
回復 9# GBKEE
G大 版主您好：我看了問題3也解決了，剩下問題2，這邏輯是要寫
當Lable1 And Lable4 不為空時且不相同，則顯示2張圖片到Image1 和Image4，
否則 當Lable1不等於 Label4，則顯示Image1 且 Image4為空
否則 當Label1等於空，Lable4不等於空，則顯示Image1為空 且顯示 Image4的圖片
是這樣子嗎? 是的話程式要怎麼寫呢?再請您賜教，謝謝。
雲端檔案：http://webhd.xuite.net/_oops/jeffrey628litw/gdn |
|
|
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
回復 11# GBKEE
G大 版主您好：對於問題2 我有照您說的將哪一段程式隱藏就不會將沒有的資料對應的圖片，撈出下一張圖片了。
是我之前沒有跟您說清楚。
這樣就全部解決了我的問題了，很感謝您這麼有耐心地回覆我的問題，再次感謝您。 |
|
|
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
|
|
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
回復 13# jeffrey628litw
這個問題下面寫錯，應該是
2.想要顯示圖片資料，以便超連結到Database 工作表，(不知是否用Textbox，是的話要如何寫VBA呢?)
1.希望將工作表Database 裡面將E欄對應B欄的資料撈出來，
到Textbox，
例如E3撈出B3到Textbox1
2.然後讓Textbox的文字超連結到工作表 Database
|
|
|
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
回復 15# GBKEE
G大 版主您好：出現下面的情況，我查不到如何解?
|
|
|
|
|
|
|
|
發表於 2018-6-12 19:36
| 
