Fatdog
Fatdoog
经过多少的偶然，政策、金钱、人情…时间久了，也就丧失了言说的意义
关注数: 17
粉丝数: 55
发帖数: 1,561
关注贴吧数: 32
【求助】宏添加到快速访问工具栏之后部分代码无法运行。 大佬帮忙看下这个宏要怎么改才能实现共享宏 Sub add() Dim i As Integer Dim ws As Worksheet Dim cellValue As String Dim sheetNameChar As String For i = 1 To 31 Sheets("sheet1").Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = i & "日" Next ' 遍历所有工作表 For Each ws In ThisWorkbook.Worksheets If Len(ws.Name) >= 3 Then ' 获取工作表名称的第一个字符（如果名称为空则默认用 "S"） sheetNameChar = Left(ws.Name, 2) ' 取工作表名的第2个字符 Else: sheetNameChar = Left(ws.Name, 1) ' 取工作表名的第1个字符 End If If sheetNameChar = "" Then sheetNameChar = "S" ' 如果工作表名称为空，默认替换为 "S" ' 检查A1单元格是否有足够长的内容 If Len(ws.Range("A1").Value) >= 12 Then ' 获取单元格值 cellValue = ws.Range("A1").Value ' 替换第13个字符为工作表名称的第1个字符 cellValue = Left(cellValue, 11) & sheetNameChar & Mid(cellValue, 13) ' 将新值写回单元格 ws.Range("A1").Value = cellValue ' 如果不足13个字符，可以选择跳过或提示（这里选择跳过） End If Next ws Application.DisplayAlerts = False Sheet1.Delete Application.DisplayAlerts = True ActiveWorkbook.SaveAs Filename:="C:\Users\dx6n1\Desktop\"& 1024 &".xls" MsgBox "处理完毕" End Sub
教安里面使用照度计和微压仪的题目和考场的不一样阿 教安里面使用照度计和微压仪的题目和考场的不一样阿
福建鉴定站，10月18号中级维保线上仿真实操挂了… 请教一下各位大佬，实操软件推荐用哪个？ 抽考难度大吗？
【 01-16 咨询 】Windows10触屏漂移，微软原版镜像升级…… 升级时勾选删除所有Windows8驱动，无Windows8系统备份，官网Windows8驱动打不进去，(买的双系统，后用自带磁盘工具格了安卓。加了分区D盘) 求指导
MSDN版 WINDOWS8.1企业版
现在的糗百真的是惨不忍睹…
最后路飞还是活成叻香克斯的摸样
1
下一页
