[發問] 有關 VBA 放入某 EXCEL 的工作表中一事

抱歉~~問個非常基本的問題

因為不熟 EXCEL 所以在貴討論區中像個無頭蒼蠅到處找我要的語法..
但是又不知如何串進我自己平常用的excel 表中

目前我常用的EXCEL 的檔案中有五個分頁
第一個分頁  是    追貨表 (有樞紐分析功能)
第二個分頁  是    客戶購買總計 (有樞紐分析功能)
第三個分頁  是    會員資料表 ( 單純資料 )
第四個分頁  是    出貨地址清單  (有套VLOOKUP )
第五個分頁  是    採購清單這是我想要放入 GBKEE 大之前在別的討論串留下的程式碼..

但是我試著去貼上代碼並執行.. 並無法成功？
這段程式碼在新的分頁中確實是能用的, 為何有會這個狀況

依照這段程式碼..  我想在第五分頁的 F 列  Key in 商品編號
在執行巨集後, 撈 D:\PIC 同檔名的照片到  G 列
請問我是那邊有執行上的錯誤嗎？

Option Explicit
Sub ChangeSize()
Dim Mypath As String, E As Range, i As Integer ', MyPic As Object
Mypath = "D:\PIC\"
With Sheets("採購清單")
.Pictures.Delete
For i = 1 To 7 Step 3 'A欄 ->1,D欄 ->4,G欄 ->7
For Each E In .UsedRange.Columns(i).Cells ' 'A欄 ->1,D欄 ->4,G欄 ->7
E.ColumnWidth = 25 '調整儲存格寬度
E.RowHeight = 50 '調整儲存格高度
If Dir(Mypath & E & ".jpg") <> "" Then
'Set MyPic = ActiveSheet.Pictures.Insert(Mypath & E & ".jpg")
With .Pictures.Insert(Mypath & E & ".jpg")
.ShapeRange.LockAspectRatio = msoFalse
.Left = E.Cells(1, 2).Left
.Top = E.Cells(1, 2).Top
.Width = E.Cells(1, 2).Width '=儲存格寬度
.Height = E.Cells(1, 2).Height '=儲存格高度
End With
End If
Next
Next
End With
End Sub

複製代碼

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

2^#

發表於 2014-11-4 23:49 | 只看該作者

抱歉~~問個非常基本的問題

因為不熟 EXCEL 所以在貴討論區中像個無頭蒼蠅到處找我要的語法..
但是又不 ...
justinbaba 發表於 2014-11-3 17:30

UsedRange 此物件代表指定工作表中的已用範圍
所以當工作表中已有資料時,
並不一定是抓 A欄 ,D欄 ,G欄,
而是抓有資料區域中的第1欄,第4欄與第7欄.

該式可改為 :
For Each E In .Cells.Columns(i) ' 'A欄 ->1,D欄 ->4,G欄 ->7

TOP

justinbaba

小學生 Rank: 1

帖子: 14
主題: 2
精華: 0
積分: 17
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2014-10-22
最後登錄: 2018-7-24

3^#

發表於 2014-11-5 12:59 | 只看該作者

UsedRange 此物件代表指定工作表中的已用範圍
所以當工作表中已有資料時,
並不一定是抓 A欄 ,D欄 ,G欄, ...
luhpro 發表於 2014-11-4 23:49

謝謝大大回覆..

剛才試用了一下大大建議的程式碼..

出現了 "型態不符合" 的錯誤訊息耶...可否再指點一二呢？

Option Explicit
Sub ChangeSize()
Dim Mypath As String, E As Range, i As Integer ', MyPic As Object
Mypath = "\C:\Users\leon\Desktop\Test\"
With Sheets("照片索引")
.Pictures.Delete
For i = 1 To 7 Step 3 'A欄 ->1,D欄 ->4,G欄 ->7
For Each E In .Cells.Columns(i) ' 'A欄 ->1,D欄 ->4,G欄 ->7
E.ColumnWidth = 25 '調整儲存格寬度
E.RowHeight = 50 '調整儲存格高度
If Dir(Mypath & E & ".jpg") <> "" Then
'Set MyPic = ActiveSheet.Pictures.Insert(Mypath & E & ".jpg")
With .Pictures.Insert(Mypath & E & ".jpg")
.ShapeRange.LockAspectRatio = msoFalse
.Left = E.Cells(1, 2).Left
.Top = E.Cells(1, 2).Top
.Width = E.Cells(1, 2).Width '=儲存格寬度
.Height = E.Cells(1, 2).Height '=儲存格高度
End With
End If
Next
Next
End With
End Sub

複製代碼

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

4^#

發表於 2014-11-5 21:55 | 只看該作者

本帖最後由 luhpro 於 2014-11-5 22:10 編輯

回復 3# justinbaba
For Each E In .Cells.Columns(i)
實測發現 .Columns(i) 後面沒有加上 .Cells ,
會變成指定整欄而非單個儲存格,
所以會有錯誤.

不過這與我預期的結果不同,
使用Range變數透過 For Each 對整欄的元素做逐一處理,
解析後處理的元素卻還是整欄?
我有些納悶.

至於那行 Mypath = "\C:\Users\leon\Desktop\Test\" 怪怪的,
C: 前面不應該有 \ 出現.

觀察你的程式對整個工作表的每一列都有做高度設定,
這應該不是你想要的結果.
建議限制程式實際會作用到的範圍,
避免有非所預期甚至是多餘的動作拖長作業時間,
這個可用  .Cells(Rows.Count, l).End(xlUp).Row 方式來取得最底端有資料的列號.

還有對用於列號表示的變數,
建議不論實際上會使用到多大的列號,
都要 "養成習慣" 一律設為 Long 而非 Integer,
因為會有溢位(超過可表示數字的最大值) 的風險.

最後這兩行 :
  E.ColumnWidth = 25    '調整儲存格寬度
  E.RowHeight = 50       '調整儲存格高度
設定的寬度是作用到存放圖檔名稱的儲存格,
而非放置圖片的儲存格,
我猜應非你想要的結果.
建議改為
  E.Cells(1, 2).ColumnWidth = 25    '調整儲存格寬度
  E.Cells(1, 2).RowHeight = 50       '調整儲存格高度

綜上所述建議程式修改如下