彰化一整天的論壇

 找回密碼
 立即註冊
搜索
查看: 248|回復: 0

excel vba使用excel函數的用法

[複製鏈接]
發表於 2016-4-26 08:30:44 | 顯示全部樓層 |閱讀模式
  1. Dim A As String  '


  2. A = Application.IfError(Application.VLookup(Cells(2, 1), Sheets("清單").Range("A:B"), 2, False), "")

  3. Dim x As String
  4. x = Dir("C:\Users\rd-2\Downloads\產品照片\" & A & ".jpg") '偵測圖片是否存在
  5. If x <> "" Then

  6.          Set p = ActiveSheet.Pictures.Insert("C:\Users\rd-2\Downloads\產品照片\" & A & ".jpg")  '讀取圖片
  7.          Set c = Range("A18") '圖片丟到所指定欄位

  8.     Else
  9.    
  10. End If
複製代碼
文章來源: http://forum.twbts.com/viewthread.php?tid=17164
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-1-19 11:16 , Processed in 0.025886 second(s), 12 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表