Question

请帮助我，我想跟踪我店的每日，每月记录我的第一张纸是我记录当天所有收入的地方，我做了一个更新按钮，将当天结束时收集的所有数据传输到下一个以月份命名的工作表。

我在7月份成功完成了它，因为我只输入“7月”来选择将要传输数据的工作表。

但我想得到的是根据当前月份自动选择工作表，其中下一个工作表是以其命名的。

我试过了工作表（格式（现在， “MMM”））。选择

但我得到一个错误声明我超出了范围

这是我的整个代码：

Private Sub CommandButton1_Click（）

如果MsgBox（“你确定吗？”，vbYesNo，“Title”）= vbYes那么

Dim CtrlCDate As String, CtrlCPSQty As Integer, CtrlCPSAmt As Integer, CtrlCPLQty As Integer, CtrlCPLAmt As Integer, CtrlCPQty As Integer, CtrlCPamt As Integer, CtrlCSQty As Integer, CtrlCSAmt As Integer, TC As Integer, TL As Integer, TS As Integer
    Worksheets("CTRLC Ops").Select
    CtrlCDate = Range("N3")
    CtrlCPSQty = Range("N6")
    CtrlCPSAmt = Range("O6")
    CtrlCPLQty = Range("N7")
    CtrlCPLAmt = Range("O7")
    CtrlCPQty = Range("N8")
    CtrlCPamt = Range("O8")
    CtrlCSQty = Range("N9")
    CtrlCSAmt = Range("O9")
    TC = Range("O10")
    TL = Range("O11")
    TS = Range("N13")
    Worksheets("July").Select
    Worksheets("July").Range("A3").Select
    If Worksheets("July").Range("A3").Offset(1, 0) <> "" Then
    Worksheets("July").Range("A3").End(xlDown).Select
    End If
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = CtrlCDate
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = CtrlCPSQty
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = CtrlCPSAmt
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = CtrlCPLQty
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = CtrlCPLAmt
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = CtrlCPQty
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = CtrlCPamt
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = CtrlCSQty
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = CtrlCSAmt
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = TC
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = TL
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = TS
    Worksheets("CTRLC Ops").Select
    Worksheets("CTRLC Ops").Range("D1").Select

结束如果

End Sub

PLS帮助我，试图做研究，但我不确定哪个部分我错了。谢谢提前

Answer 1

工作表（格式（现在，“mmm”））。选择将选择名为“Jul”的工作表。这是工作表的名称，还是七月？

“mmm”将返回当月的前三个字母，“mmmm”将返回完整的月份名称。

因此，如果要选择工作表“七月”，请使用工作表（格式（现在，“mmmm”））。选择

自动填充从工作表到当前月份之后命名的工作表的数据

1 个答案: