彰化一整天的論壇

 找回密碼
 立即註冊
查看: 929|回復: 5

圖片無法複製

[複製鏈接]
發表於 2015-10-14 14:55:01 | 顯示全部樓層 |閱讀模式
老師好
再來打擾你,我在工作表"廠內模具",按下"執行"就會將資料複製到工作表"結果",但問題來了如圖J2,裡面的圖示(圖沒跟過來),這要怎麼寫,煩請老師解惑,謝謝了
j1.jpg
j2.jpg

copydata.xlsm

118.28 KB, 下載次數: 305

回復

使用道具 舉報

發表於 2015-10-15 13:50:44 | 顯示全部樓層
您好,
     圖要一般的貼上語法才會成功.
  1. Private Sub CommandButton1_Click()
  2.     Dim x As Long
  3.     Dim LastRow1 As Long
  4.     Dim Sh1, Sh2 As Worksheet
  5.     Set Sh1 = Sheets("廠內模具")
  6.     Set Sh2 = Sheets("結果")
  7.    
  8.     LastRow1 = Sh1.Range("A65536").End(xlUp).Row
  9.     'Sh1.Range("A6:I6" & LastRow1 & ",J6:O6" & LastRow1).SpecialCells(xlCellTypeVisible).Copy
  10.     'Sh2.Range("A6").PasteSpecial xlPasteAll
  11.    
  12.     Sh1.Range("A6:I6" & LastRow1 & ",J6:O6" & LastRow1).Copy
  13.     Sh2.Activate
  14.     Sh2.Range("A6").Select
  15.     ActiveSheet.Paste
  16.     Sh2.Range("A6").Select
  17.    
  18.     'Sh1.Range("c6:I6").Copy
  19.     'Sh2.Range("A6").Paste
  20.    
  21.     Application.CutCopyMode = False


  22. '    Sh1.Range("A4:I4" & LastRow1 & ",L4:Q4" & LastRow1).SpecialCells(xlCellTypeVisible).Copy
  23. '    Sh2.Range("A3").PasteSpecial Paste:=xlPasteValues

  24. End Sub
複製代碼
  1. Private Sub CommandButton1_Click()
  2.     工作表2.Range("A6:O50").Delete
  3. End Sub
複製代碼


copydata.xlsm

145.56 KB, 下載次數: 1

售價: 2 金錢  [記錄]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2015-10-15 14:19:51 | 顯示全部樓層
先謝謝老師,我下載試試。
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2015-10-15 14:54:48 | 顯示全部樓層
老師好
試過了可以用,但我有疑問.SpecialCells(xlCellTypeVisible).copy的xlCellTypeVisible的意思是"所有的可見儲存格",為何圖檔會沒辦法複製過去

工作表2.Range("A6:O50").Delete
工作表2.Range("A6:O50").ClearContents
這兩個的差別是?
回復 支持 反對

使用道具 舉報

發表於 2015-10-15 15:31:20 | 顯示全部樓層
bao 發表於 2015-10-15 14:54
老師好
試過了可以用,但我有疑問.SpecialCells(xlCellTypeVisible).copy的xlCellTypeVisible的意思是"所有 ...

您講的.SpecialCells(xlCellTypeVisible).copy也是可以用.
最主要是
ActiveSheet.Paste

您原本旳ClearContents不能把圖片刪除.要改成delete才可以刪掉圖片
  1. Private Sub CommandButton1_Click()
  2.     Dim x As Long
  3.     Dim LastRow1 As Long
  4.     Dim Sh1, Sh2 As Worksheet
  5.     Set Sh1 = Sheets("廠內模具")
  6.     Set Sh2 = Sheets("結果")
  7.    
  8.     LastRow1 = Sh1.Range("A65536").End(xlUp).Row
  9.     Sh1.Range("A6:I6" & LastRow1 & ",J6:O6" & LastRow1).SpecialCells(xlCellTypeVisible).Copy
  10.     'Sh2.Range("A6").PasteSpecial xlPasteAll
  11.    
  12.     'Sh1.Range("A6:I6" & LastRow1 & ",J6:O6" & LastRow1).Copy
  13.     Sh2.Activate
  14.     Sh2.Range("A6").Select
  15.     ActiveSheet.Paste
  16.     Sh2.Range("A6").Select
  17.    
  18.     'Sh1.Range("c6:I6").Copy
  19.     'Sh2.Range("A6").Paste
  20.    
  21.     Application.CutCopyMode = False


  22. '    Sh1.Range("A4:I4" & LastRow1 & ",L4:Q4" & LastRow1).SpecialCells(xlCellTypeVisible).Copy
  23. '    Sh2.Range("A3").PasteSpecial Paste:=xlPasteValues

  24. End Sub
複製代碼



copydata.xlsm

146.11 KB, 下載次數: 2

售價: 2 金錢  [記錄]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2015-10-16 12:48:59 | 顯示全部樓層
老師謝謝,有瞭解了
回復 支持 反對

使用道具 舉報

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

本版積分規則

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

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

GMT+8, 2020-5-27 05:38 , Processed in 0.135590 second(s), 24 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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