excelvba录入数据分别保存至各明细表对应栏

顾瑞康

请老师指点，将录入的2022年-2035年每月收款金额和年份数据，按照楼号、室号分别保存至一号楼至十一号楼对应的室号明细收款栏，诚挚地感谢！

3190496160

根据 缴费日期来判断录入表格的哪一列？？

顾瑞康

3190496160 发表于 2024-3-14 16:03
根据 缴费日期来判断录入表格的哪一列？？

不是按照缴费日期判断的，是把缴费数据分摊到每月，然后再保存到相对应一号至十一号楼以及室号的相应表格栏，可以参照“收缴数据汇总”表H至GG栏数据格式，比如“收缴数据录入”表一号楼101室的缴费数据就保存到“一号楼”表101室H2至GG2栏，以此类推，另外，缴费期限可以是2023年-2024年的，也可以是2024年或2024-2025年的。谢谢啦！

顾瑞康

例如：一号楼101室，2024年收缴的数据，按月保存到一号楼表101室AH2-AT2,到2025年收缴数据录入时，保存到一号楼表101室AU2-BG2，以此类推

shiruiqiang

个人做表的话，基本这样。直观点

顾瑞康

这个不是我想要的啊

顾瑞康

用VBA把录入数据保存到收缴数据汇总表，然后再用LOOKUP从收缴数据汇总表相应数据提取到一号楼至十一号楼表格相对应的楼号、室号栏的话，电脑需要运行大量时间，我希望VBA直接把录入数据保存到相应表格中，不知道是否可行？望不吝指教为荷，谢谢！

3190496160

顾瑞康 发表于 2024-3-14 16:51
不是按照缴费日期判断的，是把缴费数据分摊到每月，然后再保存到相对应一号至十一号楼以及室号的相应表格 ...

把缴费数据分摊到每月
根据什么来分摊呢？？？

3190496160

Sub sjlu()
With Sheets("收缴数据录入")
    lh = .[d5]
    sh = .[g5]
    lh = .[d5]
    bh = .[d3]
    ks = .[g7]
    js = .[i7]
    je = .[d9]
End With
ys = DateDiff("m", [g7], [i7]) + 1
pjs = je / ys
Dim rn As Range
With Sheets(lh)
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    Set rn = .Range("b2:b" & r).Find(sh, , , , , , 1)
    If rn Is Nothing Then MsgBox lh & "工作表内找不到" & sh & "数据": End
    w = rn.Row
    ksn = Year(ks)
    jsn = Year(js)
    For i = ksn To jsn
        nf = i & "年"
        For j = 8 To 189
            If .Cells(1, j) = nf Then
                For s = j + 1 To j + 12
                    .Cells(w, s) = pjs
                Next s
            End If
        Next j
    Next i
End With
MsgBox "ok!"
End Sub

顾瑞康

实际上，一号楼至十一号楼，这11个表格相对于11个数据库，在收缴数据录入表格界面里，用数据验证，可以分别读取各号楼、室收款金额，其中，B14是不同室号年收款金额、C14是年*n年合计金额，然后按此拆分成每月收款金额，见G13至G180,现在就需要把G13至G180、以及年E13/E25/E37...E169,这些数据按D5和G5两个判断依据，保存至11个分表对应表格栏。以上这么做，主要是想建好11个楼号数据收款信息，在2022-2035年期间，无论1年还是几年收款金额都能按上述要求保存，以此减少主界面输入以及计算和统计的工作量。