如何在窗体上实现自动分年度计算

给你个思路，自己琢磨下看看。

首先你的26个文本框按照规律命名，比如：S1、S2、S3.....S13，B1、B2、B3.....B13，这样方便用函数取文本框名称。

然后，第一个文本框可以用如下语句填写：

Me.Text3 = Format(DateAdd("m", -1, Me.Text0), "yyyy-mm")，记录年份和月份“2013年（2，”后面继续“3,4,5....”

然后月份+1，判断年份是否变化，如果没变化，那么文本框名+1，如果变化则写入年份，然后文本款名从B1开始写入此年月。