【010】Excel宏编程相关封装模块（字体设置、写入表格内容）_003_#VBA_excel字体设置宏-程序员宅基地

技术标签： excel  VBA  

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

1. 说明

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

2. 代码

2.1 调整区域内字体和大小

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

Function AssistTypeSize(H1, L1, H2, L2, Typeface, Size)
'对于选中的区域修改字体和大小及居中处理 _ ,,首位_,,末位_字体_大小

    Range(Cells(H1, L1), Cells(H2, L2)).Select
    
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Font
        .Name = Typeface
        .Size = Size
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
    
End Function

输入内容

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

效果如下
在这里插入图片描述

2.2 内容填充

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

Function AssistAlterRowName(H, l, Name1, Name2, Name3, Name4, Name5)
'按需要向右输入更改内容 _ ,,首位_yi_er_san_si_wu

    Cells(H, l).Value = Name1
    Cells(H, l + 1).Value = Name2
    Cells(H, l + 2).Value = Name3
    Cells(H, l + 3).Value = Name4
    Cells(H, l + 4).Value = Name5
    
End Function

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

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

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

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

参考地址：https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_37620743/article/details/127578347

智能推荐

【数据采集与数据清洗】课堂笔记_scribe数据采集-程序员宅基地

文章浏览阅读3.4k次，点赞4次，收藏40次。第一章 大数据概述1.1 进入大数据时代的原因第三次信息化浪潮信息科技为大数据时代提供支撑1）存储设备容量不断增加2）CPU处理能力大幅提升3）网络带宽不断增加数据产生方式的变革促成大数据时代来临1.2 大数据概念：大数据不仅仅是数据的“大量化”，而是包含“快速化”“多样化”和 “价值化”等多重属性1.3 大数据应用大数据关键技术1）大数据处理过程：大数据采集-大数据预处理-大数据存储-大数据分析与挖掘-大数据可视化2）大数据技术体系：数据采集与预处理技术，分布式数据存储技._scribe数据采集

c/c++动态指定sprintf字符串的宽度_sprintf 指定宽度-程序员宅基地

文章浏览阅读1.4k次。sprintf函数可用*号指定字符串的长度 int width = 8; char *buf = new char[width+1]; sprintf(buf, "%0*d", width, 1); cout << buf << endl; delete buf;输出结果:00000001_sprintf 指定宽度

JEECG - 基于代码生成器的J2EE智能开发框架 续六 JEECG 前台页面和后台交互讲解_easyui代码生成器 java-程序员宅基地

文章浏览阅读291次。JEECG - 基于代码生成器的J2EE智能开发框架 续六 JEECG 前台页面和后台交互讲解_easyui代码生成器 java

MFC90条技巧-带目录_mfc status message-程序员宅基地

文章浏览阅读2.3k次。1．"属性页的添加：2．"List Control中标题栏(Column)的添加：3．"ToolBar和StatusBar中控件的添加：4．"通过Control创建的控件，对其属性的动态控制：5．"窗口的分割与停靠：6.　①怎样在程序开始的时候让它最大化？②vc++做出来的exe文件在窗体的右上方是没有最大化和最小化按钮的,怎样实现这一功能?_mfc status message

C++ 构造函数和析构函数 详解_c构造函数和析构函数-程序员宅基地

文章浏览阅读2.3w次，点赞145次，收藏780次。C++中用构造函数和析构函数来初始化和清理对象，这两个函数将会被编译器自动调用。对象的初始化和清理是非常重要的，如果我们不提供构造函数与析构函数，编译器会自动提供两个函数的空实现。............_c构造函数和析构函数

C++11 多线程_c11多线程打印abc十次-程序员宅基地

文章浏览阅读282次。C++11开始支持多线程编程，之前多线程编程都需要系统的支持，在不同的系统下创建线程需要不同的API如pthread_create()，Createthread()，beginthread()等，使用起来都比较复杂，C++11提供了新头文件、、、等用于支持多线程。使用C++11开启一个线程是比较简单的，下面来看一个简单的例子：#include #include_c11多线程打印abc十次

随便推点

Python + Selenium： expected_conditions介绍_python selenium expected_conditions-程序员宅基地

文章浏览阅读9.9k次，点赞16次，收藏71次。expected_conditions是Selenium的一个模块，selenium.webdriver.support.expected_conditions，可以对网页上元素是否存在，可点击等等进行判断，一般用于断言或与WebDriverWait配合使用。上一次介绍WebDriverWait的时候就曾经提过，WebDriverWait中的until()和until_not()中的方法，必须是可..._python selenium expected_conditions

Chrome 控制台的console用法收集_谷歌浏览器console下面如何查找-程序员宅基地

文章浏览阅读1k次。Chrome 控制台console的用法大家都有用过各种类型的浏览器，每种浏览器都有自己的特色，本人拙见，在我用过的浏览器当中，我是最喜欢Chrome的，因为它对于调试脚本及前端设计调试都有它比其它浏览器有过之而无不及的地方。可能大家对console.log会有一定的了解，心里难免会想调试的时候用alert不就行了，干嘛还要用console.log这么一长串的字符串来替代alert输出_谷歌浏览器console下面如何查找

移动端web使用了input type=file点击却无法打开文件选择器(vue)_html 的input 在夸克浏览器中无法使用选择文件-程序员宅基地

文章浏览阅读4k次。**问题：**移动端web使用了input type=file点击却无法打开文件选择器(vue)，找了好一会才找到问题所在，原因是在input的上级元素上的事件上添加了阻止默认事件。去掉之后就可以打开了。_html 的input 在夸克浏览器中无法使用选择文件

命令模式—C++实现撤消重做_c++中撤销和恢复的设计逻辑-程序员宅基地

文章浏览阅读5.7k次，点赞3次，收藏23次。Command结构 意图 将一个请求封装为一个对象，从而使你可用不同的请求对客户进行参数化；对请求排队或记录请求日志，以及支持可撤消的操作。适用性 1、抽象出待执行的动作以参数化某对象，你可用过程语言中的回调（c a l l b a c k ）函数表达这种参数化机制。所谓回调函数是指函数先在某处注册，而它将在稍后某个需要的时候被调用。C o m m a n d 模式是回调机制的一个面向对象的替_c++中撤销和恢复的设计逻辑

移动通信核心网络技术总结（三）EPC网络的结构及原理_epc网络架构图-程序员宅基地

文章浏览阅读1.2w次，点赞11次，收藏128次。核心网络技术总结（三）EPC网络原理EPC网络结构及功能EPC网络中存在着以下几个网元：eNodeB、MME、HSS、PCRF、SGW、PGW我们可以拿坐火车的过程进行类比，我们把数据比作乘客，那么eNodeB就相当于火车站，数据从eNodeB上车。MME和HSS就相当于火车站的播报员和管理员，他们告诉你在哪个候车厅上车、车去哪里。当你知道去哪里候车后，要通过SGW上车，SGW就相当于检票口，过了这个口数据就从用户端到达了PDN端，相当于上了火车通过这里前往别的省份， PDN将带领你前_epc网络架构图

自动化安装Linux系统—ftp_ftp://192.168.9.157-程序员宅基地

文章浏览阅读1.9k次。autoinstall_system—ftp文章目录autoinstall_system—ftp服务介绍工作过程第一步：PXE Client向DHCP服务器发送请求第二步：DHCP服务器提供信息第三步：PXE客户端请求下载启动文件第四步：Boot Server响应客户端请求并传送文件第五步：请求下载自动应答文件第六步：客户端安装操作系统实验环境需要安装的服务操作过程一、 关闭selinux 和 防火墙二、部署 DHCP 服务器1、修改配置2、重启服务3、查看dhcp服务三、部署tftp-server服._ftp://192.168.9.157

推荐文章

热门文章

相关标签