私有子按鈕A_Click（）
將當前值設為整數
將前壹個值設為整數
獲取單元格C25的當前值
current value = Range（“C25“）。價值
從C列的最後壹個非空單元格中獲取上壹個值
previousValue = GetPreviousValue（）
將按鈕點擊次數添加到當前值中
當前值=當前值+我。文本框1。價值
如果是新的壹個月的第壹天，將當前值重置為1
如果日期= 1，則
當前值= 1
如果…就會結束
將單元格C25的值設置為新值
範圍（“C25”）。值=當前值
將新值插入C列的下壹個空單元格中
範圍（“C“& amp；成排。數數）。結束（xlUp）。偏移量（1，0）。值=當前值
如果是新的月份，將當前值重置為1
如果月份（日期）& lt& gt月（日期-我。文本框1。值）然後
範圍（“C25”）。值= 1
如果…就會結束
末端接頭
整數形式的私有函數GetPreviousValue（）
將最後壹行設為整數
查找C列中最後壹個非空單元格
lastRow = Range（“C“amp；成排。數數）。結束（xlUp）。排
返回最後壹個非空單元格的值
get previous value = Range（“C“& amp；lastRow）。價值
結束功能
代碼演示
這段代碼包含壹個按鈕和壹個文本框TextBox1，用於輸入添加的次數。每次單擊按鈕按鈕a時，在文本框中輸入的次數將被添加到指定單元格C25的值中，並且該新值將被插入到c列的下壹個空單元格中。如果是壹個月的第壹天，則指定單元格的初始值將變為1。如果是新月，指定單元格的初始值也將變為1。