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

Excel——宏教程(2)

news 来源：原创 2025/5/13 5:25:31

Excel——宏教程(2)

一)、处理单元格

1、直接赋值与引用

将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量，这是在excel中最简单的单元格赋值及引用方法。

如下例将工作表"Sheet1"A1单元格的值赋给Integer变量I，并将I+1的值赋给当前工作表中的B1单元格：

Dim I As Integer
I=Worksheets("Sheet1").Cells(1,1)

Cells(1,2).Select '选定B1单元格，使其成为当前单元格 ActiveCell=I+1 '以I+1为当前单元格赋值

2、用公式赋值

在宏的使用中，可能会更多地用公式来给单元格赋值。

如下例将相对于活动单元格左侧第4列、向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）：

ActiveCell.Formula="=AVERAGE(R[-6]C[-4]:R[-2]C[-4])"

3、引用其它工作表中的单元格

当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上"工作表名！"即可。

如以下即在赋值中引用了"Sheet1"工作表中的A1至A4单元格：

Range("E10").Formula="=SUM(Sheet1!R1C1:R4C1)"

但需注意的是：当被引用的工作表名中含有某些可能引起公式歧义的字符时，需要用单引号’将工作表名括起来。如：

Worksheets("Sheet1").ActiveCell.Formula="=Max('1-1剖面'!D3:D5)"

4、引用其它工作簿中的单元格

在被引用单元格所在工作表名前加上"[工作簿名]"，即可引用其它工作簿中的单元格。如：

ActiveCell.Formula="=MAX([Book1.xls]Sheet3!R1C:RC[4])"

同样需注意的是：当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号"[“、”]"及单引号’将工作簿名括起来。如：

Cells(1,2).Formula="=MIN('[1995-2000总结.xls]1995-1996年'! $A$1:$A$6)"

5、避免循环引用

在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，防止循环引用错误。

6、添加批注

可按如下方法格给单元格添加批注：

Dim 批注文本 As String

批注文本=“批注示例” '准备批注文本

ActiveCell.AddComment '添加批注
ActiveCell.Comment.Text Text:=临时 '写入批注文本
ActiveCell.Comment.Visible=False '隐藏批注[dvnews_page]

7、添加、删除、复制、剪切、粘贴单元格

Range("D10").Insert Shift:=xlToRight '在D10单元格处添加一新单元格，原D10格右移 
Range("C2").Insert Shift:=xlDown '在C2单元格处添加一新单元格，原C2格下移
Rows(2).EntireRow.Insert '在第2行前添加一空白行，原第2行下移
Columns(3).EntireColumn.Insert '在C列前添加一空白列，原C列右移
Columns("A:D").Delete Shift:=xlToLeft '删除A列至D列，其右侧列左移
Rows("3:5").Delete Shift:=xlUp '删除第3行至第5行，其下方行上移
Range("B2").EntireRow.Delete '删除第2行
Range("C4").EntireColumn.Delete '删除C列
Range("B10:C13").Copy '复制B10至C13单元格区域
Cells(1,2).Cut '剪切B1单元格
Range("D10").Select
ActiveSheet.Paste '自D10单元格起粘贴剪贴板中的内容

二)、图表

1、工作表图表

以下为一添加工作表图表的实例。

Charts.Add after:=Worksheets("Sheet1") '在"Sheet1"工作表之后添加新图表工作表
ActiveChart.ChartType=xlXYScatterSmooth '图表类型为XY平滑线散点图
ActiveChart.SetSourceData Source:=Sheets("结点坐标").Range("A1:B69"), PlotBy:= _
xlColumns '图表数据来源于"结点坐标"工作表的A1至B69单元格，且按列绘图。
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "节点坐标" '图表标题"节点坐标"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x" 'x轴标题"x"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y" 'y轴标题"y"
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True '显示x轴主网格线，默认情况下为显示
.HasMinorGridlines = True '显示x轴次网格线，默认情况下为不显示
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True '标出x轴主网格值，默认情况下为标注
.HasMinorGridlines = False '取消x轴次网格值标注，默认情况下为不标注
End With
ActiveChart.Legend.Position = xlRight '图例显示在图表右侧

2、嵌入式图表

嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同，而对图表的设置基本类似。详见下例。

Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300) '在当前工作表(0,0)坐标处添加宽200，高300的嵌入式图表
嵌入表.Chart.ChartType = xlColumnClustered '图表类型为簇状柱形图
嵌入表.Chart.SetSourceData Source:=Sheets(1).Range("A2:B2"), PlotBy:=xlRows 
'设置图表数据来源
With 嵌入表.Chart
.HasTitle = False '无图表标题
.Axes(xlCategory, xlPrimary).HasTitle = False '无x轴标题
.Axes(xlValue, xlPrimary).HasTitle = False '无y轴标题
End With[dvnews_page]

三)、工作表

1、添加

Sheets.Add before:=Sheets(1) '在第1工作表前添加新工作表
Sheets.Add after:=Sheets(Sheets.Count) '在最后工作表后添加新工作表

2、移动

ActiveSheet.Move before:=Sheets(2) '将当前工作表移动至第2工作表之前

3、命名

ActiveSheet.Name="工作表名" '将当前工作表命名为"工作表名"

4、删除

可以用以下语句删除当前工作表。

ActiveSheet.Delete

但在删除前excel会自动弹出提示框，需在用户确认后方可执行删除。为避免这一干扰，可以先用以下语句关闭excel的警告提示。

Application.DisplayAlerts = False

在删除完成后，再重新打开excel的警告提示

Application.DisplayAlerts = True

四)、工作簿

excel的宏对工作簿的操作主要为保存。

Dim 存盘文件名 As String

ActiveWorkbook.Save '保存当前工作簿
存盘文件名="工作表名"

ActiveWorkbook.SaveAs Filename:= 存盘文件名 '当前工作簿另存为"工作表名.xls"

在另存时，若指定的存盘文件名不包含路径，则保存在该工作簿的打开目录下。而若此存盘文件已存在，也可用关闭excel警告提示的方法以免其自动弹出提示框。

Excel——宏教程(2)

Excel——宏教程(2) 一)、处理单元格 1、直接赋值与引用将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量，这是在excel中最简单的单元格赋值及引用方法。如下例将工作表"Sheet1"A1单元格的值赋给Integer变量I，并将I1的值…...

编程日记 2025/5/13 5:25:31

React Native 全栈开发实战班 - 性能与调试之打包与发布

在完成 React Native 应用的开发与性能优化后，下一步就是将应用打包并发布到各大应用市场，如 Apple App Store 和 Google Play Store。本章节将详细介绍 React Native 应用的打包与发布流程，包括 Android 和 iOS 平台的打包步骤、签名配置、发…...

编程日记 2025/5/13 21:46:31

C# 5000 转16进制字节(激光器串口通讯生成指定格式命令)

最近在做一个与激光器用串口进行通讯的程序文档中要求将频率参数以3个字节的方式进行发送。这里记录一下过程。以便以后再有类似问题时可以快速解决。 /// <summary>/// 设置频率/// </summary>/// <param name"sender"></param>/// <par…...

编程日记 2025/5/13 21:36:23

Win11下载和配置VSCode（详细讲解）

配置VSCode需要的工具： 一、MinGW-w64 二、Visual Studio Code 一、MinGW-w64下载 1、下载 MinGW官网地址： Downloads - MinGW-w64 直链下载： 下载 mingw-w64-install.exe （MinGW-w64 - 适用于 32 位和 64 位 Windows&#…...

编程日记 2025/5/13 22:08:12

基于Multisim的多路智力竞赛抢答器设计与仿真

(1)设计一个8路智力竞赛抢答器,主持人可控制系统的清零和抢答的开始,控制电路可实现最快抢答选手按键抢答的判别和锁定功能，并禁止后续其他选手抢答。 (2)抢答选手确定后给出一声音响的提示和选手编号的显示，抢答选手的编号显示保持到系统被清零为止。 …...

编程日记 2025/5/12 3:38:12

闪电shader const shader new THREE.ShaderMaterial({uniforms: {iTime: this.iTime,color: { value: new THREE.Color("#D2F8FE") },},vertexShader: /* glsl */ varying vec2 vUv;varying float normalizeY;void main() {// vUv (uv * 2. - 2.) * vec2(0.3,2.);…...

编程日记 2025/5/13 22:05:26

高效序列化工具（1）-----Protobuf

目录 1.Protobuf Protobuf 的特点工作原理 Protobuf 与 JSON、XML 的对比 2.protobuf语法 1.数据类型 2.消息 3.枚举 4.嵌套消息 5.重复字段 6.默认值 7.其他类型 1.oneof类型 2.any类型 8.文件组织 3.protobuf命令 1.常见命令选项： 1. --proto_…...

编程日记 2025/5/13 21:32:55

湛江市社保卡申领指南：手机获取电子照片回执单号

在湛江市，社保卡的申领流程已经实现了数字化，为市民带来了极大的便利。特别是通过手机获取数码照片回执单号，这一环节更是简化了申领过程。今天，我们将详细介绍如何不去照相馆，利用手机来获取数码照片回执单号&#xf…...

编程日记 2025/5/13 21:53:08

HTML5实现剪刀石头布小游戏(附源码)

文章目录 1.设计来源1.1 主界面1.2 皮肤风格1.2 游戏中界面 2.效果和源码源码下载万套模板，程序开发，在线开发，在线沟通作者：xcLeigh 文章地址：https://blog.csdn.net/weixin_43151418/article/details/143798520 HTM…...

编程日记 2025/5/13 17:01:57

TypeScript之常见类型

常见类型（Everyday Types）本章我们会讲解 JavaScript 中最常见的一些类型，以及对应的描述方式。注意本章内容并不详尽，后续的章节会讲解更多命名和使用类型的方式。类型可以出现在很多地方，不仅仅是在类型注解 (type annotations)中。我们不仅要学习类型本身，也要学习…...

编程日记 2025/5/13 21:31:31

MacOS java多版本安装与管理-sdkman

安装sdkman curl -s "https://get.sdkman.io" | bashsource "$HOME/.sdkman/bin/sdkman-init.sh"sdk version正常出现sdkman版本号就安装成功了 # 安装java # 安装java8 sdk install java 8.0.412.fx-zulu建议和上述一样安装 fx-zulu 的jdk&#xff0c…...

编程日记 2025/5/13 21:33:59

NLP论文速读（多伦多大学）|利用人类偏好校准来调整机器翻译的元指标

论文速读|MetaMetrics-MT: Tuning Meta-Metrics for Machine Translation via Human Preference Calibration 论文信息： 简介： 本文的背景是机器翻译（MT）任务的评估。在机器翻译领域，由于不同场景和语言对的需求差异&a…...

编程日记 2025/5/13 21:35:02

20241121 android中树结构列表（使用recyclerView实现）

1、adapter-item的布局 <?xml version"1.0" encoding"utf-8"?> <LinearLayout xmlns:android"http://schemas.android.com/apk/res/android"android:layout_width"match_parent"android:layout_height"wrap_content&…...

编程日记 2025/5/12 6:08:52

达索系统亮相第三十一届中国汽车工程学会年会暨展览会

伴随着改革开放以及中国入世WTO，三十多年来，中国汽车产销已经成为世界最大的单一市场而独占鳌头。近十年来，另辟蹊径的中国汽车产业人在新能源汽车赛道上引领了一波又一波令全球惊艳的创新成就，成为最为靓丽的新出口三大件的头牌。…...

编程日记 2025/5/11 18:21:37

Python网络爬虫实践案例：爬取猫眼电影Top100

以下是一个Python网络爬虫的实践案例，该案例将演示如何使用Python爬取猫眼电影Top100的电影名称、主演和上映时间等信息，并将这些信息保存到TXT文件中。此案例使用了requests库来发送HTTP请求，使用re库进行正则表达式匹配，并包含详…...

编程日记 2025/5/12 6:08:41

ROSSERIAL与Arduino IDE交叉开发（UBUNTU环境，包含ESP32、arduino nano）

ROSSERIAL与Arduino IDE交叉开发一、简介二、安装1、Ubuntu下的Arduino IDE安装 **针对ESP32报错问题原因溯源和修改**三、运行结点一、简介这个教程展示在ubuntu环境下如何利用Arduino IDE配合rosserial开发机器人部件。通过Arduino IDErosserial实现arduino/esp32开发板通…...

编程日记 2025/5/13 18:09:51

爬虫开发工具与环境搭建——使用Postman和浏览器开发者工具

第三节：使用Postman和浏览器开发者工具在网络爬虫开发过程中，我们经常需要对HTTP请求进行测试、分析和调试。Postman和浏览器开发者工具（特别是Network面板和Console面板）是两种最常用的工具，能够帮助开发者有效地捕…...

编程日记 2025/5/13 18:08:10

ceph 18.2.4二次开发，docker镜像制作

编译环境要求 #需要ubuntu 22.04版本参考https://docs.ceph.com/en/reef/start/os-recommendations/ #磁盘空间最好大于200GB #内存如果小于100GB 会有OOM的情况发生,需要重跑目前遇到内存占用最高为92GB替换阿里云ubuntu 22.04源将下面内容写入/etc/apt/sources.list 文件…...

编程日记 2025/5/13 21:56:41

游戏引擎学习第19天

介绍这段内容描述了开发者在进行游戏开发时，对于音频同步和平台层的理解和调整的过程。以下是更详细的复述： 开发者表达了他希望今天继续进行的工作内容。他提到，昨天他讲解了一些关于音频的内容，今天他想稍微深入讲解一下他正…...

编程日记 2025/5/13 21:46:32

简单实现vue2响应式原理

vue2 在实现响应式时，是根据 object.defineProperty() 这个实现的，vue3 是通过 Proxy 对象实现，但是实现思路是差不多的，响应式其实就是让函数和数据产生关联，在我们对数据进行修改的时候，可以执行相关的副…...

编程日记 2025/5/13 17:54:59

TypeScript 中扩展现有模块的用法

declare module 是 TypeScript 中用于扩展现有模块的特性。它允许开发者在已有模块的基础上，添加新的功能（比如扩展接口、添加类型声明等）。通过 declare module，可以将额外的声明合并到原模块中。以下是用法详解： 用…...

编程日记 2025/5/13 21:35:02

Excel——宏教程(2)

一)、处理单元格

1、直接赋值与引用

2、用公式赋值

3、引用其它工作表中的单元格

4、引用其它工作簿中的单元格

5、避免循环引用

6、添加批注

7、添加、删除、复制、剪切、粘贴单元格

二)、图表

1、工作表图表

2、嵌入式图表

三)、工作表

1、添加

2、移动

3、命名

4、删除

四)、工作簿

相关文章：

Excel——宏教程(2)

React Native 全栈开发实战班 - 性能与调试之打包与发布

C# 5000 转16进制字节(激光器串口通讯生成指定格式命令)

Win11下载和配置VSCode（详细讲解）

基于Multisim的多路智力竞赛抢答器设计与仿真

Three.js 闪电效果

高效序列化工具（1）-----Protobuf

湛江市社保卡申领指南：手机获取电子照片回执单号

HTML5实现剪刀石头布小游戏(附源码)

TypeScript之常见类型

MacOS java多版本安装与管理-sdkman

NLP论文速读（多伦多大学）|利用人类偏好校准来调整机器翻译的元指标

20241121 android中树结构列表（使用recyclerView实现）

达索系统亮相第三十一届中国汽车工程学会年会暨展览会

Python网络爬虫实践案例：爬取猫眼电影Top100

ROSSERIAL与Arduino IDE交叉开发（UBUNTU环境，包含ESP32、arduino nano）

爬虫开发工具与环境搭建——使用Postman和浏览器开发者工具

ceph 18.2.4二次开发，docker镜像制作

游戏引擎学习第19天

简单实现vue2响应式原理

TypeScript 中扩展现有模块的用法