[求助]:如何点击单元格的下拉列表中的值而运行程序

oceanwind · 发表于 2004-6-2 22:17

如何实现点击一单元格后出现下拉列表,点击其中一值后运行此值所代表的相应的程序.?

望高手赐教一二

oceanwind · 发表于 2004-6-3 19:13

这个要求不能作吗?

竹尊者 · 发表于 2004-6-3 20:00

6IFLxSFb.rar (6.97 KB, 下载次数: 140)

oceanwind · 发表于 2004-6-3 22:02

非常感谢

竹尊者

有点接近我的想法,但是如果点击了下拉列表中的值后会直接在单元格中输入此值,我的意思是如果单元格中有一原值,但是点击了下拉列表中的值时不要改变原来单元格的值而只是运行接定的代码.

不知能不能作到?

oceanwind · 发表于 2004-6-4 20:21

有人来关心一下吗?

dljyh · 发表于 2004-6-4 20:35

非常感谢

竹尊者

不是楼主需要的但它是我需要，也谢谢楼主

竹尊者 · 发表于 2004-6-5 09:38

你把向单元格输入值的代码改成你需要的就行了

oceanwind · 发表于 2004-6-6 13:40

谢谢竹尊者

是这样,我原本想在如附档案D列中我想修改的单元格(单元格位置不固定)上点击下拉列表中的值从而运行代码在此单元格下面插一行并且将原来单元格内容划上删除线.再手动在插入的行的原单元格正下面的单元格中输入修改后的内容.

不知该怎样作,还请各位不啬赐教.

RbquPlVf.rar (9.53 KB, 下载次数: 28)

oceanwind · 发表于 2004-6-6 18:24

各位好:

我现在换了一种思路,用SELECTION CHANGE事件结合MSGBOX对话框来作,代码如下.以求抛砖引玉.以求更简便的方法.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 5 Or Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub ans = MsgBox("可以吗 ?", 4, "1:划删除线 2:下插一行") If ans = 6 Then Target.Offset(1, 0).EntireRow.Insert End If

End Sub

jack.zhou · 发表于 2004-6-4 20:36

以下是引用oceanwind在2004-6-4 20:21:00的发言： 有人来关心一下吗?

SwgBnpYl.rar (6.98 KB, 下载次数: 87)

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