复杂问题！请高手赐教

[oldmouse]

有两个表
SHEET1中两列分别为：船名简称、船名 该表为基础库，事先录入好数据
想在SHEET2 中一个单元格输入船名简称，另一个单元格自动出现SHEET1中对应的船名，
问题来了：
不同船名的简称有可能一样，如：“埃利”“爱乐”“安利”的简称都是“AL”
我想请教能不能实现如果我输入“AL”，另一个单元格里能出现一个下拉框或者别的什么，反正能调出SHEET1中对应“AL”的所有船名来，让我选择！或者有法子调换，现在我用的VLOOKUP函数 每次都是出现相同简称不同船名中的第一个，郁闷，
高手帮忙

[oldmouse]

忘记说了是 EXCEL 问题

[lyl_98]

我认为这个问题是可以解决的。
1。通过查找能找到sheet1中的所有缩写为AL的名字；
2。然后将找到的结果以字符串的形式添加到Formula1:=的字符中就可以了
With Rows(i,4).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="埃利,爱乐,安利"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With

赚个分

[oldmouse]

楼上的好像没看懂我说的 我说得不清楚 怪我
我的意思是 还有好多这种情况阿 还有其他：如BL CL DL 等等
你的程序能加上说明么？我水平有点低

[oldmouse]

这段代码是宏么，我应该把它放在什么位置阿 请教

[oldmouse]

Formula1是什么 ？

[GHOSTSEA]

学习中，关注~~~~

[lyl_98]

在2中的代码，是我录制的宏，其他的属性不需要关注，只要能够把数据列处来就可以了。

不管你有多少个什么样子的缩写，处理都是一样的。
至于这段代码在什么时候执行，我觉得自己作一个统计的按钮，把代码放在单击的响应函数中就可以了，

至于其他的细节问题，还是请看一些VBA的入门书籍把。
哈哈，以上，

赚个分
考，上次回帖没给分啊，晕死～～～～

[沐NeMo]

www.access911.net 推荐
www.oficefans.net 推荐
www.ofice-cn.com 推荐
www.accfans.net
www.access-cn.com
www.accessqq.com
www.excelhome.net

一．国内网上Excel学习网站
OFFICE精英俱乐部 http://www.officefans.net/ 　
ExcelHome http://www.excelhome.net/　　
宏大站点 http://www.china-crane.com/vba_excel/ 　　
ExcelHelp(港） http://www.excelhelp.net/　　
青牛在线 http://officeup.51.net/
Office学园（台） http://office.twbts.com/
我的小站（呵呵） http://www.riveastking.com

[沐NeMo]

是Excel就去：www.excelhome.net 问问。