DimiAsInteger,day1,monAsString,ssAsInteger,sAsString,uuDimshAsWorksheet,arr(),xAsInteger,k,ppAsInteger,vvAsIntegerDimdAsObjectDimMsg,Style,Title,Respo...

Subtest()fori=1to30sheets(i).[b1]="3月"&i&"号"

选中单元格后，右击鼠标右键，在弹出的右键菜单选项中，选择【设置单元格格式】，在弹出的【单元格格式】窗口中，依序选择【日期】-【2001年3月7日】，单元格格式设置好后，再次将该单元格选中，然后选择函数命令，在弹出的...

ActiveSheet.Name'获得当前被激活的工作表的名称Worksheets(表名变量).Select'激活该工作表Weekday(变量,2)把变量的日期，转为星期几这个数据是1~7，即我们认知的星期一到星期天写个判断，如果今天是1，则输出...

在A列录入你想要的连续日期按alt+F11在代码窗口里面录入以下内容，并按F5：Sub重命名()Dimi&Fori=2ToSheets.CountSheets(i).Name=Sheets(1).Cells(i,1)NextEndSub...

格式→单元格→数字→自定义→设置日期值就可以了

以第一个条件(Sheet2!$B$3:$B$4999=A3)为例假设要a3输入的内容为2011年9月，实际上，不论你输入是2011年9月或者2011-9，excel都会将其认为是2011年9月1日则，统计9月的数量（说明，你的这个公式结果为计数，...

PrivateSubWorkbook_Open()Sheets(1).Name=Replace(Date,"/","")EndSub文件打开时自动改名。

如果工作薄名为sheet1、sheet2...这样一直到sheet31你可以这样=MID(RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename"))),6,2)来获取工作薄sheet1中的'1',sheet31中的

1、打开空白的电子表格，我们看到的工作表的名称一般默认的都是sheet1sheet2等。第一种方法：系列命名2、把鼠标指针指向表格的右上角的名称处，单击鼠标左键一下，然后找到“选项”，再单击一下。3、在“选项”的...