[已解决]请高手帮忙看一下代码

rongkaizhou

请高手帮忙看一下代码，判断一行日期只执行部分就退出的问题

最佳答案

月排行榜 / 总排行榜

1032446692

2015-7-28 18:19

Private Sub CommandButton1_Click()
Dim r&, f&, crr, err
a = Cells(3, 3).Value
c = Cells(1, 3): k = Cells(1, 6)
crr = Worksheets(a).Range("c5:bl" & Worksheets(a).Cells(Rows.Count, 2).End(xlUp).Row)
[e7:j60].ClearContents
err = Range("d7:j60")
   For r = 1 To UBound(crr, 2)
       If crr(1, r) >= c And crr(1, r) <= k Then
          For f = 3 To UBound(crr)
              n = n + 1
              err(n, 2) = crr(f, r - 1)
              err(n, 7) = crr(f, r)
          Next
       End If
   Next
   Worksheets("sheet1").Range("e7").Resize(UBound(err), 1) = Application.Index(err, 0, 2)
    Worksheets("sheet1").Range("j7").Resize(UBound(err), 1) = Application.Index(err, 0, 7)
End Sub

跳转到最佳答案楼层

1032446692

Private Sub CommandButton1_Click()
Dim r&, f&, crr, err
a = Cells(3, 3).Value
c = Cells(1, 3): k = Cells(1, 6)
crr = Worksheets(a).Range("c5:bl" & Worksheets(a).Cells(Rows.Count, 2).End(xlUp).Row)
[e7:j60].ClearContents
err = Range("d7:j60")
   For r = 1 To UBound(crr, 2)
       If crr(1, r) >= c And crr(1, r) <= k Then
          For f = 3 To UBound(crr)
              n = n + 1
              err(n, 2) = crr(f, r - 1)
              err(n, 7) = crr(f, r)
          Next
       End If
   Next
   Worksheets("sheet1").Range("e7").Resize(UBound(err), 1) = Application.Index(err, 0, 2)
    Worksheets("sheet1").Range("j7").Resize(UBound(err), 1) = Application.Index(err, 0, 7)
End Sub

zjdh

工作表.rar (20.68 KB, 下载次数: 3)

2015-7-28 18:30 上传

点击文件名下载附件

rongkaizhou

1032446692 发表于 2015-7-28 18:19
Private Sub CommandButton1_Click()
Dim r&, f&, crr, err
a = Cells(3, 3).Value

谢谢老师！回帖很快。原来是维数的问题啊，我是初学写代码，困扰了我一天的问题一下子您就搞定了，佩服！再次谢谢你的帮忙！

rongkaizhou

zjdh 发表于 2015-7-28 18:30

同样谢谢zjdh  老师，不但解决的问题还将代码简化了，这样运行速度更快，向你学习