COMBOBOX選項控制問題

M_Judy0 2008-02-23 03:48:30

在表內有以下數據

A欄 |B欄 |C欄 |D欄
姓名語文數學英語
張三 80 60 85
李四 70 75 95

假設:在USERFORM1表單內有2個COMBOBOX
COMBOBOX1內的值為語文,數學,英語三項
COMBOBOX2內的值為張三,李四的分數.
如點擊COMBOBOX1內的語文,即COMBOBOX2內顯示只B欄下方的值(80.70),其它不顯示.
請問此程序應如何編寫?

...全文

46 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

mrchenxlove 2008-02-24

打赏
举报

Private Sub CommandButton1_Click()

If Range("B7").Value = "語文" Then

Range("C7").ClearContents

Range("C7").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="= aone"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
ElseIf Range("B7").Value = "數學" Then

Range("C7").ClearContents
Range("C7").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="= atwo"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End If
End Sub

以上,希望对你有帮助
COMBOBOX1位置:B7
COMBOBOX2位置:C7
触发时机CommandButton1_Click事件你可以选择其他的.