![](https://img-blog.csdnimg.cn/20201014180756919.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Excel VBA
qh0526wy
这个作者很懒,什么都没留下…
展开
-
excel数据大小显示竟然有最大限制,限制32,767,实际限制32759
2. **文本换行**:如果单元格中的文本内容过长,可以通过设置单元格格式中的“自动换行”选项来使文本在单元格内换行显示。3. **缩放**:Excel 工作表的缩放比例也会影响单元格内容的显示。6. **数据类型**:不同类型的数据(如文本、数字、日期等)在单元格中的显示方式可能不同,这也会影响单元格内容的显示。4. **滚动条**:如果工作表的列宽或行高超出了屏幕显示范围,可以使用滚动条来查看不可见的部分。5. **单元格格式**:单元格的格式设置,如字体大小、字体类型等,也会影响内容的显示效果。原创 2024-07-03 15:26:38 · 413 阅读 · 0 评论 -
VBA-SQL封装查询函数
vba原创 2023-02-16 23:32:16 · 239 阅读 · 0 评论 -
VBA字典获配置
Function qh_get_settings(qh_select_value0, Optional qh_sheet_name0 = "Settings", _ Optional qh_range0 = "C3", _ Optional qh_select_cloumn0 = 3, _ ...原创 2022-04-04 12:03:30 · 324 阅读 · 0 评论 -
Excel以数据库SQL的形式查询本表
Function qh_excel_query12(qh_strSQL0, Optional qh_PathStr0 = "") 'sql方式查询本表的数据,返回二维数组 作者:阙辉 2021.03.29Dim qh_Conn As Object, qh_Rst As ObjectDim qh_strConn As String, qh_strSQL As StringDim qh_i As Integer, qh_PathStr As StringDim qh_result_array.原创 2022-03-19 22:24:11 · 1012 阅读 · 0 评论 -
数据库的形式操作excel
Function qh_len_arr(qh_array0) '计算数组的长度 作者:阙辉 2021.02.24Dim qh_arrayDim qh_array_lqh_array = qh_array0qh_array_l = UBound(qh_array) - LBound(qh_array) + 1qh_len_arr = qh_array_lEnd FunctionFunction qh_excel_query(qh_strSQL0, _ .原创 2021-12-02 22:50:48 · 144 阅读 · 0 评论 -
Excel 批量删除自定义名称
批量删除代码Sub 批量删除自定义名称()qh_star_t = Timer'获取一共有多少条自定义名称For Each n In ActiveWorkbook.Names n1 = n1 + 1Nextqh_jin_zong = n1 '进度条总数 进度条调用多少次就*多少次qh_BD0 = 0qh_hear = "房多多_删除自定义名称_阙辉*程序运行_进度*程序运行_详情"'批量删除自定义名称For Each n In ActiveWorkbook.Names原创 2021-09-22 17:50:14 · 348 阅读 · 0 评论 -
设置批注的属性---位置、边框、高度、颜色等
设置批注的属性---位置、边框、高度、颜色等 [复制链接] nbchn TA的精华主题 TA的得分主题 这个测试了半天,可能只能用VBA才能解决,执行如下宏,即可批量将表中的全部批注填充色设置为透明的, Sub test() Dim Com As Range For Each Com In Sheet1.UsedRange.SpecialCells(xlCellTypeCommen...原创 2021-05-18 22:07:52 · 1089 阅读 · 0 评论 -
Excel财务报表翻译
Function QH_有道翻译_函数(qh_CanShu0) '作者:阙辉 20210518Dim strText As StringDim strCookie As StringDim xmlobject, xmlobject1 As ObjectDim qh_CanShuqh_CanShu = qh_CanShu0'拼接post传递参数qh_CanShu = "&q=" & qh_CanShu & "&from=Auto&to=Auto".原创 2021-05-18 20:19:31 · 167 阅读 · 0 评论 -
Excel VBA批量修改文件名
一、设计思路1.选择要修改文件的文件夹;2.获取文件夹内所有文件;3.在Excel里面将文件改后名写好;4.更改文件名;5.清空数据;二、代码实现1.可视化选择文件夹代码With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then qh_select_path = .SelectedItems(1) qh_path_oo = .Selected.原创 2021-04-30 22:22:50 · 8354 阅读 · 2 评论 -
ExcelVBA结合表格函数计算数据
不知大家有没有遇到过这样的需求,有些表格数据计算,如果使用纯vba计算会导致程序运行效率很低,不能动态更新;为此我想了一个办法,将表格函数藏在字段名处,然后通过vba填充需要计算的单元格(利用函数的相对引用);那怎么将函数藏在标题列呢?利用row函数加if判断即可实现=IF(ROW()=1,"开票金额¥**",IF(B1="","",SUMIFS(开票明细!M:M,开票明细!B:B,XL!$E$3,开票明细!C:C,B1,开票明细!N:N,"已开票")))在利用vba程序实现S原创 2021-04-20 20:48:46 · 554 阅读 · 0 评论 -
Excel VBA获取最后最前行标列标详解
利用End属性获取数据区域的最后一行行号FinalRow = Range("A1048576").End(xlUp).Row利用End属性获取数据区域的最前一行行号FirstRow = Range("A1").End(xlDown).Row利用End属性获取数据区域的最后一列列标FinalColumn = Range("XFD2").End(xlToLeft).Column利用End属性获取数据区域的最前一列列标FirstColumn = Range("A2").End(xlTo原创 2021-04-18 17:35:58 · 3557 阅读 · 0 评论 -
Excel VBA 函数
函数 动作 Abs 返回一个数的绝对值 Array 返回包含一个数组的变量 Asc 将字符串的第一个字符转换成它的ASCII值 Atn 返回一个数的反正切值 CallByName 执行方法,设置或返回对象的某个属性 CBool 将...原创 2021-04-18 17:07:42 · 1164 阅读 · 0 评论 -
Excel VBA语句
VBA语句 语句 动作 AppActivate 激活一个应用程序窗口 Beep 通过计算机扬声器发出一个音调 Call 将控制权转移到另一个过程 ChDir 改变当前目录 ChDrive 改变当前驱动器 Close 关闭一个文本文件 Const 声明一个常量值 Date 设置当前系统日期 Declare 将以 声明对动态链接库(Dynamic Link Library,DLL)中外部过程的引用 DefBo原创 2021-04-18 16:53:02 · 244 阅读 · 0 评论 -
Excel VBA数组拓展列表(可以用作数据容器)
一、先总结数组的特性数组转置必须在同过程或同函数内redim 否则报无效 redim; 起始标必须为1,不能大于1也不能小于1,否则报类型不匹配错误; 数组不改变值的情况下只能增加列的数,如果要增加行,只能先转置,再增加,然后转置还原; 如果数组存储了null,则不能被转置,因此在存入空值时需要过滤; 经过多次实验证明:VBA的数组起始标只能以1开始,否则无法转置二、列表设计思路利用类模块,当成对象开发; 生成数组是二维数组,每个维度的长度都可以通过参数设置; 通过行标列表添加...原创 2021-04-18 15:04:55 · 1835 阅读 · 1 评论 -
Excel 目录管理(ExcelVBA开发)
一、问题:当我们在做表的时候,有的时候一个工作簿会有很多表,这个时候切换或查找表格可能会麻烦。二、需求:在功能区自动生成菜单目录,或分类生成目录方便选择和查找对应的表。三、实现:1、先写功能区UI代码,具体怎么放,大家看一下源文件。<?xml version="1.0" encoding="GBK" ?><customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="Q原创 2021-02-09 10:17:29 · 474 阅读 · 0 评论