十个硬骨头，挑战高手，解决一个是一个

Eric_Cheung

enter 做不了.
如果解決了麻煩站內通知一聲.

取而代之的是ctrl感覺也挺方便.
只做了搜索與添加列表,沒有做重覆排除.
也沒做模糊搜索.

做了之後.想到了好多..或者再加上正則表達式.真的可以做一個很快捷模糊查找combobox!!

unsamesky

002 回车展开下拉列表：
组合框似乎本身就是文本框+列表框的组合，不如就分开来做！详见附件！

[ 本帖最后由 unsamesky 于 2010-5-24 22:48 编辑 ]

wzyqwdl

关于002 回车展开下拉列表：
是否可以换个角度想想：
（本人新手，如说的不对，勿怪~）
当按下ENTER 回车键的时候，假设是方向向右的。如 原来的 下拉列表是A2位置的，当按下enter，回车键，
结果A3 获得焦点。
当A3得到焦点的时候，打开下拉列表。


---BUG 就是 当想点A3的时候，只会跳回A2打开下拉列表。===

[ 本帖最后由 wzyqwdl 于 2010-5-24 23:33 编辑 ]

aman1516

原帖由 unsamesky 于 2010-5-24 22:38 发表
002 回车展开下拉列表：
组合框似乎本身就是文本框+列表框的组合，不如就分开来做！详见附件！

的确，响应enter 事件似乎对于表格控件有点难度，反而窗体更易解决。或许文本框+下拉列表是一种最好的选择吧。非常感谢unsamesky。

另外，87楼ZEZ有一个加辅助列函数版的，亦不失为一种方法，但输入更改，函数取筛选后的数据行数时，似乎“刷新”不效果不佳：下拉列表内出现数据不全、重复、空白等现象。

于是，同时想起“008 如何通过VBA对A列赋以VLOOKUP公式”这个问题，引申出一个新问题：
——“011 能通过VBA对一列赋于数组公式吗？”
J1=IF(ROW()>=COUNTA($B:$B),0,INDEX($B:$B,SMALL(IF(ISERROR(FIND($L$3,QB)),65536,ROW(QB)),ROW(1:1))))
J2=IF(ROW()>=COUNTA($B:$B),0,INDEX($B:$B,SMALL(IF(ISERROR(FIND($L$3,QB)),65536,ROW(QB)),ROW(2:2))))
（数组公式，下拉结果。QB 为名称，即B列的数据区域）哪个朋友能给个示例参考一下。

[ 本帖最后由 aman1516 于 2010-5-25 09:20 编辑 ]

风云际会6

VBA对赋于数组公式也是可以用的

unsamesky

在sheet1工作表中用鼠标任选一个区域，然后点鼠标右键选择“保持格式复制”，然后在sheet2表中选定要开始复制的单元格或区域，然后点“保持格式粘贴”即可。

关于筛选、查找等这些，自己本人不是很熟，所以有些不明楼主的意思。希望附件中的内容是楼主想要的！

unsamesky

呼，第10问，好像有点复杂！！！！没做完！！
特别是图片居中，图片本身就有缩放，所以…………

hgzbjsk

下来看看，学习了。

aman1516

原帖由 unsamesky 于 2010-5-25 21:28 发表
呼，第10问，好像有点复杂！！！！没做完！！
特别是图片居中，图片本身就有缩放，所以…………

非常感谢unsamesky的热心帮助！！010的确是我最需用到的一个表格之一。
正所谓看别人的容易而自己做很难，或者自己看的容易，而别人付出了很多很多，就如品尝美食人人都会，而做一个顶级大厨则极难。
在一个大师的作品中，自己结合一些所找到资料，在产品卡工作表代码作了一点修改（请unsamesky帮看看再完善），双击单元格读取对应模具卡的功能应已OK，010应说已解决了。
004测试也OK，代码可借用到许多工作表中去了，我近两天会在实际应用中作全面的测试，够我忙的了.........

太谢谢您了，言语无法表达我的感激之意。谢谢所有帮忙的朋友们，还是那句话：
您的一滴水，对于一个干渴的人，无疑是一捧甘甜的泉水！
予人玫瑰，手留余香。

风云际会6

008 如何通过VBA对A列赋以VLOOKUP公式.xls