土木工程与管理学报是:一个单元格的多选项(区别有效性序列)

来源:百度文库 编辑:我要文章网 时间:2019/11/20 15:20:18
一个单元格的多选项(区别有效性序列) 

 

相关实现的代码:

Private Sub CommandButton1_Click()
If ActiveCell.Column = 2 Or ActiveCell.Column = 4 Then
ActiveCell = ""
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 4 Then
UserForm1.Show
End If
End Sub

窗体代码:

Private Sub ListBox1_Click()
Dim myTEXT
myTEXT = ActiveCell.Formula
ActiveCell = myTEXT & " " & UserForm1.ListBox1.Value
End Sub

动画示例: