[發問] 將表單圖片，寫入另外一個sheet裡

xgirlxs

噴槍.zip (492.13 KB)

下載次數: 2

2016-5-9 16:03

我設計了二個表單，希望一個是做寫入，一個是查詢用的
希望高手幫幫我....多謝!

1. 首先，第一個表單，依專案別不同，將單筆資料寫入各sheet裡

下載 (38.27 KB)

2016-5-9 15:33

寫入後，圖片也帶進來sheet內

下載 (59.96 KB)

2016-5-9 15:33

2.做查詢
當滿足選單的三項條件後，會帶出符合的資料，這個資料可能是多筆
需要用捲軸去看符合的條件

下載 (15.25 KB)

2016-5-9 16:03

下載 (133.19 KB)

2016-5-9 16:04

下載 (134.69 KB)

2016-5-9 16:04

xgirlxs

回復 2# jackyq

sorry，jackyq...我把VBA都還給老師了
我不太了解你講的要怎麼做....
可不可以再仔細一點講解呢，感謝!

jackyq

pic = "C:\_1_2_3_4_5_6.jpg__"
Call SavePicture(Image1.Picture, pic)  ' 把圖片存成檔案
'再用 Sheet 讀進剛剛的 "C:\_1_2_3_4_5_6.jpg__"
至於 Sheet 如何讀進圖檔
錄製巨集就知道步驟了

xgirlxs

回復 12# xgirlxs

如下圖.... 噴槍.zip (475.14 KB)

下載次數: 7

2016-5-9 10:47

下載 (38.27 KB)

2016-5-9 10:45

下載 (59.96 KB)

2016-5-9 10:46

xgirlxs

回復 10# Hsieh

謝謝Hsieh，我已經成功研究出來了，如下圖

下載 (42.62 KB)

2016-5-9 09:38

但是，如果我要在表單中插入圖片，寫入工作表欄位中
這有辦法嗎??

Hsieh

回復 9# xgirlxs
做個簡單範例
利用圖表匯出圖片然後載入
你自己應用看看

下載 (239.07 KB)

2016-4-26 10:26

1. Private Sub ComboBox1_Change()
   
2. Dim a As Range
   
3. Application.ScreenUpdating = False
   
4. With 工作表1
   
5.   Set a = .Columns("A").Find(ComboBox1, lookat:=xlWhole)
   
6.   Label1.Caption = a.Offset(, 1)
   
7.   a.Offset(, 2).CopyPicture '複製成圖片
   
8.   With .ChartObjects.Add(1, 1, a.Offset(, 2).Width, a.Offset(, 2).Height) '新增圖表
   
9.     .Chart.Paste '貼上圖片
   
10.     .Chart.Export "D:\temp.jpg" '匯出圖表，暫存圖片
    
11.     .Delete '刪除圖表
    
12.   End With
    
13.   Image1.Picture = LoadPicture("D:\temp.jpg") '表單顯示圖片
    
14.   Kill "D:\temp.jpg" '刪除暫存圖片
    
15. End With
    
16. Application.ScreenUpdating = True
    
17. End Sub
    
18. 
    
19. 
    
20. Private Sub UserForm_Initialize()
    
21. Dim a As Range
    
22. Set d = CreateObject("Scripting.Dictionary")
    
23. With 工作表1
    
24.    For Each a In .Range(.[A2], .[A2].End(xlDown))
    
25.       d(a.Value) = ""
    
26.    Next
    
27. End With
    
28. ComboBox1.List = d.keys
    
29. End Sub

複製代碼

圖片選取.zip (27.63 KB)

下載次數: 11

2016-4-26 10:28

jackyq

你的 EXCEL 版本很高

我的 古董 2000 版沒法執行

你要請其他大大幫你瞧瞧看

xgirlxs

回復 6# jackyq
AA.zip (126.83 KB)

下載次數: 13

2016-4-25 16:10

感謝你的幫忙，我目前只做好這樣子，請見附件，可是還是跟我想做的落差很大
我是希望從EXCEL查詢ABC，3Sheet裡的東西
符合條件者，會帶出表單 (所以表單會帶多筆資料)

能再請你幫忙解答一下嗎? 感謝

jackyq

拜問 google 大神

暫時沒看到可以直接轉進表單的寫法

xgirlxs

回復 3# jackyq


    謝謝您的回復...
    所以我不能從EXCEL直接把圖放到表單，而是要在資料夾存圖片，再匯到表單內對吧?