Re: [問題] 甲儲存格打檔名,乙儲存格自動插入圖片?

看板Office作者 (咖啡貓)時間9年前 (2016/07/30 16:04), 編輯推噓0(0010)
留言10則, 2人參與, 最新討論串2/2 (看更多)
非常感謝soyoso的幫忙實現了這個功能, 而且比我原本想的還好用。 也因為原本以為能這樣就很好了, 但反覆測試後必須承認自己一開始考慮未周, 有些細節沒有想到,研究了一下,自己只會改 pic.Top = Cells(1,fstr).Top 的那個 1 ------------------------------------------- 修改內容如下: 1.目前檔名前面的英文字母,會讓圖片在該欄插入, 若下一個輸入的檔名開頭無英文字母, 則繼續使用該欄來插入,直到出現新的前綴字母為止。 2.輸入"+" 則pic.Top = Cells(1,fstr).Top 的那個 1自動減1(即上移) 輸入"-",即下移(音即同一張圖重新插入,但位置上、下移) 3.輸入"s01"~"s**"(**表二位數),則跳至第**張工作表, 而且會自動停在P欄有資料的尾端的空格上。 4.目前只能插入jpg檔,有沒有可能包括bmp、png、gif呢? 可否麻煩soyoso的神奇之手再次協助,看看該如何修改為好。 非常感謝^^ ※ 引述《jbs2000 (咖啡貓)》之銘言: : 軟體:Excel : 版本:2013 : 若我想在P1輸入檔名(不含副檔名)如 a0001 : 在A1自動插入圖片(路徑固定); : 接下來繼續在P2輸入另一個檔名,如 a1002 : A1原本的圖片會刪除,再自動插入第二個圖片; : 以此類推,用P欄最後一個檔名的圖片,去置換掉前一個圖片。 : 接下來,仍在P欄繼續輸入另一個字母開頭的檔名,如f0001 : A1的圖沒事,換成在F1進行置換圖片(若有圖就置換,沒圖就插入); : 若在P欄繼續輸入k0001,就變成在F1進行置換圖片。 : 也就是說, : A1固定顯示檔名a開頭的圖片, : F1固定顯示檔名f開頭的圖片, : K1固定顯示檔名k開頭的圖片。 : 而且都是置換的方式。 : P欄則是唯一輸入的地方,每次的動作都是依據P整欄 : 有資料的最下方是何檔名而定。(中間若有空白則忽略空白) : 找了好幾天,沒找到有相關的做法,期待在這裡能有一線希望。 : 謝謝 :) -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 120.116.11.205 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1469865841.A.D8A.html

07/30 16:14, , 1F
問題1可用like "[a-zA-Z]"判斷是否為英文字母
07/30 16:14, 1F

07/30 16:15, , 2F
問題2,可用iif判斷正或負,用於top後面
07/30 16:15, 2F

07/30 16:20, , 3F
問題3,判斷,以right右取2位,cint或clng轉integer或long
07/30 16:20, 3F

07/30 16:21, , 4F
丟worksheets或sheets的index內
07/30 16:21, 4F

07/30 16:22, , 5F
後面加上select,p欄最後一筆有資料用range.end xlup或
07/30 16:22, 5F

07/30 16:23, , 6F
xldown(有連續資料時使用),下移一筆到空白儲存格用offset
07/30 16:23, 6F

07/30 16:30, , 7F
問題4,將要找的副檔名以迴圈方式,丟到dir內尋找,判斷是
07/30 16:30, 7F

07/30 16:32, , 8F
否有找到,有找到可用變數取得該副檔名,以exit for或do離
07/30 16:32, 8F

07/30 16:32, , 9F
開迴圈
07/30 16:32, 9F

07/30 20:13, , 10F
謝謝您!我來想想辦法。
07/30 20:13, 10F
文章代碼(AID): #1Nd5znsA (Office)
文章代碼(AID): #1Nd5znsA (Office)