VBA-从周课表统计节次

Posted lunawzh

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VBA-从周课表统计节次相关的知识,希望对你有一定的参考价值。

Sub datainsert()

    Dim r1 As Integer, r2 As Integer, i As Integer, j As Integer, findrow As Integer, findMonth As Integer, tday As Integer
    
    findMonth = Range("h1")
    Set Source = Worksheets("总周课表")
    
    Set t = ActiveSheet
    
    r1 = Source.Range("a65536").End(xlUp).Row
    
    开始循环
    
    For i = 2 To r1
        
        xm = Source.Cells(i, 8)
        kc = Source.Cells(i, 7)
        jc = Source.Cells(i, 6)
        rq = Source.Cells(i, 4)
        bc = Source.Cells(i, 3)
        dd = Source.Cells(i, 9)
    
        比较日期
        If Format(rq, "M") = findMonth Then
        
        r2 = t.Range("c65536").End(xlUp).Row
        If (r2 < 3) Then r2 = 3
        
        tday = Format(rq, "d") + 7 后移7个单元格
        
            findrow = 0
        
            For j = 3 To r2
                
                If t.Cells(j, 3) = xm Then
                    findrow = j
                    Exit For
                End If
            
            Next
            
            If (findrow > 0) Then 找到
            
            t.Cells(findrow, tday) = Cells(findrow, tday) & " " & jc
            
            
            Else 没找到直接添加
            
              t.Cells(r2 + 1, 3) = xm
                t.Cells(r2 + 1, 4) = kc
                t.Cells(r2 + 1, 6) = bc
                t.Cells(r2 + 1, 39) = dd
                t.Cells(r2 + 1, tday) = jc
            
            End If
           End If
    Next

End Sub
 

 

以上是关于VBA-从周课表统计节次的主要内容,如果未能解决你的问题,请参考以下文章

从周数获取周开始日期和周结束日期

用VBA代码打开其他excel工作簿(有打开密码的)???

vba循环语句

vba统计电脑计算机名和登陆的用户名

c_cpp 快速代码片段,用于在统计(阻止)/ dev / rdsk中的设备时验证fstat64和stat64的行为。

「文经课表」当日课表界面实现方法