[已解决]一定条件下的符合范围的单元格值引用

yangyy · 发表于 2012-2-7 08:12

求助.rar (82.72 KB, 下载次数: 26)

2012-2-7 08:09 上传

点击文件名下载附件在2012年3月生产日报sheet2中，D2单元格输入日期，引用2012年3月3月对应日期进行引用，有没有优化的方法，我用的是笨办法？
Sub lt()
On Error Resume Next
Application.ScreenUpdating = False
  Dim zb As Workbook
  Dim n As Integer
  Dim i As Integer
  Set zb = GetObject(ThisWorkbook.Path & "\2012年3月各单位报表\2012年3月.xls")
For n = 1 To zb.Sheets.Count
   If zb.Sheets(n).Name = Sheets("sheet2").Cells(2, 15).Value Then
      With Sheets("sheet2")
         .Cells(15, 5) = Application.WorksheetFunction.VLookup(.Cells(2, 7), zb.Sheets(n).Range("c4:bw34"), 2, 0)
         'B3单元格值=以“2日”为靶，在“统计表”内的c4:bw34区域范围内用vlookup函数查找符合“2日”靶的c列到bw列的第2列的值
         .Cells(15, 6) = Application.WorksheetFunction.VLookup(.Cells(2, 7), zb.Sheets(n).Range("c4:bw34"), 3, 0)
         .Cells(15, 7) = Application.WorksheetFunction.VLookup(.Cells(2, 7), zb.Sheets(n).Range("c4:bw34"), 4, 0)
         .Cells(15, 8) = Application.WorksheetFunction.VLookup(.Cells(2, 7), zb.Sheets(n).Range("c4:bw34"), 5, 0)

      End With
   End If
Next
zb.Close False
Application.ScreenUpdating = True
End Sub
作为初学者，只能用这种死方法，不知道有没有其他方法。
1、用With Wb.Sheets("统计").Range("d10").CurrentRegion
   Range("a1").Resize(.Rows.Count - 29, .Columns.Count - 0) = .Value
这个不知道怎么用？
2、能不能用数组呢

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-2-7 08:57

Sub lt() '获取炼铁数据
On Error Resume Next
Application.ScreenUpdating = False
Dim zb As Workbook
Dim Shname As String, str As Date
Dim i As Long, j As Long
Dim arr, arr1
Dim Ro As Long, Co As Long
Set zb = GetObject(ThisWorkbook.Path & "\2012年3月各单位报表\2012年3月.xls") '查找计算机内文件名为数据表.xls的工作薄，故xb定义为工作薄形式'
Shname = Cells(2, 15).Value
str = Cells(2, 4)
arr = zb.Sheets(Shname).Range("A4:BW" & [A65536].End(xlUp).Row) '将2012年3月表中的统计表数据赋值给数组
ReDim arr1(1 To 5, 1 To 18)
For i = 1 To UBound(arr) '在数组arr中循环找出对应的日期
If arr(i, 1) = str Then
For j = 4 To UBound(arr, 2) '循环对找出日期对应的行的数据处理
Ro = Int((j - 4) / 18) + 1
Co = (j - 4) Mod 18 + 1
arr1(Ro, Co) = arr(i, j) '生成1-4号高炉数据到数组arr1中
Next j
Exit For
End If
Next i
For i = 1 To 18 '求和循环
For j = 1 To 4
arr1(5, i) = arr1(5, i) + arr1(j, i)
Next j
Next i
zb.Close False
Range("E15:V19") = arr1
Application.ScreenUpdating = True
End Sub

复制代码

跳转到最佳答案楼层

氧化钙 · 发表于 2012-2-7 08:49

啊~这个也在学习中，期待

sunjing-zxl · 发表于 2012-2-7 08:57

这个最佳答案由 sunjing-zxl 给出，感谢 sunjing-zxl 的回答。

单击隐藏图章

Sub lt() '获取炼铁数据
On Error Resume Next
Application.ScreenUpdating = False
Dim zb As Workbook
Dim Shname As String, str As Date
Dim i As Long, j As Long
Dim arr, arr1
Dim Ro As Long, Co As Long
Set zb = GetObject(ThisWorkbook.Path & "\2012年3月各单位报表\2012年3月.xls") '查找计算机内文件名为数据表.xls的工作薄，故xb定义为工作薄形式'
Shname = Cells(2, 15).Value
str = Cells(2, 4)
arr = zb.Sheets(Shname).Range("A4:BW" & [A65536].End(xlUp).Row) '将2012年3月表中的统计表数据赋值给数组
ReDim arr1(1 To 5, 1 To 18)
For i = 1 To UBound(arr) '在数组arr中循环找出对应的日期
If arr(i, 1) = str Then
For j = 4 To UBound(arr, 2) '循环对找出日期对应的行的数据处理
Ro = Int((j - 4) / 18) + 1
Co = (j - 4) Mod 18 + 1
arr1(Ro, Co) = arr(i, j) '生成1-4号高炉数据到数组arr1中
Next j
Exit For
End If
Next i
For i = 1 To 18 '求和循环
For j = 1 To 4
arr1(5, i) = arr1(5, i) + arr1(j, i)
Next j
Next i
zb.Close False
Range("E15:V19") = arr1
Application.ScreenUpdating = True
End Sub

复制代码

sunjing-zxl · 发表于 2012-2-7 08:59

附件：

求助-sj.rar (86.69 KB, 下载次数: 16)

yangyy · 发表于 2012-2-7 09:18

sunjing-zxl 发表于 2012-2-7 08:59
附件：

谢谢
sunjing-zxl 老师，我慢慢消化一下，不懂的地方还很多

Tristone · 发表于 2012-2-7 09:24

好复杂啊，还看不懂，学习钻研一下先

		自动登录	找回密码
密码			注册

[已解决]一定条件下的符合范围的单元格值引用

相关帖子