zoukankan      html  css  js  c++  java
  • Excle自动增长序号

    按“ALT+F11”键进入代码编辑
    复制以下代码到编辑窗口内:
    Private Sub Worksheet_Change(ByVal Target As Range) '工作表变化事件引发下列程序
    Application.EnableEvents = False '变化事件引发禁止
    X0 = ActiveCell.Row 'X0=活动单元格行数
    If X0 > 1 Then 'X0在2以上
    Cells(X0, 1) = Cells(X0 - 1, 1) + 1 'X0行=X0-1行+1
    Else: Cells(X0, 1) = 1 'X0为1时=1
    End If '结束条件判断
    Do While Cells(X0 + 1, 1) <> "" 'X0+1行非空则执行
    Cells(X0 + 1, 1) = Cells(X0, 1) + 1 '单元格X0+1行=X0行+1
    X0 = X0 + 1 'X0递增执行
    Loop '返回while语句
    Application.EnableEvents = True '变化事件引发开启
    End Sub '结束程序

  • 相关阅读:
    zjnu1725 COCI (类似二维树状数组模拟)
    zjnu1730 PIRAMIDA(字符串,模拟)
    hdu5365Shortest Path (floyd)
    表达式的转换 (模拟题)
    zjnu1709 UZASTOPNI (bitset,树形dp)
    zjnu1707 TOPOVI (map+模拟)
    zjnu1716 NEKAMELEONI (线段树)
    zjnuSAVEZ (字符串hash)
    codeforces 55D. Beautiful numbers (数位dp)
    TP5将入口文件放在Public中,能得到那些安全保障?
  • 原文地址:https://www.cnblogs.com/lslvxy/p/3025457.html
Copyright © 2011-2022 走看看