一个可自动生成行排号的excel VBA小工具

2024-05-16 07:44

本文主要是介绍一个可自动生成行排号的excel VBA小工具,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

如下图,点击“生成行排号”按钮即可生成想要的行排号

基本用法如下:

1、设置顺序排列的行排号(每排的行号一致,行的方向排序方向也一致)

2、设置顺序排列的行排号(行号从小到大排列,而不受排的限制)

3、设置之字排序的行排号(每排的行号一致,行的方向排序方向相反)

4、设置之字排序的行排号(行号从小到大排列,而奇偶排行的方向排序方向相反)

5、其他注意事项:

(1)排步长设置,只能是1或-1,即不能进行跳排的设置,当为1时排的排列是顺序,为-1时排列为倒序。

(2)行步长设置,可以设置为任意整数i。

(3)可以进行多种行排号的设置,依次列出,即可一次性生成所有行排号。

在最后把原始代码奉上,愿有兴趣的小伙伴可以继续优化设计:

Sub 生成行排号()'对变量进行定义
'c为列数,r为行数
'order_1为起始排序方式,order_2为排列方式
'start_row为起始行号,start_col为起始排号,b为是否需要越排计行
Dim c As Integer, r As Integer
Dim order_1 As String
Dim start_row As Integer, start_col As Integer, step_row As Integer, step_col As Integer
Dim b As String'其他变量为临时性变量
Dim rng As Range
Dim num As Integer, num_1 As Integer, num_2 As Integer
Dim i As Integer, j As Integer, l As Integer, m As IntegerApplication.ScreenUpdating = False                   '关闭屏幕刷新Set rng = Range(Worksheets("行排号设置").Range("A1"), Cells(Worksheets("行排号设置").Range("A10000").End(xlUp).Row, 8))If rng.Rows.Count > 1 Then               '判断A列有无录入数据Range("L:M").Clear                   '清空M列和N列Range("L1").Value = "排号"           '生成表头——排号Range("M1").Value = "行号"           '生成表头——行号For num = 2 To rng.Rows.Count        '对录入的数据进行遍历'将参数数据提供给变量c = rng(num, 1).Valuer = rng(num, 2).Valuestart_col = rng(num, 3).Valuestart_row = rng(num, 4).Valuestep_col = rng(num, 5).Valuestep_row = rng(num, 6).Valueorder_1 = rng(num, 7).Valueb = rng(num, 8).ValueIf order_1 = "顺序排列" ThenIf b = "是" Then                   '当行号跨排统计时l = Worksheets("行排号设置").Range("L100000").End(xlUp).Row + 1m = Worksheets("行排号设置").Range("M100000").End(xlUp).Row + 1For num_1 = start_col To (start_col + c - 1) Step step_colFor j = 1 To rRange("L" & l).Value = num_1l = l + 1NextNextFor num_2 = start_row To start_row + (c * r - 1) * step_row Step step_rowRange("M" & m).Value = num_2m = m + 1NextElse                               '当行号不跨排统计时l = Worksheets("行排号设置").Range("L100000").End(xlUp).Row + 1m = Worksheets("行排号设置").Range("M100000").End(xlUp).Row + 1For num_1 = start_col To (start_col + c - 1) Step step_colFor num_2 = start_row To (r + start_row - 1) * step_row Step step_rowRange("L" & l).Value = num_1l = l + 1Range("M" & m).Value = num_2m = m + 1NextNextEnd IfElseIf b = "是" Then                   '当行号跨排统计时l = Worksheets("行排号设置").Range("L100000").End(xlUp).Row + 1m = Worksheets("行排号设置").Range("M100000").End(xlUp).Row + 1For num_1 = start_col To (start_col + c - 1) Step step_colFor j = 1 To rRange("L" & l).Value = num_1l = l + 1NextNext'定义起始排顺序,次排倒序,以此类推'用i对排进行计数,i为奇数时顺序,i为偶数时倒序i = 1For num_1 = start_col To (start_col + c - 1) Step step_colIf i Mod 2 ThenFor num_2 = start_row + ((i - 1) * r) * step_row To start_row + (i * r - 1) * step_row Step step_rowRange("M" & m).Value = num_2m = m + 1NextElseFor num_2 = start_row + (i * r - 1) * step_row To start_row + ((i - 1) * r) * step_row Step -1 * step_rowRange("M" & m).Value = num_2m = m + 1NextEnd Ifi = i + 1NextElse                               '当行号不跨排统计时l = Worksheets("行排号设置").Range("L100000").End(xlUp).Row + 1m = Worksheets("行排号设置").Range("M100000").End(xlUp).Row + 1i = 1For num_1 = start_col To (start_col + c - 1) Step step_col'定义起始排顺序,次排倒序,以此类推'用i对排进行计数,i为奇数时顺序,i为偶数时倒序If i Mod 2 ThenFor num_2 = start_row To (r + start_row - 1) * step_row Step step_rowRange("L" & l).Value = num_1l = l + 1Range("M" & m).Value = num_2m = m + 1NextElseFor num_2 = (r + start_row - 1) * step_row To start_row Step -1 * step_rowRange("L" & l).Value = num_1l = l + 1Range("M" & m).Value = num_2m = m + 1NextEnd Ifi = i + 1NextEnd IfEnd IfNext
ElseMsgBox "无数据"
End IfApplication.ScreenUpdating = True          '重新打开屏幕刷新End Sub

这篇关于一个可自动生成行排号的excel VBA小工具的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/994292

相关文章

SpringBoot+EasyPOI轻松实现Excel和Word导出PDF

《SpringBoot+EasyPOI轻松实现Excel和Word导出PDF》在企业级开发中,将Excel和Word文档导出为PDF是常见需求,本文将结合​​EasyPOI和​​Aspose系列工具实... 目录一、环境准备与依赖配置1.1 方案选型1.2 依赖配置(商业库方案)二、Excel 导出 PDF

基于Python开发一个图像水印批量添加工具

《基于Python开发一个图像水印批量添加工具》在当今数字化内容爆炸式增长的时代,图像版权保护已成为创作者和企业的核心需求,本方案将详细介绍一个基于PythonPIL库的工业级图像水印解决方案,有需要... 目录一、系统架构设计1.1 整体处理流程1.2 类结构设计(扩展版本)二、核心算法深入解析2.1 自

python生成随机唯一id的几种实现方法

《python生成随机唯一id的几种实现方法》在Python中生成随机唯一ID有多种方法,根据不同的需求场景可以选择最适合的方案,文中通过示例代码介绍的非常详细,需要的朋友们下面随着小编来一起学习学习... 目录方法 1:使用 UUID 模块(推荐)方法 2:使用 Secrets 模块(安全敏感场景)方法

使用Python删除Excel中的行列和单元格示例详解

《使用Python删除Excel中的行列和单元格示例详解》在处理Excel数据时,删除不需要的行、列或单元格是一项常见且必要的操作,本文将使用Python脚本实现对Excel表格的高效自动化处理,感兴... 目录开发环境准备使用 python 删除 Excphpel 表格中的行删除特定行删除空白行删除含指定

Python办公自动化实战之打造智能邮件发送工具

《Python办公自动化实战之打造智能邮件发送工具》在数字化办公场景中,邮件自动化是提升工作效率的关键技能,本文将演示如何使用Python的smtplib和email库构建一个支持图文混排,多附件,多... 目录前言一、基础配置:搭建邮件发送框架1.1 邮箱服务准备1.2 核心库导入1.3 基础发送函数二、

基于Python实现一个图片拆分工具

《基于Python实现一个图片拆分工具》这篇文章主要为大家详细介绍了如何基于Python实现一个图片拆分工具,可以根据需要的行数和列数进行拆分,感兴趣的小伙伴可以跟随小编一起学习一下... 简单介绍先自己选择输入的图片,默认是输出到项目文件夹中,可以自己选择其他的文件夹,选择需要拆分的行数和列数,可以通过

Python使用pip工具实现包自动更新的多种方法

《Python使用pip工具实现包自动更新的多种方法》本文深入探讨了使用Python的pip工具实现包自动更新的各种方法和技术,我们将从基础概念开始,逐步介绍手动更新方法、自动化脚本编写、结合CI/C... 目录1. 背景介绍1.1 目的和范围1.2 预期读者1.3 文档结构概述1.4 术语表1.4.1 核

SpringBoot+Docker+Graylog 如何让错误自动报警

《SpringBoot+Docker+Graylog如何让错误自动报警》SpringBoot默认使用SLF4J与Logback,支持多日志级别和配置方式,可输出到控制台、文件及远程服务器,集成ELK... 目录01 Spring Boot 默认日志框架解析02 Spring Boot 日志级别详解03 Sp

Python使用OpenCV实现获取视频时长的小工具

《Python使用OpenCV实现获取视频时长的小工具》在处理视频数据时,获取视频的时长是一项常见且基础的需求,本文将详细介绍如何使用Python和OpenCV获取视频时长,并对每一行代码进行深入解析... 目录一、代码实现二、代码解析1. 导入 OpenCV 库2. 定义获取视频时长的函数3. 打开视频文

Linux中压缩、网络传输与系统监控工具的使用完整指南

《Linux中压缩、网络传输与系统监控工具的使用完整指南》在Linux系统管理中,压缩与传输工具是数据备份和远程协作的桥梁,而系统监控工具则是保障服务器稳定运行的眼睛,下面小编就来和大家详细介绍一下它... 目录引言一、压缩与解压:数据存储与传输的优化核心1. zip/unzip:通用压缩格式的便捷操作2.