Question

在excel表中添加一个按钮，使其sheet1的指定单元格保存到sheet2中，并 在每次点击按钮时sheet2中自动

在excel表中添加一个按钮，使其sheet32的指定单元格保存到sheet1中，并在每次点击按钮时sheet1中自动顺序向下保存（sheet32的内容会经常改写）。以下是其编码：我的问题是：如何将以下编码中的“Sheets(1)”随系统日期而变为Sheets(2)、Sheets(3)、Sheets(4)...，如今天是10号则为 Sheets(10)。
Sub test()
Sheets(1).Cells(Sheets(1).[A65536].End(xlUp).Row + 1, 1) = [A1]
[A1].ClearContents
End Sub

Answer 1

可以定义一个整数 如dim nowDay as Integer
nowDay=Day(Now()) '表示今天是多少号
将 Sheets(1)换成sheets(nowDay)

追问

以下宏，问：一、将"Sheets1”随系统日期而变为Sheets1、Sheets2、Sheets3....，二、运行下列宏时提示：“不能处理合并表格”，如何解决。注（c7是c7和F7的合并表格）
Sub 记账()
Dim irow As String
irow = Worksheets("sheet1").Range("c10000").End(xlUp).Row + 1
Worksheets("sheet1").Range("c" & irow) = Range("c7")
Worksheets("sheet1").Range("e" & irow) = Range("k7")
range("c7:k7").clearcontents
End Sub

追答

将range("c7:k7").clearcontents改为
Range("c7:k7") = ""

追问

问：将以下宏中的"Sheets1”随系统日期而变为Sheets1、Sheets2、Sheets3....，例如今天是10号则"Sheets1”变为"Sheets10”，11号则"Sheets1”变为"Sheets11”，以此类推。
Sub 记账()
Dim irow As String
irow = Worksheets("sheet1").Range("c10000").End(xlUp).Row + 1
Worksheets("sheet1").Range("c" & irow) = Range("c7")
Worksheets("sheet1").Range("e" & irow) = Range("k7")
Range("c7:k7") = ""
End Sub

追答

Sub 记账()
dim nowDay as Integer
nowDay=Day(Now()) '表示今天是多少号
Dim irow As String
irow = Worksheets("sheet" & nowDay).Range("c10000").End(xlUp).Row + 1
Worksheets("sheet" & nowDay).Range("c" & irow) = Range("c7")
Worksheets("sheet" & nowDay).Range("e" & irow) = Range("k7")
Range("c7:k7") = ""
End Sub

追问

“D7”只开票用，开票后删除，不记账。
Sub 记账()
dim nowDay as Integer
nowDay=Day(Now()) Dim irow As String
irow = Worksheets("sheet" & nowDay).Range("c10000").End(xlUp).Row + 1
Worksheets("sheet" & nowDay).Range("c" & irow) = Range("c7")
Worksheets("sheet" & nowDay).Range("c" & irow) = Range("D7")
Worksheets("sheet" & nowDay).Range("e" & irow) = Range("k7")
Range("c7:k7") = ""
End Sub

Answer 2

Sub test()
d = Day(Today)
Sheets(d).Cells(Sheets(d).[A65536].End(xlUp).Row + 1, 1) = [A1]
[A1].ClearContents
'Sheets(d).Select
End Sub

追问

以下宏，问：一、将"Sheets1”随系统日期而变为Sheets1、Sheets2、Sheets3....，二、运行下列宏时提示：“不能处理合并表格”，如何解决。注（c7是c7和F7的合并表格）
Sub 记账()
Dim irow As String
irow = Worksheets("sheet1").Range("c10000").End(xlUp).Row + 1
Worksheets("sheet1").Range("c" & irow) = Range("c7")
Worksheets("sheet1").Range("e" & irow) = Range("k7")
range("c7:k7").clearcontents
End Sub