求助从列表框窗体内输入数据

lxx_jypx · 发表于 2011-1-18 16:36

在excel表格里输入数据时想弹出一个列表窗口，从列表窗口选择一个数据填充到当前单元格不知用VBA怎么实现不想用数据有效性那种下接列表，因为数据太多，

上清宫主 · 发表于 2011-1-18 19:05

本帖最后由爱疯于 2012-11-2 20:25 编辑

试试这个（改自别人的类）：
[hide]

试试类.zip (13.62 KB, 下载次数: 161)

轩辕轼轲 · 发表于 2011-1-18 23:09

看看那个类

轩辕轼轲 · 发表于 2011-1-18 23:11

不知道你的数据太多多到什么程度。上传附件看一下吧。

liuguansky · 发表于 2011-1-18 23:44

{:812:}给个附件和模拟结果先。

windvchina · 发表于 2011-1-19 11:28

lxx_jypx 发表于 2011-1-18 16:36
在excel表格里输入数据时想弹出一个列表窗口，从列表窗口选择一个数据填充到当前单元格不知用VBA怎么实现不 ...

貌似以前论坛有个提问的艺术。

在提问的时候。尽量带上附件。如果涉及到机密的话就随便编些数据来提问。

毕竟大家都是出来工作的人。没那么多时间来自编数据。

lxx_jypx · 发表于 2011-1-19 11:50

上传表格，请指点一下，里边有点小问题没解决掉

lxx_jypx · 发表于 2011-1-19 12:02

ActiveSheet.Cells(ActiveCell.Row, 1) = Left(n, InStr(n, "-") - 1)

用这个可以了

lxx_jypx · 发表于 2011-1-19 17:44

此问题已解决，需要在excel里实现弹出窗口快速录入的朋友可以参考现付上文件
在这里再次感谢
mn860429

yty773436272 · 发表于 2011-12-2 23:28

上清宫主发表于 2011-1-18 19:05
试试这个（改自别人的类）：
**** 本内容被作者隐藏 ****

朋友，怎么在k,R,W中列中任意单击其中的一个单元格弹出你那个数据输入窗体，麻烦你把代码给我改改赛

		自动登录	找回密码
密码			注册

求助 从列表框窗体内输入数据