listbox的值怎么获取vba

vba窗体中如何获取列表框listbox1选中行的值提取出来，这决于您的列表框是多列还是单列。如果单列列表框的数据实际上是一维数组，则可以使用工作表函数transform导入文本框。经过三次转换后，可以将其转换为一维数组，然后使用join函数将其合并并写入文本框。多列列表框是二维数组。编写一个循环来读取列表框中的数据，然后将其写入文本框这是一个单列数据示例和一个多列数据示例。

如果listbox是多列的情况下，将listboxcolumn属性看作一个二维数组使用，比如获取第一行第一列的值 listboxcolumn(0,0)，单列就是一维数组。或者定义一个variant型变量，然后将listboxlist赋值给它，也会得到一个数组。

例如DTPicker1

Text1 = DTPicker1DayOfWeek '显示日期的星期， 1为星期日 2为星期一

Text2 = DTPicker1Value '显示显示日期， Year 年份，月Month 日Day 时Hour。。。。

DTPicker1Format '日期格式

Sub aa()

Dim shp As Shape

For Each shp In Shapes

irow1 = shpTopLeftCellRow '获的shape对象的左上角所在单元格的行号

icol1 = shpTopLeftCellColumn '获的shape对象的左上角所在单元格的的列号

irow2 = shpBottomRightCellRow '获得shape对象的右下角所在单元格的行号

icol2 = shpBottomRightCellColumn '获得shape对象的右下角所在单元格的列号

Cells(irow1, icol2 + 1) = shpName '把shape对象的名字写入shape对象右边一列

Cells(irow1, icol2 + 2) = Shapes(Cells(irow1, icol2 + 1)Value)TopLeftCellRow '通过引用shape对象的名字,获得shape左上角所在的行号,并写入shape对象右边第二列

Next

End Sub

非窗体控件中的optionbutton如果要取它的属性，必须这么表示

If Sheets("sheet1")optionbutton2objectValue = true Then

像VB6一样

写入顺序文件，如果OPTIONBUTTON的值为true写1否则写0

每行写一个

读取顺序文件，按照顺序填上就行了。现在用VB2008，忘了顺序文件怎么读取写入了，只能给你一个思路，见谅。

创建一个控件数组option(X)

写入

dim x as long

open [Filename] for input as #1

for x=0 to option的个数

if option(X)value = then

print #1,"1"

else

print#1,"0"

end if

next

close #1

读取

dim tmp(0 to option的个数) as string,x as long

open [filename] for input as #2

for x=1 to option的个数

lineinput #2,tmp(x)

if trim(tmp(x))=0 then

option(X)value=false

else

option(X)value=true

end if

next

close #2

以上就是关于listbox的值怎么获取vba全部的内容，包括:listbox的值怎么获取vba、vba中如何使用日历控件的值、vba取值activex控件所在行号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！