Vba 将列表框项目导出到Excel电子表格中的命名范围
我在Excel VBA的用户表单上有一个名为listBox1的列表框,表单上还有一个名为submit的按钮。从第2页单元格A2开始的动态范围填充列表框。我想将此列表框的内容导出到工作表1上名为dataCells的命名范围。我当前使用的代码很接近,但不知何故将列表框数据导出到工作表1的单元格A1,而不是从命名范围数据单元格的第一个单元格开始。我做错了什么Vba 将列表框项目导出到Excel电子表格中的命名范围,vba,excel,Vba,Excel,我在Excel VBA的用户表单上有一个名为listBox1的列表框,表单上还有一个名为submit的按钮。从第2页单元格A2开始的动态范围填充列表框。我想将此列表框的内容导出到工作表1上名为dataCells的命名范围。我当前使用的代码很接近,但不知何故将列表框数据导出到工作表1的单元格A1,而不是从命名范围数据单元格的第一个单元格开始。我做错了什么 //Code to populate listBox 1 Private Sub Userform1_initialize() Dim
//Code to populate listBox 1
Private Sub Userform1_initialize()
Dim dataItems as Range
Dim item as Range
worksheets("sheet2").Activate
Set dataItems = Range("A2" , Range("A2").end(xlDown))
for each item in dataItems
listbox1.addItem(item)
Next item
End sub
//Code to export the listbox contents to named range in sheet 1
Private Sub Submit_Click()
Dim dataCells as Range
Dim dataCount as Integer
Dim i as integer
worksheets("sheet1").Activate
dataCount = listBox1.ListCount - 1
set dataCells = Range("B2" , Range("B2").offset(0, dataCount))
for i = 0 to listBox1.ListCount - 1
dataCells(0, i) = listBox1.list(i , 0) // exports to A1 of sheet 1??
next i
End sub
试试看,让我知道它是否适合你。请注意,如果项目不是字符串,则如果使用VB,可以将dataArray更改为变量。基本上,我将listbox项放入一个数组中,然后将其填充到一个范围中:
Private Sub Submit_Click()
worksheets("sheet1").Activate
Dim i as integer
dim dataArray(listBox1.ListCount-1) as String
for i = 0 to listBox1.ListCount - 1
dataArray(i) = listBox1.list(i , 0)
next i
Range("B2").Resize(listBox1.ListCount -1,1) = dataArray
End sub
在我的代码示例中,我想展示一种不使用additem填充listbox的快速方法 同样为了导出到sheet1,我使用了VBA数组,但是listbox1.list也可以工作,我添加了注释 这项工作:
Option Explicit
Private Sub UserForm_Activate()
Dim i&
Dim dataItems As Range
With Me
With .ListBox1
.Clear 'not needed in userform_initialize, but i did it in a _activate sub
With Worksheets("sheet2")
Set dataItems = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)) 'i modified this because if your code hits a blank, it will think its the last line...
End With
.List = dataItems.Value
Dim Data()
ReDim Data(1 To .ListCount, 1 To 1)
Data = .List
'this section goes to Submit_Click()
With Worksheets("sheet1")
Set dataItems = .Range("B2", .Range("B2").Offset(Me.ListBox1.ListCount - 1, 0))
End With
With dataItems
.Value = Data '.value2=me.listbox1.list , works too
End With
End With 'listbox1
End With 'me
End Sub
数据单元将是基于一的二维阵列,而不是基于零的阵列。在VBE的即时窗格中?RangeB2.Cells0,0.Address提供$A$1数据数组需要是类型变量,并且是二维的,如果您想写回工作表,则始终从1开始,而不是从0开始。dim DataArray,下一行是redim DataArray 1到listBox1.ListCount,1。以我的答案为例