[已解决]vba数据定位

cfq-xxj

课表问题，查到的结果不能放到应有位置

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-8-12 10:18

Sub 查找()
    Dim Rng As Range
    Dim Hang%, jiaoshi$
    Dim arr, brr(0 To 9, 1 To 6), i%, x%, y%
    jiaoshi = Sheets("教师课表").Range("e1")
    With Worksheets("课表")
        Hang = .Range("b:b").Find(jiaoshi).Row
        arr = .Cells(Hang, 4).Resize(1, 58)
        For i = 1 To 58
            If i > 49 Then
                x = i Mod 10
                y = i \ 10 + 1
            Else
                x = (i - 1) Mod 10
                y = (i - 1) \ 10 + 1
            End If
            brr(x, y) = arr(1, i)
        Next i
    End With
    Range("c4").Resize(10, 6) = brr
End Sub
把星期三多余的第９节灭掉以后，用这代码

跳转到最佳答案楼层

zjcat35

为什么星期三有两个第９节课！！

cfq-xxj

把第一个第九节干掉吧！

cfq-xxj

zjcat35 发表于 2012-8-12 08:22
为什么星期三有两个第９节课！！

将第一个第九节去掉

cfq-xxj

cfq-xxj 发表于 2012-8-12 09:54
将第一个第九节去掉

还是不能准确定位！

zjcat35

星期五、六都是只有９节课的么？

cfq-xxj

zjcat35 发表于 2012-8-12 09:57
星期五、六都是只有９节课的么？

是的，其实我也是帮别人做的，也不真了解。

zjcat35

Sub 查找()
    Dim Rng As Range
    Dim Hang%, jiaoshi$
    Dim arr, brr(0 To 9, 1 To 6), i%, x%, y%
    jiaoshi = Sheets("教师课表").Range("e1")
    With Worksheets("课表")
        Hang = .Range("b:b").Find(jiaoshi).Row
        arr = .Cells(Hang, 4).Resize(1, 58)
        For i = 1 To 58
            If i > 49 Then
                x = i Mod 10
                y = i \ 10 + 1
            Else
                x = (i - 1) Mod 10
                y = (i - 1) \ 10 + 1
            End If
            brr(x, y) = arr(1, i)
        Next i
    End With
    Range("c4").Resize(10, 6) = brr
End Sub
把星期三多余的第９节灭掉以后，用这代码

cfq-xxj

zjcat35 发表于 2012-8-12 10:18
Sub 查找()
    Dim Rng As Range
    Dim Hang%, jiaoshi$

Range("c4").Resize(10, 6) = brr
是什么含义？

cfq-xxj

zjcat35 发表于 2012-8-12 10:18
Sub 查找()
    Dim Rng As Range
    Dim Hang%, jiaoshi$