2,506
社区成员
发帖
与我相关
我的任务
分享关于excel单元格的下拉列表的问题，请高手帮忙
普通的单元格的下拉列表事可以通过数据--〉有效性来实现，现在我需要选中下拉列表的值，但是在单元格显示的值是另外的值，比如下拉列表的为男 女，我选中男后在单元格显示1，选中女显示0，请问谁用过类似的这些功能，请高手帮忙阿
...全文
请发表友善的回复…
发表回复
lyl005 2006-08-24
- 打赏
- 举报
Target.Row：被选中的单元格的行数
Target.Column：被选中的单元格的列数
可能我的方法比较土，^_^
Target.Column：被选中的单元格的列数
可能我的方法比较土，^_^
yjking138 2006-08-23
- 打赏
- 举报
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As String
Dim rng
i = "A1"
rng = Range("A:A")
If Range(i) = "男" Then
Range("A:A") = 1
Else
Range("A:A") = 0
End If
End Sub
Dim i As String
Dim rng
i = "A1"
rng = Range("A:A")
If Range(i) = "男" Then
Range("A:A") = 1
Else
Range("A:A") = 0
End If
End Sub
jrwx 2006-08-23
- 打赏
- 举报
谢谢 你这样只能是a1单元格才起作用，如果我想让整列起作用怎么办？
yjking138 2006-08-23
- 打赏
- 举报
好了就结贴啊!
50分啊!
我就等分用啊!
50分啊!
我就等分用啊!
lyl005 2006-08-23
- 打赏
- 举报
^_^，试了一下，现在好了，谢谢大家
happy_sea 2006-08-23
- 打赏
- 举报
把你的数据有效性设置修改一下不就行了吗？
Arqui 2006-08-23
- 打赏
- 举报
yjking138() 写的挺好的
lyl005 2006-08-22
- 打赏
- 举报
我肯定是通过设置有效性来实现下拉列表的啊，请高手多多指导，应该怎么设置？
yjking138 2006-08-22
- 打赏
- 举报
那是你的有效性设置的问题，与程序无关!
lyl005 2006-08-22
- 打赏
- 举报
我试了，可是会经常跳出一个错误的报告啊，“输入值非法。其他用户已经限定了可以输入该单元格的数值。”
yjking138 2006-08-22
- 打赏
- 举报
可以啊，设置好有效性后，在进入VBA编写，在对应的工作中写入如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i as string
i = "A1"
If Range(i) = "男" Then
Range(i) = 1
Else
Range(i) = 0
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i as string
i = "A1"
If Range(i) = "男" Then
Range(i) = 1
Else
Range(i) = 0
End If
End Sub
lyl005 2006-08-22
- 打赏
- 举报
我也想实现这种功能啊，关注中！
Arqui 2006-08-22
- 打赏
- 举报
不能实现 因为你的有效性已经写死
