一个程序员最基本的要求和工作就是能够为各种数据库增删改查,这中间自然少不了赋值的过程,小伙伴们知道有哪些方式能为组合框赋值吗?下面这篇文章就一起看看吧。
例:一个组合框ComboBox1,从工作表1中的A列中提取不重复数值赋以这个组合框,代码怎么编写?
方式一:Private Sub UserForm_Initialize()
Dim h As New Collection
Dim i %
On Error Resume Next
For i = 1 To Sheet1. [a65536].End(xlUp)
.Row
h.Add Sheet1.Cells(i, 1), CStr(Sheet1.Cells(i, 1))
If Err.Number = 0 Then
Me.ComboBox1.AddItem Sheet1.Cells(i, 1)
End If
Err.Clear
Next
End Sub
方式二:Private Sub UserForm_Initialize()
Range("a1:a" & Range("a65536")
.End(xlUp)
.Row)
.AdvancedFilter Action: = xlFilterCopy, CopyToRange: = Range("iv1"), Unique: = True
ComboBox1.List = WorksheetFunction.Transpose(Range("iv1:iv" & Range("iv65536")
.End(xlUp)
.Row))
Range("iv1:iv" & Range("iv65536")
.End(xlUp)
.Row) = ""
End Sub
总结
赋值:
1)、单选赋值setValue$('#Id') .combobox('setValue', 'key')
2)、多选赋值setValues多选key值是一个数组, $('#Id').combobox('setValues', 'key1,key2,key3'.split(','))
取值:
1)、单选取值getValue$('#Id').combobox('getValue')
2)、多选取值getValues多选key值是一个数组, $('#Id').combobox('getValues')
PS:取得的值是一个数组,如果想转换为以逗号分隔的字符串的话例如("1,2,3"),使用join方法,代码如下:var str=$('#Id').combobox('getValues').join(",");
以上就是关于组合框赋值的所有内容,对于这种java基础知识,如果还有疑问,可以关注我们的网站了解答案。
推荐阅读: