各位大侠，小问题求助

3zoro

如表所示：我需要将sheet1的名称改为一个固定日期+sheet1中引用C4单元格内容
结果为：“20180707”+Range（c4)=20180707人民路
谢谢！！！！

3zoro

各位大侠帮帮忙

惩戒骑

Sub sheet1重命名()
    a = Application.InputBox("请输入日期：", "日期", , , , , , 1)
    b = ActiveWorkbook.Sheets("Sheet1").Cells(4, 3)
    ActiveWorkbook.Sheets("Sheet1").Name = a & b
End Sub

惩戒骑

1. Sub sheet1重命名()
   
2.     a = Application.InputBox("请输入日期：", "日期", , , , , , 1)
   
3.     b = ActiveWorkbook.Sheets("Sheet1").Cells(4, 3)
   
4.     ActiveWorkbook.Sheets("Sheet1").Name = a & b
   
5. End Sub

复制代码

jimyou

Sub 工作表名()

Sheets(1).Name = VBA.Format(Now(), " yyyymmdd") & [c4]

End Sub

3zoro

惩戒骑 发表于 2018-7-9 15:31
Sub sheet1重命名()
    a = Application.InputBox("请输入日期：", "日期", , , , , , 1)
    b = Activ ...

Sub rename()
Application.ActiveWorkbook.Sheets(1).Name = "2018.06.16-06.30"
End Sub
大兄弟，我之前的代码是这个，现在我想在日期（日期是固定的）后面连接上C4单元格的内容（举例内容:我爱你），最后面sheet1的表名通过VBA就变成“2018.06.16-06.30我爱你”。
谢谢大佬！！！

3zoro

惩戒骑 发表于 2018-7-9 15:34

Sub rename()
Application.ActiveWorkbook.Sheets(1).Name = "2018.06.16-06.30"
End Sub
大兄弟，我之前的代码是这个，现在我想在日期（日期是固定的）后面连接上C4单元格的内容（举例内容:我爱你），最后面sheet1的表名通过VBA就变成“2018.06.16-06.30我爱你”。
谢谢大佬！！！

3zoro

jimyou 发表于 2018-7-9 17:01
Sub 工作表名()

Sheets(1).Name = VBA.Format(Now(), " yyyymmdd") & [c4]

Sub rename()
Application.ActiveWorkbook.Sheets(1).Name = "2018.06.16-06.30"
End Sub
大兄弟，我之前的代码是这个，现在我想在日期（日期是固定的）后面连接上C4单元格的内容（举例内容:我爱你），最后面sheet1的表名通过VBA就变成“2018.06.16-06.30我爱你”。
谢谢大佬！！！

惩戒骑

1. Sub rename()
   
2. Application.ActiveWorkbook.Sheets(1).Name = "2018.06.16-06.30" & Sheets(1).[c4]
   
3. End Sub
   

复制代码

lsc900707

3zoro 发表于 2018-7-10 08:58
Sub rename()
Application.ActiveWorkbook.Sheets(1).Name = "2018.06.16-06.30"
End Sub

1. Sub rename()
   
2.     ActiveSheet.Name = "2018.06.16-06.30" & [c4]
   
3. End Sub

复制代码