- 博客(13)
- 资源 (10)
- 收藏
- 关注
RSS订阅原创 VBA程序--合并所有工作表_在所有行标注工作表名字_无视空行空列_考虑到不规范的多一点的行和列
因同事工作需要，故而开发此程序，同事需求：1、表格遇到的经常会有不规范的情况，需要获取所有的有数据的区域（当然，不含空白）2、将工作簿所有工作表汇总到第一个“合并表”，并且这个“合并表”需要放在第一个位置3、将工作表的名字写入在第一列，并且是要全部行显示Sub 合并所有工作表_在所有行标注工作表名字_无视空行空列_考虑到不规范的多一点的行和列() Dim row_num...
2020-04-28 13:36:50
724
原创 VBA小程序--函数调用_批量添加超链接最简单_找到商品的那一列_转换那一列的链接
工作需要转换商品链接、图片链接两列，因为有时候会更新商品链接、图片链接，且每个表格这两列所在位置也不一样（另外，因嵌套的公式，链接更新后，点击跳转网页的还是之前的链接，故而需要更新Hyperlinks）如下图：Sub 函数调用_批量添加超链接最简单_找到商品的那一列_转换那一列的链接() 批量添加超链接最简单_找到商品的那一列_转换那一列的链接 ("*商品链接*") ...
2020-04-27 14:25:46
414
原创 VBA小程序--新增工作表_遍历现有所有工作表_用于核实首列数据_无视隐藏工作表
Sub 新增工作表_遍历现有所有工作表_用于核实首列数据_无视隐藏工作表() Dim i As Integer '新增工作表，并移动到第一个位置，用于写入核实首列数据 Worksheets.Add.name = "核实首列" Worksheets("核实首列").Move before:=Sheets(1) For i = 2 To Worksheets....
2020-04-27 13:56:04
321
原创 VBA筛选后的操作，需要选择第一个可见单元格
如图所示，在网络抓取的数据，需要进行清洗，在清洗的过程中，需要用到筛选，筛选之后，我需要选中O10单元格，填充公式（但是因为文档每次都不一样，筛选内容的变化，下次可能就不在O10单元格了，所以需要用到宏代码）j = Rows("2:3000").SpecialCells(12).RowMsgBox (j)返回结果是10上面的2:3000根据个人需求修改（不能直接写rows()...
2020-04-24 16:43:08
9636
4
原创 老师常用选择题，选择框，单选框，以及各行业产品配置表单选配置明细等
在某些情况，我们需要做类似这种的单选框，但是单选框不知道如何分类（即点出来的所有单选框都是只能选一个，就算弄出来十个，也只能选一个，但是我们想要一组五个，想要五个中间选一个，这样就很尴尬了~）1、点击开发工具，点击设计模式（在设计完成后，记得关闭设计模式）2、点击旧式工具，选择选项按钮（Activex控件）3、此时，会在我们光标处显示一个OptionButton1单选框...
2020-04-20 17:33:07
261
原创 WIN10系统，IP地址不知道怎么看，以及不知道如何锁定自己的IP地址？看这里
一、W10（window10）系统的IP地址怎么看？1、按WIN + R键，调出运行窗口（WIN就是下面的这个按键..）2、窗口里面输入：cmd（不区分大小写）3、运行窗口里面输入：ipconfig（不区分大小写）下面的IPv4地址，就是我们的IP地址二、W10（window10）系统的IP地址怎么锁定？2、打开计算机窗口，点击网络，点击网络和共享中心...
2020-04-20 15:02:28
3244
原创 win10怎么在局域网下实现远程控制
先给两台电脑设置密码。然后设置允许远程控制。（如果么有密码则可能连接不成功）打开控制面板-远程设置-允许远程连接到此计算机。然后输入win+R组合件，输入mstsc。然后输入对方电脑的ip地址，输完ip弹出对话框，输入对方电脑的登录密码，然后连接。（IP地址不知道怎么看，以及不知道如何锁定自己的IP地址，可以查看此文：）输入被控制计算机的用户名和密码（就是...
2020-04-20 14:42:58
3540
原创 数据可视化：如何用股票指数一样的箭头标注指标的同比增减情况？（使用条件格式图标集，公式，自定义格式等实现不同的显示结果）
本文虽是原创，但是有部分知识是借鉴知乎大神：龙逸凡，部分文章所得，其中在https://zhuanlan.zhihu.com/p/21568999文中，获益匪浅，在此致敬，感谢，希望更多人可以一起学习，一起成长。1、第一种，使用条件格式图标集，先放图。步骤解释：如果将条件格式设置的值是$A$2，为绝对引用，B2:B12单元格都是与A2单元格进行比较，而不是与同一行的单元格...
2020-04-14 14:09:58
1890
原创 VBA遍历文件夹内所有文件，核实表头（工作中同事表头不一致，不方便使用powerBi合并文件批量处理...）
VBA遍历文件夹内所有文件，核实表头（工作中同事表头不一致，不方便使用powerBi合并文件批量处理...）中间用到逻辑以及知识点：1、选择文件框，获取文件路径2、字符串处理，将字符串按\切片成数组，相当于从右向左删除文件名，获得文件所在文件夹路径，且最后保留"\"（至于这里为什么不直接选择文件夹而是选择文件，当时脑抽了/./）3、忽略程序报错，核实是否存在某一个工作表sheet...
2020-04-08 21:55:09
1247
原创 VBA小程序--新增工作表_核实工作簿中所有工作表表头是否一致（2020-5-13更新升级，提升容错率）
Sub 新增工作表_核实工作簿中所有工作表表头是否一致() Dim sht As Worksheet, i As Integer i = 1 Sheets.Add.Name = "表头核实" For Each sht In ThisWorkbook.Worksheets sht.Rows(1).Copy Worksheets("表头核实").Row...
2020-04-01 18:25:57
588
原创 POP利润核算_所需部分VBA程式，清除表格内容，表格复制粘贴，筛选，删除筛选内容，去除重复项等操作（不涉及业务隐私）
Sub POP利润核算() Dim r_range As Long, c_range As Long Worksheets("快递费-VBA程序").Range("a1:az100000").Select Selection.Clear '获取所有行数和列数 r_range = Worksheets("POP订单明细").UsedRange.Rows.Co...
2020-04-01 17:30:38
755
转载 Excel VBA 操作键盘(如：移动方向键，上下左右等）
excel vba 移动方向键excel vba 怎么移动方向键 ，执行该语句之后，相当于我按了方向键，选定了隔壁的单元格授之以鱼：模拟左方向键：Application.Sendkeys "{LEFT}"右方向键：Application.Sendkeys "{RIGHT}"授之以渔：Application.SendKeys 方法将击键发送给活动应用程序。语法表达式.Sen...
2020-04-01 16:32:24
11903
文件改名字模板.xlsx
2020-11-09
跨列求和的计算方法.xlsx
2020-07-29
2020年个人所得税算法-起征点5000.xlsx
2020-06-01
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人