日报累计数公式替换

longwin

mx99252 发表于 2024-5-17 15:29
有个问题，B7是生成新表后，填入C5后的才是最新的数据，这样带过去的还是前一天的数没有更新，我用indire ...

这个表对你来讲每天用，对每一个数据都很熟悉了。对我来说好像依然很陌生。
如果你想把你要的功能实现，就要把计算过程及数据逻辑说清楚，可以实现的。

mx99252

longwin 发表于 2024-5-17 15:50
这个表对你来讲每天用，对每一个数据都很熟悉了。对我来说好像依然很陌生。
如果你想把你要的功能 ...

这个表就是每天需要新建一张当天的，除了带公式的需要累加的数据，其他数据是当天填报，其中月平均出租率，需要在当天填完C5后，将B7的数据和当日出租率填入'出租率'表中，以计算A21的平均出租率，当天G8的数据去引用'出租率'中的A21。另我试了下，比如今天要建立5.17的表格，需要替换公式中的表名5.15为5.16，但是如果表中基础数据或文本出现了5.15这个数，也同样会被替换成5.16....

longwin

mx99252 发表于 2024-5-17 16:40
这个表就是每天需要新建一张当天的，除了带公式的需要累加的数据，其他数据是当天填报，其中月平均出租率 ...

这样改一下，就会不会把数值替换掉了：

Sub test()
rq0 = CStr(Month(Now())) & "." & CStr(Day(Now())) '当前日期 0
rq1 = Split(Sheets("简版").[B4].Formula, "'")(1)  '从简版表公式中找到当前最后一个表名 1
rq2 = Split(Sheets(rq1).[I8].Formula, "'")(1) '从最后一个表的公式中找到引用的前一个个表名 2
If rq0 = rq1 Then
    MsgBox "当前表已是最新日期，无需重新生成！"
    Exit Sub
Else
    Set sh = ThisWorkbook.Sheets(rq1)
    sh.Copy Before:=sh
    Set sht = ActiveSheet
    sht.Name = rq0
    sht.[A2] = "填表时间:" & Month(Now()) & "月" & Day(Now()) & "日"
    For Each cell In sht.UsedRange
    If cell.HasFormula Then
        If InStr(1, cell.Formula, rq2) > 0 Then cell.Formula = Replace(cell.Formula, rq2, rq1)
    End If
    Next
    For Each cell In Sheets("简版").UsedRange
    If cell.HasFormula Then
        If InStr(1, cell.Formula, rq1) > 0 Then cell.Formula = Replace(cell.Formula, rq1, rq0)
        If InStr(1, cell.Formula, "#REF") > 0 Then cell.Formula = Replace(cell.Formula, "#REF", rq0)
    End If
    Next
    Sheets("简版").[A2] = "填表时间:" & Month(Now()) & "月" & Day(Now()) & "日"
   
    ll = CInt(Split(rq0, ".")(1))
    Sheets("出租率").Cells(20, ll + 1) = sht.[B7]
    Sheets("出租率").Cells(21, ll + 1) = sht.[B7] / 1499
   
End If
MsgBox "OK!"
End Sub

mx99252

longwin 发表于 2024-5-17 17:01
这样改一下，就会不会把数值替换掉了：

Sub test()

可以了，感谢

日月星梭

longwin 发表于 2024-5-17 17:01
这样改一下，就会不会把数值替换掉了：

Sub test()

老师，假如我要每天生成一张表，要如何修改程序，比如我星期天休息，星期一要填星期天的数据

longwin

日月星梭 发表于 2024-5-22 15:40
老师，假如我要每天生成一张表，要如何修改程序，比如我星期天休息，星期一要填星期天的数据

可以生成完今天的表后，把表的名字手动改一下（改成你要的那一天），感觉可以，你可以试试

日月星梭

longwin 发表于 2024-5-22 15:55
可以生成完今天的表后，把表的名字手动改一下（改成你要的那一天），感觉可以，你可以试试

真的可以，谢谢老师

日月星梭

longwin 发表于 2024-5-22 15:55
可以生成完今天的表后，把表的名字手动改一下（改成你要的那一天），感觉可以，你可以试试

老师，刚才试了一下，不行

日月星梭

longwin 发表于 2024-5-22 15:55
可以生成完今天的表后，把表的名字手动改一下（改成你要的那一天），感觉可以，你可以试试

老师，可以，是我搞错了