换一个表单后 给数组赋值 类型不匹配

sunshinecrx

dqhtju 发表于 2017-8-16 15:12
娜的看你使用哪一个表格的数据了
如果要快速解决，你直接上附件

我觉得可能是DATATABLE数组和选中单元格不在一个父属性有关。是不是数组变量只能被同一张SHEET中的单元格赋值？

dqhtju

sunshinecrx 发表于 2017-8-17 09:50
我觉得可能是DATATABLE数组和选中单元格不在一个父属性有关。是不是数组变量只能被同一张SHEET中的单元格 ...

数组变量可以被赋任何一张表格的值，前提是必须加上父对象
i.e
arr=sheets("A").range("A1:G10") ，这个就是获取表格A的值
arr=sheets("B").range("a1:G10") ，这个则是获取表格B的值

sunshinecrx

dqhtju 发表于 2017-8-17 11:44
数组变量可以被赋任何一张表格的值，前提是必须加上父对象
i.e
arr=sheets("A").range("A1:G10") ，这 ...

Private Sub CommandButton2_Click()
Dim RowNum%, ColumnNum%
RowNum = Range("A65536").End(xlUp).row
ColumnNum = Range("A1").CurrentRegion.Columns.Count
Range(Cells(1, 1), Cells(RowNum, ColumnNum)).Copy Destination:=Range("T1")


ActiveWorkbook.Worksheets("工作底稿").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("工作底稿").Sort.SortFields.Add _
    Key:=Range("T2:T31"), _
    SortOn:=xlSortOnValues, _
    Order:=xlAscending, _
    CustomOrder:="上  海,北  京,广  东,江  苏,山  东,浙  江", _
    DataOption:=xlSortNormal

'应用新的排序字段进行排序
With ActiveWorkbook.Worksheets("工作底稿").Sort
    .SetRange Range("T1").CurrentRegion               
        .Header = xlYes                                    
        .MatchCase = False                                 
        .Orientation = xlTopToBottom                     
        .SortMethod = xlPinYin                              
    .Apply                                             
End With
   
   
Dim datatable()
ReDim datatable(1 To RowNum, 1 To ColumnNum)
datatable = Range("T1").CurrentRegion

Sheets("得分排名").Range("A1").Resize(ColumnNum, RowNum) = Application.WorksheetFunction.Transpose(datatable)



End Sub

-----------

以上代码在SHEET1的VBE环境下可以运行

但是将其中的一段代码放在SHEET2中的VBE环境下，就报错了。
Dim datatable()
ReDim datatable(1 To RowNum, 1 To ColumnNum)
datatable = Sheets(1).Range("T1").CurrentRegion
Range("A1").Resize(ColumnNum, RowNum) = Application.WorksheetFunction.Transpose(datatable)

sunshinecrx

sunshinecrx 发表于 2017-8-17 13:15
Private Sub CommandButton2_Click()
Dim RowNum%, ColumnNum%
RowNum = Range("A65536").End(xlUp).ro ...

datatable=currentregion.value


少了".value"。自己搞定了。