請教各位大師
如何做到"比對-取整排欄位資料+圖片" 的巨集應用呢？
sheet1 為資料來源 各品名分別有代號
在sheet2 的A攔下 如果輸入想要的代號 如A1 A2
按下巨集按鈕 則會自動代入 sheet1 的資料 + 超連結圖片
巨集已完成 "比對+取整排資料"
目前還差圖片 能煩請大師幫忙修改一下嗎？
Sub 按鈕1_Click()
For i = 2 To Sheets(1).[A65536].End(xlUp).Row
For j = 2 To Sheets(2).[A65536].End(xlUp).Row
If Sheets(2).Cells(j, 1).Value = Sheets(1).Cells(i, 1).Value Then
For k = 2 To 21
Sheets(2).Cells(j, k).Value = Sheets(1).Cells(i, k).Value
Next k
End If
Next j
Next i
End Sub
檔案下載：
http://www.FunP.Net/13276
2013-02-07 09:13:39 補充
參考 准大師
http://tw.knowledge.yahoo.com/question/question?qid=1612083002891
小弟不才 目前只會用兩個程式去套
→無論代號在A攔或在B攔，載入圖片的巨集無法啟用
→無論圖片與程式在同一個資料夾或在子資料夾，載入圖片的巨集也還是無法啟用
請大師指點
修正：將圖片改成代號 A1~A6.jpg
http://www.FunP.Net/617218
er">
EXCEL VBA．商品型錄．自動載入儲存格內容〔指定路徑〕的圖檔
＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■程式碼：僅列出主處理段，餘請參閱範例檔
Sub 插入圖片()
Dim xImgFile
'↓抓圖片路徑及名稱
xImgFile = Application.VLookup(xRng, [Sheet1!A:F], 6, 0)
'↓抓不到則跳出
If IsError(xImgFile) Then Exit Sub
'↓測試用：暫用本檔路徑，實際使用時刪除
xImgFile = ThisWorkbook.Path & "\photo\" & _
Mid(xImgFile, InStrRev(xImgFile, "\") + 1)
If Dir(xImgFile) <> "" Then
ShpRng.Select
ActiveSheet.Pictures.Insert (xImgFile)
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
'↓設定圖片改變大小時，保持比率，以防止圖片產生〔扭曲〕
.LockAspectRatio = msoTrue
'↓圖片〔寬度〕超過儲存格寬度時，才縮小
If .Width > ShpRng.Width - 2 Then .Width = ShpRng.Width - 2
'↓圖片〔高度〕超過儲存格高度時，才縮小
If .Height > ShpRng.Height - 2 Then .Height = ShpRng.Height - 2
'↓將圖片置於儲存格的〔正中央〕
.Left = ShpRng.Left + (ShpRng.Width - .Width) / 2
.Top = ShpRng.Top + (ShpRng.Height - .Height) / 2
End With
End If
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞下載：
檔案名稱：20130207v01(連續載入商品圖片).rar
http://www.funp.net/779327
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
留言列表
