5,173
社区成员
发帖
与我相关
我的任务
分享COMBOBOX選項控制問題
在表內有以下數據
A欄 |B欄 |C欄 |D欄
姓名 語文 數學 英語
張三 80 60 85
李四 70 75 95
假設:在USERFORM1表單內有2個COMBOBOX
COMBOBOX1內的值為語文,數學,英語三項
COMBOBOX2內的值為張三,李四的分數.
如點擊COMBOBOX1內的語文,即COMBOBOX2內顯示只B欄下方的值(80.70),其它不顯示.
請問此程序應如何編寫?
A欄 |B欄 |C欄 |D欄
姓名 語文 數學 英語
張三 80 60 85
李四 70 75 95
假設:在USERFORM1表單內有2個COMBOBOX
COMBOBOX1內的值為語文,數學,英語三項
COMBOBOX2內的值為張三,李四的分數.
如點擊COMBOBOX1內的語文,即COMBOBOX2內顯示只B欄下方的值(80.70),其它不顯示.
請問此程序應如何編寫?
...全文
请发表友善的回复…
发表回复
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事件 你可以选择其他的.
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事件 你可以选择其他的.
