2013-06-03 18 views
-2

我想在Excel中實現以下內容,我不確定VBA是否足夠。我試圖編碼自己一天,但可以讓我的代碼執行。有人可以幫忙嗎?圖像插入和Excel中的大小比較

  1. 從塔B的硬盤驅動器中插入的圖像,與A列中指示的文件名
  2. 搜索文件是否 的第二版本存在。例如。如果我插入「abc.png」,搜索是否存在「1_abc.png」 。如果存在第二個版本,則用顏色標記該列。
  3. 比較兩個文件的大小,如果「abc.png」和 「1_abc.png」的大小是不一樣的,寫在列表彰C.

謝謝你的幫幫我!

+1

表明您已經幫你提高它的代碼... –

+0

子InsertIcon() 「找到圖標,並插入 昏暗的名稱作爲字符串」知情同意 對於= 1到1000 名的文件路徑=細胞(A,4)。價值 「MSGBOX(名稱) 細胞(A,8)。選擇 ActiveSheet.Pictures.Insert(名稱)。選擇 Selection.ShapeRange.IncrementLeft 40 Selection.ShapeRange.IncrementTop 10 下一頁 End Sub – YolandaZx

+0

我完成了插入部分,但沒有完成比較部分。 – YolandaZx

回答

0
Sub InsertIcon()'find icon and insert 
Dim name As String ' file path of the pic 
For a = 1 To 1000 
name = Cells(a, 4).Value 
'MsgBox (name) 
Cells(a, 8).Select 
ActiveSheet.Pictures.Insert(name).Select 
Selection.ShapeRange.IncrementLeft 40 
Selection.ShapeRange.IncrementTop 10 
Next 
End Sub 

這是我用來解決插入問題的代碼。