5,139
社区成员
发帖
与我相关
我的任务
分享请教EXCEL下拉列表的问题
我有两个格子,A1,A2,都是列表，A1中是1,2,3，我希望，A1选1的时候，A2是A,B,C,A1选2的时候，A2又变成ONE,TWO,THREE,谁告诉我怎么做啊？
谢谢
谢谢
...全文
请发表友善的回复…
发表回复
little23 2005-11-15
- 打赏
- 举报
其实吾使编程，用公式都可以实现的！利用数据有效性可以动态定义的！
留言比我，我发个实例比你啦！
留言比我，我发个实例比你啦！
northwolves 2005-11-06
- 打赏
- 举报
Private Sub ComboBox1_Click()
ComboBox2.Object.List = Array(Array("A", "B", "C"), Array("one", "two", "three"), Array("一", "二", "三"))(ComboBox1.ListIndex)
End Sub
Private Sub ComboBox1_GotFocus()
ComboBox1.Object.List = Array(1, 2, 3)
End Sub
ComboBox2.Object.List = Array(Array("A", "B", "C"), Array("one", "two", "three"), Array("一", "二", "三"))(ComboBox1.ListIndex)
End Sub
Private Sub ComboBox1_GotFocus()
ComboBox1.Object.List = Array(1, 2, 3)
End Sub
cuiyue4420 2005-11-05
- 打赏
- 举报
强,顶
qhgary 2005-11-04
- 打赏
- 举报
不好意思，
Range("B1") = "1"
改为Range("B1") = "A"
Range("B1") = "1"
改为Range("B1") = "A"
qhgary 2005-11-04
- 打赏
- 举报
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "1" Then
With Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="A,B,C"
End With
Range("B1") = "1"
Else
If Range("A1") = "2" Then
With Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="ONE,TWO,THREE"
End With
Range("B1") = "ONE"
End If
End If
End Sub
If Range("A1") = "1" Then
With Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="A,B,C"
End With
Range("B1") = "1"
Else
If Range("A1") = "2" Then
With Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="ONE,TWO,THREE"
End With
Range("B1") = "ONE"
End If
End If
End Sub
