爱问知识人 爱问教育 医院库

Excel VBA代码

首页

Excel VBA代码

A3单元格数值+1,格式 00000
A3单元格数值为00001,插入一个工作表后,新工作表的A3单元格数值为00002,以此类推,如果某个工作表被删除,则根据最后一个工作表的A3单元格的数值+1
增加工作表的时候触发

弱弱的问一句,用函数能实现吗?

提交回答
好评回答
  • 2012-06-18 18:17:43
    在ThisWorkBook模块中写入代码:
    Private Sub Workbook_NewSheet(ByVal Sh As Object)
    n = ActiveWorkbook.Sheets.Count
    Sh.Range("A3") = Worksheets(n).Range("A3") + 1
    Sh.Range("A3").NumberFormatLocal = "0000"
    ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
    End Sub

    l***

    2012-06-18 18:17:43

其他答案

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):