taller_2000
码龄16年
  • 674,011
    被访问
  • 218
    原创
  • 3,061
    排名
  • 362
    粉丝
关注
提问 私信

个人简介:不积跬步,无以至千里;不积小流,无以成江海

  • 加入CSDN时间: 2006-07-20
博客简介:

神奇的BI

博客描述:
点滴知识分享
查看详细资料
  • 5
    领奖
    总分 1,437 当月 66
个人成就
  • 获得272次点赞
  • 内容获得144次评论
  • 获得1,275次收藏
创作历程
  • 20篇
    2022年
  • 48篇
    2021年
  • 50篇
    2020年
  • 57篇
    2019年
  • 43篇
    2018年
成就勋章
TA的专栏
  • 格式
    1篇
  • 单元格
    17篇
  • 公式
    2篇
  • 图片
    8篇
  • 条件格式
    2篇
  • Office
    22篇
  • 数据清洗
    18篇
  • 对象
    7篇
  • 图表
    2篇
  • 批注
    1篇
  • Word
    2篇
  • XML
    2篇
  • VBA
    176篇
  • Excel
    139篇
  • 数组
    43篇
  • 事件
    11篇
  • 代码模板
    4篇
  • 工作表
    30篇
  • SQL
    1篇
  • 合并单元格
    3篇
  • 控件
    5篇
  • 字典
    7篇
  • 数据
    32篇
  • API
    11篇
  • 工具条
    1篇
  • 自定义函数
    9篇
  • 窗体
    2篇
  • JSON
    7篇
  • ADO
    1篇
  • 正则
    35篇
  • JAVASCRIPT
    8篇
  • Power BI
    21篇
  • Power Query
    24篇
  • 最近
  • 文章
  • 资源
  • 问答
  • 帖子
  • 视频
  • 课程
  • 关注/订阅/互动
  • 收藏
搜TA的内容
搜索 取消

间隔色标记相同数据行

实例需求:如果D列相邻单元格内容相同,并且对应的E列单元格内容也相同,并且D列不为空,那么D列、E列和G列相应行使用间隔颜色进行标记,如下图所示。示例代码如下。Sub demo() lst = [a1].End(xlDown).Row arr = Range("d1:d" & lst) Range("b3:L" & lst).Interior.Color = xlNone Set dic = CreateObject("scripting.diction
原创
发布博客 2022.05.08 ·
274 阅读 ·
0 点赞 ·
0 评论

Evaluate自定义公式替换参数

实例需求:批号列包含L、W、H,公式列为计算公式,现需要计算“结果”列。批号列为11位数字,其格式为:LLLLWWxxHHH,其xx为填充位。示例代码如下。Sub demo() Dim arr, L, W, H, Rng Set Rng = [a1].CurrentRegion arr = Rng.Value lst = UBound(arr) For i = 2 To lst L = Left(arr(i, 1), 4) W
原创
发布博客 2022.05.08 ·
61 阅读 ·
0 点赞 ·
0 评论

拷贝合并单元格时保留格式

Excel中的合并单元格是个很奇葩的功能,有的用户非常喜欢这个功能,但是合并单元格的功能有时差强人意,处理起来非常麻烦,从数据处理的角度考虑,不推荐使用合并单元格。既然Excel提供了合并单元格功能,那么用户就可能会使用这个功能,例如A1:B4为合并单元格区域,其中的文字内容具有不同的格式,现在需要将其内容和格式拷贝到D1单元格,目标区域也是一个合并单元格区域,使用Excel的拷贝与粘贴,只能把文字拷贝过去,字体格式丢失了,如下图所示。Sub CopyMerge(srcCel As Range, de
原创
发布博客 2022.05.08 ·
171 阅读 ·
0 点赞 ·
0 评论

Excel单元格区域快速导出为PDF

将Excel工作簿转换为PDF,可以使用“另存为”,也可以使用打印至虚拟PDF打印机。将Excel工作表转换为PDF,可以使用打印至虚拟PDF打印机。如何将单元格区域导出为PDF呢?设置打印区域,打印至虚拟PDF打印机,同样可以实现。但是这个方法太绕了,可以使用更简单的方法。也许读者知道ExportAsFixedFormat可以将工作簿转换为PDF,殊不知Range对象也有ExportAsFixedFormat方法。示例代码如下。Sub Demo() file_pdf = ThisWor
原创
发布博客 2022.05.07 ·
113 阅读 ·
0 点赞 ·
0 评论

VBA中如何判断数组为空

在复杂的代码开发过程中,程序逻辑结构可能存在多个分支,有时需要判断变量是否为空,例如对于Range变量,可以使用如下代码。
原创
发布博客 2022.04.04 ·
988 阅读 ·
0 点赞 ·
0 评论

如何获取单元格区域的行列范围

活动工作中选中的单元格区域为`B3:C7`,接下使用多种方法获取选中区域的行列范围。
原创
发布博客 2022.04.04 ·
172 阅读 ·
0 点赞 ·
0 评论

如何使用VBA实现将工作簿中全部表格转换为区域

工作簿中有很多个工作表,每个工作中又有多个表格,逐个操作实在太麻烦,而且容易出现遗漏,使用VBA快速解决这个问题。
原创
发布博客 2022.04.04 ·
244 阅读 ·
0 点赞 ·
0 评论

VBA之正则表达式(34)-- 提取照片规格

实例需求:按照指定规则从A数据提取相应的规格至B和C列,示例数据如下所示。示例代码如下。Sub Demo() Dim regExp As Object Dim aRes, arr Set regExp = CreateObject("vbscript.regExp") regExp.Global = True regExp.Pattern = "([\d\.]+)x(\d+(\.\d+)*)" arr = [a1].CurrentRegion.Value
原创
发布博客 2022.04.02 ·
403 阅读 ·
0 点赞 ·
0 评论

VBA之正则表达式(33)-- 网页表格提取数据

实例需求:示例数据如下所示。```电力变压器DL/T 1539-20161```从示例数据提取名称、规格和数量>电力变压器>DL/T 1539-2016>1
原创
发布博客 2022.03.09 ·
900 阅读 ·
0 点赞 ·
0 评论

VBA实现设置链接单元格功能

在Excel设置链接单元格非常简单,选中形状(图片),在公式栏中输入`=A1`,就完成了链接单元格,修改A1单元格第值,将自动更新形状文字。
原创
发布博客 2022.03.09 ·
202 阅读 ·
2 点赞 ·
0 评论

嵌套字典统计非重复日期

示例数据如A列和B列所示,现在需要统计项目编号的不重复日期次数。声明一下,这个问题其实完全不需要使用VBA代码,数据透视表和公式实现起来都更直接。这个主题来自于一个网友的提问,希望研究如何使用VBA中的字典解决此问题。
原创
发布博客 2022.03.09 ·
30 阅读 ·
0 点赞 ·
0 评论

VBA中查找日期格式数据

使用VBA代码查找日期数据,经常出现错误,明明在工作表中存在该日期,但是代码就是查找不到,原因很简单,就是日期格式的问题。
原创
发布博客 2022.03.09 ·
428 阅读 ·
2 点赞 ·
1 评论

条件格式实现ABC分析

Excel中数据数据条可以更直观的展现数据,依次单击【条件格式】>【数据条】>【实心填充】可以获得B列的效果。
原创
发布博客 2022.02.02 ·
781 阅读 ·
0 点赞 ·
0 评论

如何为文件夹选择对话框指定缺省目录

想必大家都已经知道VBA中`Application.FileDialog(msoFileDialogFolderPicker).Show`可以实现目录选择对话框,本文解释另一种实现方式 -- Shell对话框。
原创
发布博客 2022.02.02 ·
452 阅读 ·
0 点赞 ·
0 评论

快速判断文件是否存在

提到查找文件通常实现方法都是使用Dir函数,其实VBA中提供了返回指定文件长度(以字节为单位)的函数`FileLen`,利用这个函数也可以实现快速判断文件是否存在。
原创
发布博客 2022.02.02 ·
506 阅读 ·
0 点赞 ·
0 评论

【增强版】快速判断工作簿中是否存在指定工作表

《快速判断工作簿中是否存在指定工作表》介绍了两种方法实现判断工作表是否存在与工作簿中,最近发现有更简单的方法实现,在这里和大家分享一下。示例代码如下。Function blnSheetExist(ByVal strSht As String) As Boolean blnSheetExist = (TypeName(Application.Evaluate(strSht & "!A1")) = "Range")End FunctionSub Demo() Dim aSht
原创
发布博客 2022.02.02 ·
497 阅读 ·
0 点赞 ·
0 评论

VBA之正则表达式(32)-- 提取指定规格

实例需求:按照指定规则从示例数据提取相应的规格,示例数据如下所示。A75432222新粉色M/160 – 提取规格为:MB43243333畅销黑色44 – 提取规格为:44C93119125 – 无规格方法1:Sub Demo1() Dim regExp As Object, regExpMHs As Object Set regExp = CreateObject("vbscript.regExp") regExp.Global = True regExp.P
原创
发布博客 2022.01.01 ·
266 阅读 ·
0 点赞 ·
0 评论

VBA之正则表达式(31)-- 指定格式数据拆分

实例需求:按照指定规则从A列示例数据提取相应的内容,如下图所示。提取规格:1、第一段,第1个字符“-”前的字符,结果为字符串格式2、第二段,第1个“-”字符与第2个“-”字符中间的字符,结果为数字格式提取数字后,结果=1,则返回:1提取数字后,结果=2,则返回:2其余返回:03、第三段、第2个“-”字符与第3个“-”字符中间的字符,结果为字符串格式注意:有些编号没有第三个“-”,要判断。示例数据:A001-Y1-655-1-AA006-01-085A384-M1-221-1-
原创
发布博客 2022.01.01 ·
258 阅读 ·
0 点赞 ·
0 评论

PowerPoint VBA中如何实现ThisPresentation

众所周知,在Excel VBA中有ThisWorkbook,在Word VBA中有ThisDocument,但是不知道为啥PowerPoint VBA并不提供ThisPresentation,对于加载宏工具来说,经常需要引用工具所在的Presentation对象,既然微软官方没有提供这个对象,那么咱们自己动手丰衣足食。
原创
发布博客 2022.01.01 ·
216 阅读 ·
0 点赞 ·
0 评论

定位指定字符在字符串中第N次出现的位置

VBA中的Instr函数可以查找指定字符首次出现的位置,但是有时需要查找的字符第N此出现的位置,VBA并没有提供可以支持这个功能的函数。实例:查找字符串A123-B1234-C12345-D12345中减号第3次出现的位置。方法1:Sub Demo1() msg = "A123-B1234-C12345-D12345" cnt = 0 nth_pos = 3 For i = 1 To Len(msg) If Mid(msg, i, 1) = "-
原创
发布博客 2022.01.01 ·
583 阅读 ·
0 点赞 ·
0 评论
加载更多