作者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/cn.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