1. 说明

该模块是根据Excel宏编程官网及录制时相关操作进行编写的，如有不足之处，望批评指正！！！

2. 代码

2.1 调整区域内字体和大小

选中一定的区域，调整区域内字体和大小

Function AssistTypeSize(H1, L1, H2, L2, Typeface, Size)
'对于选中的区域修改字体和大小及居中处理 _ ,,首位_,,末位_字体_大小Range(Cells(H1, L1), Cells(H2, L2)).SelectWith Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.WrapText = False.Orientation = 0.AddIndent = False.IndentLevel = 0.ShrinkToFit = False.ReadingOrder = xlContext.MergeCells = FalseEnd WithWith Selection.Font.Name = Typeface.Size = Size.Strikethrough = False.Superscript = False.Subscript = False.OutlineFont = False.Shadow = False.Underline = xlUnderlineStyleNone.ThemeColor = xlThemeColorLight1.TintAndShade = 0End WithEnd Function

输入内容

AssistTypeSize(H1, L1, H2, L2, “宋体”, 20)

效果如下

2.2 内容填充

按需要向右输入更改内容（逐个输入）

Function AssistAlterRowName(H, l, Name1, Name2, Name3, Name4, Name5)
'按需要向右输入更改内容 _ ,,首位_yi_er_san_si_wuCells(H, l).Value = Name1Cells(H, l + 1).Value = Name2Cells(H, l + 2).Value = Name3Cells(H, l + 3).Value = Name4Cells(H, l + 4).Value = Name5End Function

从某位置开始向右更改输入内容（列表输入）

Function AssistAlterRow(H, l, WB_Endto, Start, Need)
'从某位置开始向右更改输入内容 _ 某行_首位_内容_起始位_截止位For i = Start To NeedCells(H, l + i - Start).SelectActiveCell.FormulaR1C1 = WB_Endto(i)NextEnd Function

从某位置开始向下更改输入内容（列表输入）

Function AssistAlterColumn(H, l, WB_Endto, Start, Need)
'从某位置开始向下更改输入内容 _ 某行_首位_内容_起始位_截止位For i = Start To NeedCells(H + i - Start, l).SelectActiveCell.FormulaR1C1 = WB_Endto(i)NextEnd Function

参考地址：https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处

【010】Excel宏编程相关封装模块（字体设置、写入表格内容）_003_#VBA相关推荐

Simulink模块字体设置
Simulink模块字体设置: 选择目标模块->右击->右键菜单选Format-Font Style for Selection
excel 宏编程_在 Excel 中使用 Python 开发宏脚本
点击上方蓝字,每天一起学 Python,文末领送书福利文 | varlemon 编辑 | EarlGrey 推荐 | 编程派公众号(ID:codingpy) 之前发文介绍过一个叫GridStudio ...
EXCEL宏编程纪念
不久前被叫去编写宏,这EXCEL宏真是麻烦! 可能以后不会再遇到有编写宏的经历了,故而贴出来以做个纪念: Sub direct_Price() ' 'query_dir_volume '宏由颜清国编 ...
【016】Excel宏编程的交互解析（Cells）_002_#VBA
Cells 1 交互元件 Cells 解析 1.1 元素解读 1.2 操作后缀 2 对列进行编号 3 说明 1 交互元件 Cells 解析 1.1 元素解读 Cells(RowIndex,Column ...
包-封装模块、设置__init__和外界导入包
def send(text):print("正在发送 %s..." % text) def receive():return "这是来自 100xx 的短信" ...
python中设置字体大小_python如何设置写入表格的字体字号？
我们在做表格时候,可以通过自带的功能,设置字体字号,那大家在学习编程时,有没有想过用编程去改变的呢?答案时肯定的!下面一起来看看这好玩的设置方法吧~ 功能描述: 首先生成几个测试用的Excel文件,然 ...
excel单元格下拉选项怎么设置_表格设置下拉多个选项的方法_excel如何设置下拉选项图文步骤...
Excel表格是我们日常办公常用到的工具软件之一,我们在Excel表格中处理数据非常的方便高效.有的朋友想在表格中设置多个下拉选项,却不知如何操作.那么表格设置下拉多个选项的方法是什么呢?这就为大家带 ...
傲游浏览器能改字体吗网页字体设置方法简述
将网页字体调整为喜欢的格式,在一定程度上也能提高用户的使用体验,因此傲游浏览器推出了个性化的"网页字体更改"功能.那么,该如何使用这一功能呢?下面小编就来简单介绍一下傲游浏览器网页 ...
WPS JS宏编程是什么
WPS JS宏编程是一种基于JavaScript语言的自动化办公技术,可以通过编写脚本来自动化执行一些重复性的任务,例如格式化文本.生成报表.处理数据等.本教程将介绍WPS JS宏编程的基本概念.语法 ...
makefile使用宏及用法$(宏标识符) $(cc)_宏编程的艺术
微信限制:不能放置链接,代码样式比较奇怪,发布后不能更新... 推荐阅读原文: 写在前面之前写过几篇关于 C/C++ 宏 (macro) 和 C++ 元编程 (metaprogramming) 的 ...

【010】Excel宏编程相关封装模块（字体设置、写入表格内容）_003_#VBA

Excel宏编程相关封装模块-第3期

1. 说明

2. 代码

2.1 调整区域内字体和大小

2.2 内容填充

【010】Excel宏编程相关封装模块（字体设置、写入表格内容）_003_#VBA相关推荐

最新文章

热门文章