将数据从工作表自动填充到当前月份后命名的工作表
请帮助我，我想跟踪我店的每日，每月的logging我的第一张表是我logging当天的所有收入，我做了一个更新button，将在一天结束时收集的所有数据转移到下一个工作表，这是以月份命名。
我在7月份成功地完成了这个工作，因为我只是在“July”中input数据将被传输的工作表。
但我想得到的是自动select基于当前月份的工作表，下一个工作表的名字命名。
我试过工作表（格式（现在，“嗯”））
但我得到一个错误，说我超出范围
这是我的整个代码：
Private Sub CommandButton1_Click（）
如果MsgBox（“你确定吗？”，vbYesNo，“Title”）= vbYes Then
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 万一
结束小组
PLS帮助我，试图做研究，但我不知道哪一部分是我错了。感谢提前
工作表（格式（现在，“mmm”））。select将select一个名为“七月”的工作表。 那是表单的名字，还是七月？
“mmm”将返回月份的前三个字母，“mmmm”将返回完整的月份名称。
所以，如果你想select工作表“七月”，然后使用工作表（格式（现在，“mmmm”））。select