求助 建表如何公式引用自动变化

lqf935258447

各位老师 这个表格  因为是每天手动建，所以时间和工作表名可以自己手动输入，比如当我在2.7工作表时，所以点宏的时候，对当前活动表创建副本，并弹出重命名窗口手动输入工作表名！
   ActiveSheet.Copy After:=Sheets(Sheets.Count)
Dim xStr As String
Retry:
   Err.Clear
   xStr = InputBox("请输入工作表的新名称:" _
       , "重命名工作表", ActiveSheet.Name)
   If xStr = "" Then Exit Sub
   On Error Resume Next
   ActiveSheet.Name = xStr
   If Err.Number <> 0 Then
     MsgBox Err.Number & " " & Err.Description
     Err.Clear
     GoTo Retry
    End If
    On Error GoTo 0
    Range("B5:B10,B12:B21,B24").ClearContents
这是我上面的需求改的！剩下我做不了的是，，我想当我建2.9表，我需要2.9表的C5数值为2.9表内B5加上一个表2.8的C5数值，C列如此，2.9表的B26=2.8的B30 B27=2.8的B31！  我们建表都是  2月的 2.1这样  3月就是3.1 这样！ 如果表名这样引用不方便 那如何规范呢！2月9日 这样可行吗！

taller

Jday1218

Sub CopyActiveSheetAndRename()
    Dim xStr As String
    Dim newSheet As Worksheet
    Dim dateStr As String
   
    dateStr = InputBox("请输入工作表的日期（格式为月.日）：", "输入日期")
   
    If dateStr = "" Then
        Exit Sub
    End If
   
    Set newSheet = ActiveSheet.Copy(After:=Sheets(Sheets.Count))
   
Retry:
    Err.Clear
    xStr = InputBox("请输入工作表的新名称（格式为月.日）：" _
       , "重命名工作表", dateStr)
    If xStr = "" Then
        Exit Sub
    End If
    On Error Resume Next
    newSheet.Name = xStr
    If Err.Number <> 0 Then
        MsgBox Err.Number & " " & Err.Description
        Err.Clear
        GoTo Retry
    End If
    On Error GoTo 0
   
    newSheet.Range("B5:B10,B12:B21,B24").ClearContents
    newSheet.Range("C5").Value = _
        Sheets(Replace(xStr, ".", ".") - 1).Range("C5").Value + newSheet.Range("B5").Value
    newSheet.Range("B26").Value = Sheets(Replace(xStr, ".", ".") - 1).Range("B30").Value
    newSheet.Range("B27").Value = Sheets(Replace(xStr, ".", ".") - 1).Range("B31").Value
End Sub

chzsh

“我需要2.9表的C5数值为2.9表内B5加上一个表2.8的C5数值”
做到这一步难，因为2.8表c5自带公式是='2.7'!C5+'2.8'!B5

lqf935258447

taller 发表于 2023-2-11 00:55

老师 ，不行呀！！！只有复制粘贴表成功运行了

taller

lqf935258447 发表于 2023-2-13 11:40
老师 ，不行呀！！！只有复制粘贴表成功运行了

没有示例文件无法调试

lqf935258447

Jday1218 发表于 2023-2-11 01:40
Sub CopyActiveSheetAndRename()
    Dim xStr As String
    Dim newSheet As Worksheet

老师 ，这个也是表复制粘贴成功后就报错了，

lqf935258447

taller 发表于 2023-2-13 11:45
没有示例文件无法调试

老师 我发帖有上转了附件了的！！！ 我在重新发一份

taller

半百

替换表名？