[發問] 依條件刪除圖片

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

2^#

發表於 2013-3-19 13:56 | 顯示全部帖子

回復 2# GBKEE

不好意思　有幾個問題

1. 有一句看不太懂　"If D(x.TopLeftCell.Offset(-1).Text) = "" Then x.Delete"
   這是指圖上方的 item 對應到表格的 weekly 為空格的意思嗎？

2.  我若將 weekly 改到 D 欄　item 仍在 B 欄
   因此將程式碼改為 For Each R In .Range("D3:D" & .[D3].End(xlDown).Row)
         　　　　　       D(R.Value) = R.Offset(, 2).Value
   其餘不變
   但執行出來卻將所有的圖片刪除？

請幫忙看一下　謝謝！

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

3^#

發表於 2013-3-19 16:00 | 顯示全部帖子

本帖最後由 Genie 於 2013-3-19 16:03 編輯

回復 2# GBKEE

不好意思　第二點打錯了

2.  我若將最上方的總表 weekly 改到 D 欄　item 仍在 B 欄
   因此將程式碼改為 For Each R In .Range("B3:B" & .[B3].End(xlDown).Row)
         　　　　　       D(R.Value) = R.Offset(, 2).Value
   其餘不變
　  執行出來會將所有的圖片刪除？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
改完才看到回覆……

不過執行出來會將所有的圖片都刪除耶

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

4^#

發表於 2013-3-19 16:14 | 顯示全部帖子

回復 4# GBKEE

我試出來的結果是只改上方總表的 weekly 欄位　所有的圖都會被刪除
但若是連圖下方表格的 weekly 一起變更的話　執行就正常

請問有沒有辦法不動圖下方的表格　只改總表的 weekly 欄位呢？

謝謝！

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

5^#

發表於 2013-3-19 17:04 | 顯示全部帖子

回復 7# GBKEE

不好意思　我試成功了

不過有個問題想問
為什麼　"For Each R In .Range("b3:b" & .[b3].End(xlDown).Row)"　要 B3:B 呢？
這一段不是在定義字典的內容嗎？
假如我的範圍只有 B3:B7　只輸入 B3:B7　且將 weekly 的欄位移至 D 欄　為什麼會執行錯誤？
但若輸入 B3:B 就沒有問題呢？

Picture.zip (975.68 KB)

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

6^#

發表於 2013-3-20 09:54 | 顯示全部帖子

回復 9# GBKEE

懂其意思了！　非常感謝～