正文

sheet1到30怎么设置日期（sheet1改成日期）

发布时间：2023-05-22 07:40:28 稿源：创意岭阅读： 142

大家好！今天让创意岭的小编来大家介绍下关于sheet1到30怎么设置日期的问题，以下是小编对此问题的归纳整理，让我们一起来看看吧。

开始之前先推荐一个非常厉害的Ai人工智能工具，一键生成原创文章、方案、文案、工作计划、工作报告、论文、代码、作文、做题和对话答疑等等

只需要输入关键词，就能返回你想要的内容，有小程序、在线网页版、PC客户端和批量生成器

问友Ai官网：https://ai.de1919.com。

本文目录:

50个工作表我只Sheet1到Sheet31写上日期如何用vba实现
在Excel中，如何设置sheet1到sheet30的某个单元格通知日期从1号到30号？就是完成
EXCEL在sheet1打日期,sheet2sheet3中如何自动生成日期

sheet1到30怎么设置日期（sheet1改成日期）

50个工作表我只Sheet1到Sheet31写上日期如何用vba实现

Worksheets.Count
'获得当前工作薄含有工作表的数量
ActiveSheet.Name
'获得当前被激活的工作表的名称
Worksheets(表名变量).Select
'激活该工作表
Weekday (变量,2)
把变量的日期，转为星期几
这个数据是1~7，即我们认知的星期一到星期天
写个判断，如果今天是1，则输出显示”星期一“。依次类推
这样就得到了你想要的代码的所有关键性数据，简略代码如下：
for i=1 to Worksheets.Count ‘循环1到最后一张表
Worksheets(i).Select '激活第1张表，Worksheets()中是纯数字，则找到对应顺序的表
变量名1=ActiveSheet.Name '获得该表的名称
变量名2=Weekday (Worksheets(变量名1).Range(f1),2) '获得F1单元格中的日期，并转为星期几
Select Case 变量名2
Case 1
Worksheets(变量名1).Range(g1)="星期一" '如果变量名2的数据是1，则在G1里显示”星期一“
Case 2
Worksheets(变量名1).Range(g1)="星期二"
Case 3
Worksheets(变量名1).Range(g1)="星期三"
Case 4
Worksheets(变量名1).Range(g1)="星期四"
Case 5
Worksheets(变量名1).Range(g1)="星期五"
Case 6
Worksheets(变量名1).Range(g1)="星期六"
Case 7
Worksheets(变量名1).Range(g1)="星期天"
End Select
next i

在Excel中，如何设置sheet1到sheet30的某个单元格通知日期从1号到30号？就是完成

Sub test()
for i=1 to 30
sheets(i).[b1]="3月"&i &"号"追答

next
end sub

追问

加dim i 就好了

四月怎么又错了？？

追答

在&两边加空格试试

sheet1到30怎么设置日期（sheet1改成日期）

EXCEL在sheet1打日期,sheet2sheet3中如何自动生成日期

有点挑战性，我试试
前提条件：
第一，确保你的文件已经保存
第二，确保你的文件中工作表名形如sheet1、sheet2、sheet3……不得改成其他工作表名
具体操作：
一、点选sheet1的A1，输入月份的第一天，注意必须是标准的日期输入格式，即输入如 7/1或7-1
二、菜单：插入-名称-定义，弹出的对话框中
名称框中，输入 sheetnam (定义一个名称）
引用位置框中，输入
=REPLACE(CELL("filename",!A1),1,FIND("]",CELL("filename",!A1)),"")
三、选中sheet2到sheet31（点sheet2，按shift键不放，再点sheet31可以选中）
点到A1单元格，输入公式
=DATE(YEAR(Sheet1!$A$1),MONTH(Sheet1!$A$1),DAY(SUBSTITUTE(LOWER(sheetnam),"sheet","")))
点sheet1以取消对多表的选取，这时，你看看是不是达到你的要求？

以上就是关于sheet1到30怎么设置日期相关问题的回答。希望能帮到你，如有更多相关问题，您也可以联系我们的客服进行咨询，客服也会为您讲解更多精彩的知识和内容。