如何於excel的報價表單上輸入不同的Item帶入不同的圖片
- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 6
- 點名
- 0
- 作業系統
- mac
- 軟體版本
- mac
- 閱讀權限
- 10
- 註冊時間
- 2014-11-22
- 最後登錄
- 2015-10-8
|
如何於excel的報價表單上輸入不同的Item帶入不同的圖片
最近在建立報價單．，但由於產品太多，發給客人也在同一報價單上有多個ｉｔｅｍ， 單是一張報價單要用到一個小時(十分吃力）
想問一下各位高手,
怎樣編寫程式可以依照表單上輸入不同的Item帶入不同的圖片
(圖片儲存在D:\photo裡)
程式碼應該要怎麼寫?? |
-
-
報價單.rar
(9.45 KB)
報價單
|
|
|
|
|
|
|
- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-8-7
  
|
2#
發表於 2014-11-24 16:22
| 只看該作者
dear sir
1.於插入-名稱-定義 建立一名稱
1.1例 X = INDEX(SHEET2!$B B,MATCH(SHEET1!$A$1,SHEET2!$AA,0))
1.2 SHEET2 B欄放圖 A欄KEY IN 1 2 3 ......
1.3 SHEET1!$A$1 依需求條件產生 1 或 2 或 3 .(判斷選取SHEET2對應A欄之B欄之 那一圖)
1.4 建立 TextBox1 放於指定處=X . 即可依變圖示 |
|
|
羅
|
|
|
|
|
- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 6
- 點名
- 0
- 作業系統
- mac
- 軟體版本
- mac
- 閱讀權限
- 10
- 註冊時間
- 2014-11-22
- 最後登錄
- 2015-10-8
|
3#
發表於 2014-11-25 09:25
| 只看該作者
但我的圖片放在D:\photo裡
因為圖片太多, 有辨法用VBA的方法嗎?
謝謝 |
|
|
|
|
|
|
|
- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-8-7
|
4#
發表於 2014-11-25 14:42
| 只看該作者
試試如下
Sub Macro1()
Sheet2.Select
[a1].Select
Set a = ActiveSheet.Pictures.Insert("D:\photo\a.jpg")
Sheet2.Rows(1).RowHeight = a.Height
Sheet2.Columns(1).ColumnWidth = a.Width / 5.67
End Sub |
|
|
羅
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
       
|
5#
發表於 2014-11-25 14:47
| 只看該作者
回復 3# kimie0_0
適用於你1#的檔案- Sub Ex_AutoAddPic()
- Dim Rng(1 To 2) As Range, Rng_First As String, MyPcName As String, Picture_Path As String
- Picture_Path = "D:\photo\"
- With ActiveSheet
- For Each Shp In .Shapes
- If Shp.Type = msoPicture Then Shp.Delete
- Next
- Set Rng(1) = .Cells.Find("Item no:", lookat:=xlWhole, SearchOrder:=xlByRows) 'xlByRows(循列)或 xlByColumns(循欄) 搜尋
- If Not Rng(1) Is Nothing Then
- Rng_First = Rng(1).Address '第一個尋找到 "Item no:" 的位置
- Do
- MyPcName = Picture_Path & Rng(1).Cells(1, 2) & ".jpg"
- If Dir(MyPcName, vbDirectory) <> "" Then
- Set Rng(2) = Rng(1).Cells(-7) '上移8列的Cells位置
- With .Pictures.Insert(MyPcName)
- .Top = Rng(2).Top '插入圖片的頂點,位於工作表從第一列頂端至該範圍頂端的距離
- .Left = Rng(2).Left '插入圖片的左邊,位於工作表從 A 欄左限至該範圍左限的距離
- .Height = Rng(2).Resize(8).Height '插入圖片的範圍的高度
- .Width = Rng(2).Resize(, 2).Width '插入圖片的範圍的寬度
- End With
- End If
- Set Rng(1) = .Cells.FindNext(Rng(1)) '下一個要尋找的字串
- Loop Until Rng_First = Rng(1).Address '回到第一個尋找到 "Item no:" 的位置
- End If
- End With
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 6
- 點名
- 0
- 作業系統
- mac
- 軟體版本
- mac
- 閱讀權限
- 10
- 註冊時間
- 2014-11-22
- 最後登錄
- 2015-10-8
|
6#
發表於 2014-11-25 16:57
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 161
- 主題
- 26
- 精華
- 0
- 積分
- 187
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2011-1-2
- 最後登錄
- 2022-2-16
|
7#
發表於 2014-11-25 18:53
| 只看該作者
回復 7# kimie0_0
ThisWorkbook.Path & "\新資料夾 (3)\
D:\photo\
大大 是不是路徑的問題
G 版大的程式
我用可以 ^0^ |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
8#
發表於 2014-11-26 12:56
| 只看該作者
回復 6# kimie0_0
"Item no:" 旁的儲存格你有填入圖片名稱嗎? |
|
|
|
|
|
|
|
- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 6
- 點名
- 0
- 作業系統
- mac
- 軟體版本
- mac
- 閱讀權限
- 10
- 註冊時間
- 2014-11-22
- 最後登錄
- 2015-10-8
|
9#
發表於 2014-12-4 23:52
| 只看該作者
謝謝大家指教！
電腦剛壞掉，換了台MACBOOKAIR
試過用上面所寫的程式還是不行
嗚嗚嗚:'(
圖片現在放在Macintosh HD _ 使用者 _ kimie _ 文件" |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
10#
發表於 2014-12-5 15:38
| 只看該作者
回復 9# kimie0_0
測試的Excel檔案 與1# 報價單.rar中的Excel檔案一樣嗎? |
|
|
|
|
|
|
|
