Excel表格的快速动态扩展与删除行

实例需求:工作表中的表格(ListObject)名称为Table1,表格列数不确定,需要实现如下功能:

  • 当用户完成最后一行最后一列输入之后(如果该单元格为空,则视为输入未完成),表格自动扩展一行
  • 扩展行中,第一列填充自动序号,其他列填充NA
  • 如果用户双击表格中最后一行的任意单元格,那么删除该行,并相应调整表格单元格范围

效果如下所示。

请添加图片描述
示例代码如下。

Private Sub Worksheet_Change(ByVal Target As Range)Dim oTab As ListObject, oListRow As ListRowConst TAB_NAME As String = "Table1"If Target.CountLarge = 1 And Len(Target.Cells(1).Value) > 0 ThenSet oTab = Me.ListObjects(TAB_NAME)With oTabIf Not Application.Intersect(.Range.Columns(.ListColumns.Count), Target) Is Nothing ThenIf Target.Offset(1).ListObject Is Nothing ThenSet oListRow = .ListRows.AddApplication.EnableEvents = FalsemRow.Range.Value = "NA"oListRow.Range(1) = .ListRows.CountApplication.EnableEvents = TrueEnd IfEnd IfEnd WithEnd If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Dim oTab As ListObjectConst TAB_NAME As String = "Table1"If Target.ListObject.Name = TAB_NAME ThenSet oTab = Target.ListObjectIf Target.Offset(1).ListObject Is Nothing ThenApplication.EnableEvents = FalseoTab.ListRows(oTab.ListRows.Count).DeleteCancel = TrueApplication.EnableEvents = TrueEnd IfEnd If
End Sub

【代码解析】
第1~18行代码为工作表的Change事件,实现扩展表格新增行。
第3行代码定义表格名称。
第4行代码判断发生变化Range(参数Target)为单个单元格,并且单元格内容不为空。
第5行代码获取表格对象。此处并未检查是否存在指定名称的ListObject,因此有可能产出运行时错误。
第7行代码代码判断Target是否位于表格的最后一列,由于表格的总列数不确定,因此需要使用.Range.Columns(.ListColumns.Count)获取最后一列的对象,其中.ListColumns.Count为表格的列数。
第8行代码判断Target之下相邻单元格是否在表格中,如果满足条件,说明Target位于表格的最后一行。这个也不是严谨逻辑判断,如果两个表格上下相邻,那么就会出现误判,如果需要严谨判断,那么需要进一步对比表格名称。
第9行代码扩展表格,增加一行。
第10行代码禁止系统事件激活。
第11行代码将新增行中的单元格全部填充为NA。
第12行代码更新第一列单元格内容为自动序号。
第13第行代码恢复允许系统事件激活。

第19~31行代码为工作表的BeforeDoubleClick事件,实现删除最后行。其中与Change事件相同的代码不再赘述。
第22行代码判断Target位于指定名称的表格中。
第26行代码删除表格的最后一行,同时表格范围将自动缩减。
第27行代码取消双击操作。

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/635120.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

C++继承(万字详!!)

文章目录 继承的概念及定义继承的概念继承定义 基类和派生类对象赋值转换继承中的作用域派生类的默认成员函数继承与友元继承与静态成员复杂的菱形继承及菱形虚拟继承菱形继承菱形虚拟继承 继承的总结和反思笔试面试题 继承的概念及定义 继承的概念 继承(inheritance) 机制是面…

C++:类与结构体的对比

2024年1月18日 内容来自The Cherno:C系列 -------------------------------------------------------------------------------------------------------------------------------- C中关于class与struct,几乎没有区别,只有一个关于“可见度”的区别…

自建ES集群

常用命令 # 重命名文件夹 mv elasticsearch-7.10.2 elasticsearch# 移动文件到文件夹 mv elasticsearch-7.10.2-linux-x86_64.tar.gz middleware-tar/ mv kibana-7.10.2-linux-x86_64.tar.gz middleware-tar/# 创建data文件夹 mkdir /home/admin/elasticsearch/data 自建Ela…

【PS】PS设计图欣赏、学习、借鉴

【PS】PS设计图欣赏、学习、借鉴 bilibili萌新PS学习计划:PS教程全套零基础教学视频(全套81节全新版本)

C++大学教程(第九版)5.25去除break语句 5.27去除cintinue语句

5.25题目 (去除break和continue)break和continue 语句遭到质疑的原因是它们的非结构化性。实际上,break和continue 语句总能用结构化的语句取代。请详述如何从程序的一条循环语中去除break语句,并用某种结构化的手段替代。提示:break 语句用于在循环体内离开一个循…

Golang 搭建 WebSocket 应用(六) - 监控

我在上一篇文章中,提到了目前的认证方式存在一些问题,需要替换为一种更简单的认证方式。 但是最后发现,认证这个实在是没有办法简单化,认证本身又是另外一个不小的话题了,因此关于这一点先留个坑。 本文先讨论一下另外…

读元宇宙改变一切笔记10_支付方式

1. 元宇宙中的经济 1.1. 元宇宙被设想为一个平行世界,人们将在那里花大量的时间工作和生活 1.1.1. 元宇宙的实现程度部分取决于它是否建立在一个繁荣的经济体系之上 1.2. 元宇宙中的经济将大体遵循现实世界的经济模式 1.2.1. 激烈的竞争、大量营利性企业的存在、…

Acwing860. 染色法判定二分图

题目 给定一个 n 个点 m 条边的无向图,图中可能存在重边和自环。 请你判断这个图是否是二分图。 输入格式 第一行包含两个整数 n 和 m 接下来 m 行,每行包含两个整数 u 和 v,表示点 u 和点 v 之间存在一条边。 输出格式 如果给定图是二…

无偿分享一个很有用的看源码小技巧

怎么在 idea 里面查看 git 提交记录呢?这个界面是藏在哪里的呢,我的 idea 里面怎么没有呢? 好的,是我疏忽了,我先入为主的认为这个大家应该都知道是怎么来的。 但是确实是有一些同学是不太清楚的,那我这篇…

阿里云GPU服务器命名规则gn、vgn、gi、f、ebm和scc详解

阿里云GPU服务器提供GPU加速计算能力,GPU卡支持A100、V100、T4、P4、P100、A10等,NVIDIA V100,GPU实例规格是什么意思?如搭载NVIDIA V100的ecs.gn6v-c8g1.2xlarge、A10卡ecs.gn7i-c32g1.8xlarge、T4卡ecs.gn6i-c4g1.xlarge、P4卡e…

1.零信任网络结构介绍.2.零信任网络架构的好处.4.了解零信任网络架构的组成部分

目录 1.零信任网络结构介绍 2.零信任网络架构的好处 3.零信任网络架构在网络安全方面的重要性

python获取线程名称和传递参数,数据共享

1.获取线程名称和传递参数 import threading import timedef run(i):print(开启线程,i,threading.current_thread().name)# 等待2秒time.sleep(2)# 创建线程并起名,传递参数,这个位置使用和进程一样 thr1 threading.Thread(targetrun,args(1,),nameluc…

Docker技巧汇总

Docker技巧汇总 前言使用流程安装配置镜像管理创建并运行容器使用容器/常用命令导出和导入查看元数据挂载数据卷端口映射/转发VS Code连接Docker 前言 Docker 是一个开源的应用容器引擎,可以让开发者打包他们的应用以及依赖包到一个轻量级、可移植的容器中&#xf…

Kubernetes-v1.28.3部署

二进制安装Kubernetes(k8s)v1.28.3 1.环境 主机名称IP地址说明软件192.168.1.60外网节点下载各种所需安装包Master0111.0.1.3master节点kube-apiserver、kube-controller-manager、kube-scheduler、etcd、kubelet、kube-proxy、nfs-client、haproxy、k…

django 中group by 以及sum count

原生SQL SELECT order_id,city,locality,login_time,sum(morning_hours),sum(afternoon_hours),sum(evening_hours),sum(total_hours) FROM orders GROUPBY order_id,city,locality,login_timegroup by … sum from django.db.models import SumYour_Model.objects.values(…

AI相关资料

文心一格收费,有免费额度 通义万相_AI创意作画_AI绘画_人工智能-阿里云 AI AIchatOS

254:vue+openlayers 加载HERE多种形式地图(v3软件版本)

第254个 点击查看专栏目录 本示例的目的是介绍演示如何在vue+openlayers中添加HERE地图(v3版本的软件),并且含多种的表现形式。包括地图类型,文字标记的设置、语言的选择、PPI的设定。 v3版本和v2版本有很大的区别,关键是引用方法上,请参考文章尾部的API链接。 直接复制…

C 语言->编译和链接实现原理

✅作者简介:大家好,我是橘橙黄又青,一个想要与大家共同进步的男人😉😉 🍎个人主页:橘橙黄又青-CSDN博客 今天学习:浅学编译和链接内部实现原理 前提:本文是在gcc编译环…

SpringBoot连接远程服务器redis

SpringBoot连接远程服务器redis 1、指定redis配置启动 进入redis安装地址,我这里安装的是 /usr/local/src/redis-6.2.6 先copy一份配置文件 cp redis.conf redis.conf.bck然后修改配置文件信息 vim redis.conf bind 0.0.0.0 # 守护进程,修改为yes后即可…

最优解-背包问题

问题描述 给定一组物品,每种物品都有自己的重量和价格,在限定的总重量内,我们如何选择,才能使得物品的总价格最高。 基本思路 目标是书包内物品的总价值,而变量是物品和书包的限重,所以我们可定义状态dp…