作者jbs2000 (咖啡貓)
看板Office
標題Re: [問題] 甲儲存格打檔名,乙儲存格自動插入圖片？
時間Sat Jul 30 16:03:58 2016
非常感謝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://webptt.com/m.aspx?n=bbs/Office/M.1469865841.A.D8A.html
1F：→ soyoso: 問題1可用like "[a-zA-Z]"判斷是否為英文字母 07/30 16:14
2F：→ soyoso: 問題2，可用iif判斷正或負，用於top後面 07/30 16:15
3F：→ soyoso: 問題3，判斷，以right右取2位，cint或clng轉integer或long 07/30 16:20
4F：→ soyoso: 丟worksheets或sheets的index內 07/30 16:21
5F：→ soyoso: 後面加上select，p欄最後一筆有資料用range.end xlup或 07/30 16:22
6F：→ soyoso: xldown(有連續資料時使用)，下移一筆到空白儲存格用offset 07/30 16:23
7F：→ soyoso: 問題4，將要找的副檔名以迴圈方式，丟到dir內尋找，判斷是 07/30 16:30
8F：→ soyoso: 否有找到，有找到可用變數取得該副檔名，以exit for或do離 07/30 16:32
9F：→ soyoso: 開迴圈 07/30 16:32
10F：→ jbs2000: 謝謝您！我來想想辦法。 07/30 20:13