当前位置：首页 > news >正文

VBA高级应用30例Excel中ListObject对象：提取表内单元格的格式元素

news 来源：原创 2025/8/23 15:14:43

《VBA高级应用30例》（版权10178985），是我推出的第十套教程，教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开，这套教程案例与理论结合，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序，写好的程序可以升级。本套教程共三册三十个专题，本讲的内容是：VBA高级应用30例应用3在Excel中的ListObject对象：提取表内单元格的格式元素

【分享成果，随喜正能量】我平生的长进，全在受挫、受辱中得来。一定要咬紧牙关，积蓄自己的斗志，增长自己的智慧，方能成就不世之功。。

应用3 在Excel中的ListObject对象

在VBA中，表(Tables)的应用还是较普遍的，它们被称为ListObjects，这是Excel 2003引入的一个集合。但是对象模型的这一部分有很大的变化，我在这个专题简单给大家讲解一下应用，包括创建及一些格式操作。

8 提取表内单元格的格式元素

或许有的学员会问，如果需要表格中某个单元格的ThemeColor，为什么不简单地用cell.Interior.ThemeColor呢？这是因为我们要提取的单元格格式完全由表格的设置和选定的表格样式所规定的。为此，我们必须要获取表中单元格的格式元素，为了完成这个工作，我们需要：

1）找出单元格在表格中的位置（在标题行、第一列、表格的大部分）

2）确定表格设置：是否启用了行分条，是否有特殊格式的第一列

基于这些信息，我们可以从表样式中提取适当的TableStyleElement并读取其属性。我们在下面给出一个函数，这个函数返回名为oLo的表对象内的单元格oCell的TableStyleElement：

Function GetStyleElementFromTableCell(oCell As Range, oLo As ListObject) As TableStyleElement

Dim lRow As Long

Dim lCol As Long

'确定我们在表中的哪一行

lRow = oCell.Row - oLo.DataBodyRange.Cells(1, 1).Row

lCol = oCell.Column - oLo.DataBodyRange.Cells(1, 1).Column

With oLo

If lRow < 0 And .ShowHeaders Then

'位于第一行，并具有标题

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlHeaderRow)

ElseIf .ShowTableStyleFirstColumn And lCol = 0 Then

'在第一列上，并具有第一列样式

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlFirstColumn)

ElseIf .ShowTableStyleLastColumn And lCol = oLo.Range.Columns.Count - 1 Then

'在最后一列上，具有最后一列样式

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlLastColumn)

ElseIf lRow = .DataBodyRange.Rows.Count And .ShowTotals Then

'位于最后一行，并具有总计行

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlTotalRow)

Else

If .ShowTableStyleColumnStripes And Not .ShowTableStyleRowStripes Then

'在表中，有列条纹

If lCol Mod 2 = 0 Then

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlColumnStripe1)

Else

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlWholeTable)

End If

ElseIf .ShowTableStyleRowStripes And Not .ShowTableStyleColumnStripes Then

'在表中，有列条纹

If lRow Mod 2 = 0 Then

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlRowStripe1)

Else

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlWholeTable)

End If

ElseIf .ShowTableStyleColumnStripes And .ShowTableStyleRowStripes Then

If lRow Mod 2 = 0 And lCol Mod 2 = 0 Then

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlRowStripe1)

ElseIf lRow Mod 2 <> 0 And lCol Mod 2 = 0 Then

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlColumnStripe1)

ElseIf lRow Mod 2 = 0 And lCol Mod 2 <> 0 Then

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlRowStripe1)

Else

Set GetStyleElementFromTableCell = oLo.TableStyle.TableStyleElements(xlWholeTable)

End If

End With

End Function

代码的部分截图：

代码的讲解：

1）ListObject.DataBodyRange 属性：这个属性返回一个Range 对象，该对象代表表格中除标题行之外的值范围。此为只读属性。

2）ListObject.TableStyle 属性：获取或设置指定的 ListObject 对象的表样式。读/写 Variant。

(待续)

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

VBA高级应用30例Excel中ListObject对象：提取表内单元格的格式元素

《VBA高级应用30例》（版权10178985），是我推出的第十套教程，教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开，这套教程案例与理论结合，紧贴“实战”，并做“战术总结”，以…...

编程日记 2025/8/23 15:14:43

数据结构基础之《（19）—矩阵处理》

一、zigzag打印矩阵 Z字形打印矩阵 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 打印顺序：1,2,7,13,8,3,4,9,14... 核心技巧：找到coding上的宏观调度左上角有A、B两个点，A往右一步一步走，B往下一步一步走写一个…...

编程日记 2025/8/23 15:13:18

用Python写一个算24点的小程序

一、运行界面二、显示答案——递归介绍工作流程： 1. 基本情况：函数首先检查输入的数字列表 nums 的长度。如果列表中只剩下一个数字，它会判断这个数字是否接近 24（使用 abs(nums[0] - 24) < 1e-10 来处理浮点数精度问题&…...

编程日记 2025/8/19 4:26:09

基于深度学习的网络摄像头图像实时分类实践：从理论到完整实现

引言：智能视觉感知的新可能在人工智能技术蓬勃发展的今天，实时图像分类作为计算机视觉的基础任务之一，正在深刻改变着我们的生活。从智能手机的人脸解锁到无人超市的自动结算系统，从工业质检的缺陷检测到医疗影像的辅助诊断&…...

编程日记 2025/8/19 12:36:40

C++ 算法竞赛STL以及常见模板

目录 STL /*═══════════════ Vector ═══════════════*/ /*════════════════ Pair ════════════════*/ /*══════════════ String ════════════════*/ /*══════════…...

编程日记 2025/8/23 2:14:15

【资料分享】wireshark解析脚本omci.lua文件20250306版本发布（独家分享）

引言 omci.lua文件是Wireshark的OMCI协议解析插件的核心组件。它配合BinDecHex.lua，可以解析OMCI协议的数据包，提取出消息类型、受管实体标识、受管实体属性等关键信息，并以人类可读的形式显示在Wireshark的解码视图中，方便研发人…...

编程日记 2025/8/18 3:04:07

(dfs 单词搜索)leetcode 79

核心思路用双重循环以所有的位置都作为起始点开始遍历设置边界条件上下左右都搜一次，不合适就回来，二叉树思想经过的结点设置"#避免重复搜索导致数据混乱递归完后要还原原字符 #include<iostream> #include<vector> #include&l…...

编程日记 2025/8/18 15:32:45

Java常用集合与映射的线程安全问题深度解析

Java常用集合与映射的线程安全问题深度解析一、线程安全基础认知在并发编程环境下，当多个线程同时操作同一集合对象时，若未采取同步措施，可能导致以下典型问题： 数据竞争：多个线程同时修改数据导致结果不可预测状…...

编程日记 2025/8/23 11:00:18

【实战ES】实战 Elasticsearch：快速上手与深度实践-5.1.1热点分片识别与均衡策略

👉 点击关注不迷路 👉 点击关注不迷路 👉 点击关注不迷路文章大纲 5.1.1 Filebeat Logstash ES Kibana 全链路配置实1. 架构设计与组件选型1.1 技术栈对比分析1.2 硬件配置推荐 2. Filebeat 高级配置2.1 多输入源配置2.2 性能优化参数 3.…...

编程日记 2025/8/23 15:11:58

服务端和客户端通信(TCP)

服务端 using System; using System.Collections.Generic; using System.Linq; using System.Net; using System.Net.Sockets; using System.Text; using System.Threading.Tasks;namespace TeachTcpServer {class Program{static void Main(string[] args){#region 知识点一 …...

编程日记 2025/8/22 5:55:22

练习题：76

目录 Python题目题目题目分析需求理解关键知识点实现思路分析复杂度分析可能遇到的问题及注意事项代码实现代码解释 1. 类的定义与属性初始化 2. 定义属性的访问器（getter）方法 3. 定义属性的修改器（setter&#xff09…...

编程日记 2025/8/21 21:55:43

SpringBoot3项目-创建及使用

简单的介绍后端SpringBoot3项目，从0到1搭建一个完整项目，给老项目源码升级备用的知识点一、创建项目 1、打开IDEA，通过New Project创建项目，如下图： 2、选择Spring Initializr，配置好项目信息&#xf…...

编程日记 2025/8/15 15:09:03

前端 | 向后端传数据，判断问题所在的调试过程

目录编辑 1. 在 vue 文件中，在调用函数之前先打印传入的数据 2. 在 js 文件中，打印接收到的数据 3. 在浏览器 Network 面板查看请求数据 4. 在 server.js 中查看请求数据 5. 确保 JSON 格式正确知识点：JSON.stringify(req.body, …...

编程日记 2025/8/23 15:12:07

Python爬虫入门实战：爬取博客文章数据并保存

Python爬虫入门实战：爬取博客文章数据并保存概述本文将介绍如何使用Python的requests和BeautifulSoup库实现一个简单的网页爬虫，通过实际案例演示如何爬取博客文章数据并存储到本地文件。本文适合Python爬虫初学者，通过案例快速掌握基本爬…...

编程日记 2025/8/23 15:13:20

用python 的 sentiment intensity analyzer的情感分析器，将用户评论进行分类

SentimentIntensityAnalyzer 是 nltk（Natural Language Toolkit）库中的一个工具，用于进行情感分析。它会为文本返回四个得分：负向情感得分（neg）、中性情感得分（neu）、正向情感得分&a…...

编程日记 2025/8/16 10:06:05

Android Framework 常见面试题

以下是常见的 Android Framework 面试题，涵盖基础到高级知识点，帮助准备面试： 一、基础问题 Android 系统架构分层描述 Android 系统的四层架构（Linux Kernel、Native、Framework、Application）及各层职责。 Zygote …...

编程日记 2025/8/16 11:52:44

如何面向DeepSeek编程,打造游戏开发工具集，提升工作效率

最近我在思考： 如何基于DeepSeek，来提升工作效率，构建高效游戏开发工作流。方向有两个: A: 基于DeepSeek私有代码框架，让它完成项目代码的续写; B: 基于DeepSeek来创作一些工具，使用工具来提升效率，如…...

编程日记 2025/8/20 8:10:43

IDE集成开发环境MyEclipse中安装SVN

打开Myeclipse的help菜单----install from site 点击add弹出对话框在输入框中输入对应内容 http://subclipse.tigris.org/update_1.10.x 点击OK之后，会刷新出两个选项，需要选中的点击next，出现许可的时候选中同意，一直结束等…...

编程日记 2025/8/23 15:13:18

QT中使用C++调用 python脚本

1、使用QT Creator 新建项目 2、添加Python解释器在.pro 文件中添加python头文件与链接库 INCLUDEPATH -I /usr/include/python3.8/ LIBS -L /usr/lib/python3.8/config-3.8-x86_64-linux-gnu -lpython3.8本文实验为ubuntu自带python3.8，虚拟环境中的python解释…...

编程日记 2025/8/22 23:46:42

C语言学习day25：WinAPI编程进阶07-游戏辅助时钟周期事件、定时器消息

接下来我们说一下时间周期（定时器）事件我们接下来继续用上一章中的代码来举例这次课程我们需要用的函数SetTimer（）函数和KillTimer（）函数 SetTimer() 语法： UINT_PTR SetTimer([in, opti…...

编程日记 2025/8/23 15:12:06

NVIDIA Jetson Nano的国产替代，基于算能BM1684X+FPGA+AI算力盒子，支持deepseek边缘部署

NVIDIA Jetson Nano的国产替代，基于算能BM1684X的AI算力盒子，支持deepseek边缘部署另外，还提供BM1684XFPGAAI的解决方案。核心板基于Sophon SG2300X SoC（也叫BM1684X）打造带有8核ARM Cortex-A53 2.3GHz&#xff0c…...

编程日记 2025/8/23 15:11:55

解锁STM32外设：开启嵌入式开发新世界

✨✨✨这里是小韩学长yyds的BLOG(喜欢作者的点个关注吧) ✨✨✨想要了解更多内容可以访问我的主页小韩学长yyds-CSDN博客目录探索 STM32 强大的外设家族初窥门径：STM32 外设开发基础开发方式与工具外设配置基础步骤深入剖析：常见外设应用实例…...

编程日记 2025/8/22 14:11:01

C++的内存管理

1. C/C内存分布我们先来看下面的一段代码和相关问题 int globalVar 1; static int staticGlobalVar 1; void Test() {static int staticVar 1;int localVar 1;int num1[10] { 1, 2, 3, 4 };char char2[] "abcd";const char* pChar3 "abcd";int…...

编程日记 2025/8/16 10:07:41

P8685 [蓝桥杯 2019 省 A] 外卖店优先级--优先队列“数组”！！！！！

P8685 [蓝桥杯 2019 省 A] 外卖店优先级题目解析优先队列如何判断是否使用优先队列？省略规则优先队列常用操作大顶堆 vs 小顶堆定义队列h队列数组代码题目解析每个外卖店会在不同的时间点收到订单，我们可以看见测试用例的时间顺序是不同的&#x…...

编程日记 2025/8/19 21:43:31

nuxt2 打包优化使用“compression-webpack-plugin”插件

在使用 Nuxt.js 构建项目时，为了提高性能，通常会考虑对静态资源进行压缩。compression-webpack-plugin 是一个常用的 Webpack 插件，用于在生产环境中对文件进行 Gzip 压缩。这对于减少网络传输时间和提高页面加载速度非常有帮助。下面是如何在…...

编程日记 2025/8/16 10:03:26

RabbitMQ知识点

1.为什么需要消息队列？ RabbitMQ体系结构操作001：RabbitMQ安装二、安装 # 拉取镜像 docker pull rabbitmq:3.13-management # -d 参数：后台运行 Docker 容器 # --name 参数：设置容器名称 # -p 参数：映射端口号&…...

编程日记 2025/8/23 13:48:46

Windsuf 连接失败问题：[unavailable] unavailable: dial tcp...

问题描述 3月6日，在使用Windsuf 时，遇到以下网络连接错误： [unavailable] unavailable: dial tcp 35.223.238.178:443: connectex: A connection attempt failed because the connected party did not properly respond after a period of…...

编程日记 2025/8/19 18:44:42

Spark 3.0核心新特性解析与行业应用展望

Spark 3.0核心新特性解析与行业应用展望一、自适应查询执行（Adaptive Query Execution, AQE）作为Spark 3.0最具突破性的优化，AQE通过运行时动态调整执行计划，解决了传统静态优化的局限性。其核心技术突破体现在三方面： 1. 动态分区合并（Dynamically Coalescing Shuf…...

编程日记 2025/8/21 7:02:04

基于 harbor 构建docker私有仓库

仓库（Repository）是集中存放镜像的地方，又分公共仓库和私有仓库。有时候容易把仓库与注册服务器（Registry）混淆。实际上注册服务器是存放仓库的具体服务器， 一个注册服务器上可以有多个仓库，…...

编程日记 2025/8/22 23:58:50

MySQL基本建表操作

目录 1，创建数据库db_ck 1.1创建表 1.2 查看创建好的表 2,创建表t_hero 2.1 先进入数据库Db_Ck 2.1.1 这里可以看是否进入数据库: 2.2 创建表t_Hero 2.2.1 我们可以先在文本文档里面写好然后粘贴进去，因为直接写的话，错了要重新开始 …...

编程日记 2025/8/23 2:14:27

低空经济快速发展，无人机人才培养及校企实验室共建技术详解

随着低空经济的快速发展，无人机作为该领域的关键技术载体，其应用范围和市场需求正在迅速扩大。为了满足这一趋势，无人机人才的培养以及校企实验室的共建成为了推动技术进步和产业升级的重要途径。以下是对无人机人才培养及校企实验室共建技术…...

编程日记 2025/8/19 19:24:47

电脑网络出现问题！简单的几种方法解除电脑飞行模式

在某些情况下，您可能需要关闭电脑上的飞行模式以便重新连接到 Wi-Fi、蓝牙或其他无线网络。本教程中简鹿办公将指导您如何在 Windows 和 macO S操作系统上解除飞行模式。一、Windows 系统下解除飞行模式通过快捷操作中心步骤一：点击屏幕右下角的通知…...

编程日记 2025/8/23 15:12:01

Docker入门篇1：搜索镜像、拉取镜像、查看本地镜像列表、删除本地镜像

大家好我是木木，在当今快速发展的云计算与云原生时代，容器化技术蓬勃兴起，Docker 作为实现容器化的主流工具之一，为开发者和运维人员带来了极大的便捷。下面我们一起开始入门第一篇：搜索镜像、拉取镜像、查看本地镜像…...

编程日记 2025/8/20 7:55:09

网络初级复习作业

作业要求： 1,学校内部的HTTP客户端可以正常通过域名www.baidu.com访问到白度网络中的HTTP服务器 2，学校网络内部网段基于192.168.1.0/24划分：PC1可以正常访问3.3.3.0/24网段，但是PC2不允许 3,学校内部路由使用静态路由&#xf…...

编程日记 2025/8/23 4:04:18

Spring Boot 调用DeepSeek API的详细教程

目录前置准备步骤1：创建Spring Boot项目步骤2：配置API参数步骤3：创建请求/响应DTO步骤4：实现API客户端步骤5：创建控制器步骤6：异常处理步骤7：测试验证单元测试示例Postman测试请求常见问题排查…...

编程日记 2025/8/22 14:00:26

rpc和proto

rpc全称远程过程控制，说白了是一种对信息发送和接收的规则编写方法，来自google，这些规则会以protobuf代码存到proto文件里。我以autoGen中agent_worker.proto为例，大概长这样 syntax "proto3";package agents;option …...

编程日记 2025/8/20 15:24:11

我的两个医学数据分析技术思路

我的两个医学数据分析技术思路从临床上获得的或者公共数据库数据这种属于观察性研究，是对临床诊疗过程中自然产生的数据进行分析而获得疾病发生发展的规律等研究成果。再细分，可以分为独立危险因素鉴定和预测模型构建两种。独立危险因素鉴定是一直以…...

编程日记 2025/8/22 13:33:18

GitHub上传项目

总结（有基础的话直接执行这几步，就不需要再往下看了）： git init 修改git的config文件：添加:[user]:name你的github用户名 email你注册github的用户名 git branch -m master main git remote add origin 你的URL gi…...

编程日记 2025/8/19 21:43:44

汇编点亮LED

目录一、ARM常用汇编指令二、汇编点亮LED 2.1 GPIO简述 2.2 GPIO相关寄存器 2.3 LED原理图 2.4 汇编点亮LED 一、ARM常用汇编指令常用汇编格式： label : instruction @ comment label：标号 instruction：具体汇编指令 comment：注释内容常…...

编程日记 2025/8/21 12:46:30

VS Code C++ 开发环境配置

VS Code 是当前非常流行的开发工具. 本文讲述如何配置 VS Code 作为 C开发环境. 本文将按照如下步骤来介绍如何配置 VS Code 作为 C开发环境. 安装编译器安装插件配置工作区第一个步骤的具体操作会因为系统不同或者方案不同而有不同的选择. 环境要求首先需要立即 VS Code…...

编程日记 2025/8/16 10:03:16

Python深度学习算法介绍

一、引言深度学习是机器学习的一个重要分支，它通过构建多层神经网络结构，自动从数据中学习特征表示，从而实现对复杂模式的识别和预测。Python作为一门强大的编程语言，凭借其简洁易读的语法和丰富的库支持，成为深度学…...

编程日记 2025/8/18 23:01:11

hadoop集群HDFS读写性能测试

一、写测试命令 hadoop jar $HADOOP_HOME/share/hadoop/mapreduce/hadoop-mapreduce-client-jobclient-3.1.4-tests.jar TestDFSIO -write -nrFiles 10 -size 10MB二、读测试命令 hadoop jar $HADOOP_HOME/share/hadoop/mapreduce/hadoop-mapreduce-client-jobclient-3.1.4-t…...

编程日记 2025/8/16 10:05:56

HTTPS加密原理详解

目录 HTTPS是什么加密是什么 HTTPS的工作流程 1.使用对称加密 2.引入非对称加密 3.引入证书机制客户端验证证书真伪的过程签名的加密流程整体工作流程总结 HTTPS是什么 HTTPS协议也是一个应用程协议，是在HTTP的基础上加入了一个加密层，由…...

编程日记 2025/8/19 11:53:42

react基本功

useLayoutEffect useLayoutEffect 用于在浏览器重新绘制屏幕之前同步执行代码。它与 useEffect 相同，但执行时机不同。主要特点执行时机：useLayoutEffect 在 DOM 更新完成后同步执行，但在浏览器绘制之前。这使得它可以在浏览器渲染之前读取和修改 DOM，避免视觉上的闪烁…...

编程日记 2025/8/16 10:11:38

计算机视觉｜3D 点云处理黑科技：PointNet++ 原理剖析与实战指南

一、引言在当今数字化与智能化快速发展的时代，3D 点云处理技术在多个前沿领域中发挥着重要作用。特别是在自动驾驶和机器人视觉等领域，这项技术已成为实现智能化的关键支撑。以自动驾驶为例，车辆需要实时感知周围复杂的环境信息&#xff…...

编程日记 2025/8/22 2:38:18

【VUE2】第三期——样式冲突、组件通信、异步更新、自定义指令、插槽

目录 1 scoped解决样式冲突 2 data写法 3 组件通信 3.1 父子关系 3.1.1 父向子传值 props 3.1.2 子向父传值 $emit 3.2 非父子关系 3.2.1 event bus 事件总线 3.2.2 跨层级共享数据 provide&inject 4 props 4.1 介绍 4.2 props校验完整写法 5 v-model原理 …...

编程日记 2025/8/23 7:11:58

WebAssembly技术及应用了解

WebAssembly（Wasm）是一种为Web设计的高效、低级的二进制指令格式，旨在提升Web应用的性能并支持多种编程语言。以下是对其核心概念、优势、应用场景及开发流程的系统介绍： 1. 核心概念二进制格式：Wasm采用紧凑的二进制…...

编程日记 2025/8/21 17:52:40

工程化与框架系列（26）--前端可视化开发

前端可视化开发 📊 引言前端可视化是现代Web应用中不可或缺的一部分，它能够以直观的方式展示复杂的数据和信息。本文将深入探讨前端可视化开发的关键技术和最佳实践，包括图表绘制、数据处理、动画效果等方面。可视化技术概述前端可视化…...

编程日记 2025/8/23 1:40:21

ESP32的IDF开发学习-WiFi的开启、配置与连接

前言本章节将实现如何使用ESP32的WiFi功能，尽可能的详细地介绍简介 ESP32中的wifi支持双工作模式 Station（STA）模式：连接到路由器或其他AP设备，可通过esp_wifi_set_mode(WIFI_MODE_STA)设置。SoftAP模式&#xf…...

编程日记 2025/8/21 13:13:53

2025-3-9 一周总结

目前来看本学期上半程汇编语言,编译原理,数字电路和离散数学是相对重点的课程. 在汇编语言和编译原理这块,个人感觉黑书内知识点更多,细节更到位,体系更完整,可以在老师讲解之前进行预习应当及时复习每天的内容.第一是看书,然后听课,在一天结束后保证自己的知识梳理完整,没有…...

编程日记 2025/8/21 21:01:45

应用3 在Excel中的ListObject对象

8 提取表内单元格的格式元素

相关文章：