我怕是有点打脑壳 2022-11-25 10:16 采纳率: 100%
浏览 42
已结题

VBA,编译错误,缺少:语句结束

VBA,编译错误,缺少:语句结束

Sub sheetsMaker()

    Dim i As Integer

    For i = 1 To 12
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).name = i&"月" ' 这句给我报错了
    Next
    
End Sub

求问一下是怎么回事,实在没办法了

  • 写回答

2条回答 默认 最新

  • bluetata 云计算领域优质创作者 2022-11-25 10:49
    关注

    错误原因:你的 iint类型,但是sheet名字是string

    报错信息

    img

    解决办法:需要转码,更改后代码参照如下:

    Sub sheetsMaker()
        Dim i As Integer
        For i = 1 To 12
            Sheets.Add after:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = CStr(i) & "月"
        Next
    End Sub
    

    执行效果:

    img


    这里给你一个电子手册,关于VBA的,希望对你有所帮助

    https://github.com/bluetata/concise-excel-vba

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论 编辑记录
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 12月3日
  • 已采纳回答 11月25日
  • 创建了问题 11月25日

悬赏问题

  • ¥15 stc15f2k60s2单片机关于流水灯,时钟,定时器,矩阵键盘等方面的综合问题
  • ¥15 YOLOv8已有一个初步的检测模型,想利用这个模型对新的图片进行自动标注,生成labellmg可以识别的数据,再手动修改。如何操作?
  • ¥30 NIRfast软件使用指导
  • ¥20 matlab仿真问题,求功率谱密度
  • ¥15 求micropython modbus-RTU 从机的代码或库?
  • ¥15 django5安装失败
  • ¥15 Java与Hbase相关问题
  • ¥15 后缀 crn 游戏文件提取资源
  • ¥20 bash代码推送不上去 git fetch origin master #失败了
  • ¥15 LOL外服加入了反作弊系统,现在游戏录像rofl文件离线都无法打开