![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Excel
Kazefuku
轴承+摩擦学+VBA
展开
-
“选项按钮”的妙用
首先可以通过联动数值的变化来改变后续各个公式的结果,比如精度控制,参数显示(和VLOOKUP,SUBTOTAL等一起使用),有很多意想不到的妙用。PS:如果不想让人随意拖动控件按钮,可以在“开发工具”里面设置为“设计模式”,这样控件就不能随意拖动了,再结合sheet的密码保护就完美了。插入一个选项按钮以后,右键“设置控件格式”,设定单元格链接,比如说本次设定B6单元格。点击选项按钮,B6单元格就会联动发生变化,默认是第一个按钮是1,后面的按钮依次排序。操作:点击“开发工具”,插入“选项按钮”的窗体控件。原创 2024-03-26 23:08:35 · 235 阅读 · 0 评论 -
每隔十分钟弹窗提醒(Ontime函数)
在公司里面,有许多本地文件是大家一起进行使用的,有的人使用完了以后忘了关闭文件会导致下一个想用的人无法进行编辑(只读模式),只能等别人关闭文件了才可以进行编辑,给工作造成非常大的麻烦(Onedrive虽然可以同时编辑,但是无法使用VBA,所以有些文件是无法使用Onedrive的)。3.弹窗函数2里面写出弹窗及按钮,如果点击ok则保存文件,关闭excel,如果点击cancel则继续调用sub函数1,则重新开始计时。1.在VBE界面左侧的树状图里面,点击thisworkbook,然后输入以下代码。原创 2023-02-01 09:48:52 · 481 阅读 · 0 评论 -
获取Book里所有sheet的名字,且带上超链接
当一个excel有很多sheet的时候,来回切换sheet会比较复杂,所以我希望excel的第一页有目录,可以随着sheet的增加,减少,改名而随时可以去更新,还希望有超链接可以直接跳到该sheet。最终效果如下图所示。原创 2024-03-25 22:27:59 · 230 阅读 · 0 评论 -
VBA时间延迟/定时执行(wait函数)
应用场景:1.在excel里面,如果如下图所示,点击VBA按钮后图形立刻生成,可能会觉得不太好。假如想看到动态的过程,可以通过使用时间延迟来实现。2.或者说我想每天某个固定时间执行代码也可以。时间延迟效果如下:代码如下所示,调用了wait函数。后面的这个时间是绝对时间,不是等待的时间(比如说5秒、3秒这种)。这里代码表示的就是1秒后执行。比如现在是2022年8月12日11点27分,如果wait函数后面的时间小于现在的时间,那么函数就会立刻执行。如果写appli..原创 2022-08-12 12:55:56 · 13853 阅读 · 6 评论 -
代码运行过程中禁用鼠键
当代码量特别大的时候,如果代码会因为鼠标或者键盘的操作导致代码运行出现bug,就可以在主代码运行之前加上。记住一定要在最后复原,不然会导致代码运行完了,鼠标键盘还是无法操作的情况,最后只能强行关闭excel程序。如果没有禁用鼠键,效果如下所示,可以看到鼠键是十字架,点哪儿,哪儿会记入i值。以下动态图可以看出,禁用鼠键后,鼠标的图标变成了沙漏,代表着无法操作。...原创 2022-08-12 09:25:43 · 313 阅读 · 0 评论 -
VBA解锁/上锁worksheet和workbook
应用背景:在一些excel里面,我们对数据进行了保护,worksheet和workbook都进行了上锁。但是在执行VBA的时候,需要对单元格进行写入,所以需要暂时解锁worksheet或者workbook。以下代码就实现了解锁和上锁的功能,一个是上锁,一个是解锁。可以在sub里面先调用unlock_password子过程,然后进行excel的写入操作,最后再调用lock_password子过程即可。以上...原创 2022-06-10 16:10:24 · 2053 阅读 · 2 评论 -
复制/剪切/指定文件到指定路径,删除指定文件
如果想把excel表格中的文件批量复制到另一个指定的路径,可以用fso来完成。1.复制————————fs.copyfile target path ,destination path2.剪切————————fs.movefile target path ,destination path3.删除————————fs.deletefile target pathSub Copy_File()Set fs = CreateObject("Scripting.FileSystemObject原创 2022-05-13 19:00:58 · 2451 阅读 · 0 评论 -
选取文件夹,获取全部次级文件并加上超链接
Sub File_Dir_HyperLink()Dim MY_path, str, File_pathDim ObJ Columns("A:A").Select Selection.ClearContentsWith Application.FileDialog(msoFileDialogFolderPicker) .Title = "ABCD" If .Show = True Then MY_path = .SelectedItems(1) .原创 2022-05-13 15:57:30 · 313 阅读 · 0 评论 -
选取文件夹,获取全部次级文件夹并加上超链接
应用场景:比如说我想知道D盘下所有文件夹的清单(假如有上百个),在excel中罗列出来,如果能批量加上超链接就更好了!应用场景:比如说我想知道D盘下所有文件的清单(假如有上百个),在excel中罗列出来,如果能批量加上超链接就更好了!和下面这个几乎一样,区别就是一个是获取文件夹,一个是获取文件。https://blog.csdn.net/m0_59951054/article/details/124752730https://blog.csdn.net/m0_59951054/art原创 2022-05-13 15:56:11 · 495 阅读 · 0 评论 -
自定义Msgbox密码登录
背景:虽然Excel自带密码功能,设置了密码以后,打开excel,是看不到excel的内容的。如果想让使用者打开excel,能看excel的内容 但是没法选择和更改,就可以用代码来完成如下的效果。将下列代码写入到Thisworkbook中,然后在和workbook_open联合起来,就可以实现打开excel,代码自动实行的效果。Private Sub Workbook_Open()Dops = InputBox("Please Input Your MotherID").原创 2022-03-31 18:49:21 · 400 阅读 · 0 评论 -
通过excel填写,批量记入网页
应用背景:假如现在需要在网页中进行计算,需要填写很多参数(很多参数其实几乎是固定的)每次填写地话,就会浪费时间。可以通过excel的表单,打开网页,批量记入,实现效率化。1.首先在一个sheet里面记入B列的数据,C列是网页元素的name/Id。查找方法可以参考以下链接,如果有很多项目需要记入。一个一个找name就比较麻烦了,可以通过批量提取来进行。可以自行百度。本次只做例子,只做了4个,name已经获取并记入C列。CSDNhttps://mp.csdn.net/mp_blog/cr原创 2022-03-31 18:28:34 · 2950 阅读 · 0 评论 -
VBA_选择Folder_读取特定文件
Sub Life_read() Dim FileType, Prompt, Item As String Dim LifeFile_Path As Variant Dim life_csv Dim a$ LifeFile_Path = SelectFileNamePath(FileType, Prompt) 'システム関数を使って定義関数 a = Left(Trim(LifeFile_Path), InStrRev(Trim(LifeFile_Pa.原创 2022-03-31 17:15:06 · 2198 阅读 · 0 评论 -
VBA-复制代码后注释/路径乱码的情况
VBA复制乱码原创 2022-03-30 14:27:13 · 1540 阅读 · 0 评论 -
VBA—压缩文件夹成一个rar压缩包
应用背景:如果在一项工作中需要自动生成很多文件,然后再压缩 ,然后再进行上传等操作。每次都手动压缩会很麻烦,所以可以加一点代码进行自动压缩rar文件。说明:1.思路就是调用cmd来做.(winrar程序路径 a 目标 源文件)其中a就是压缩的意思。2.整体比较简单,就是如果你的winrar不是安装在本次代码的路径C:\program files\winrar\winrar下的话,自己替换成适合你的即可。问题?本次项目只能上传ZIP文件,无法使用rar文件,那么该怎么办呢?...原创 2022-03-30 13:57:11 · 1495 阅读 · 2 评论 -
VBA获取代码使用者IP+姓名+电脑编号+使用时间
应用背景:比如说你开发了一个excel工具,想统计一下应用实绩。(在一段时间内,谁在什么时候使用了该工具。)最后可以统计一年中,该工具一共被使用多少次。1.先在D盘新建一个excel(user_log.xlsx)。(名字及存储位置自定义)2.然后使用下面的代码。Option ExplicitSub User_Log_Record()Dim ip_1$, j, strcomputer, objwmi, coliP, IP, computer_name, iWorkbooks.Ope原创 2022-03-28 13:28:28 · 2060 阅读 · 2 评论 -
VBA_自定义对数函数
在excel里面是自带对数函数=LOG(数値, [底])自然对数=LN(数 値)这些都是OK的,但是假如我现在需要自定义一个函数可以在模块里面自定义函数。由于VBA中没有对数函数,所以直接输入log(x,2)会报错,这个时候只需要在对数前面输入application.→就是调用excel自带的函数,即可实现自定义函数中适用对数的功能。Public Function zidingyi(x)exx = x * x * x + Application.Log(x,原创 2022-03-28 12:54:23 · 2366 阅读 · 0 评论 -
Excel的VBA进行百度搜索
之前写了Excel来打开网页的操作。如果想打开网页后进行操作,该怎么实现呢?以下是代码。注意点1.VBE项目里还是得打开Microsoft HTML Object LibraryMicrosoft Internet ControlsSub MySub() Dim keyword As String keyword = InputBox("please input the keyword") Dim objIE As InternetExpl.原创 2022-03-28 12:24:41 · 2543 阅读 · 4 评论 -
VBA—Doevents说明
DOevents的含义是转让控制权,以便让操作系统处理其它事件。更通俗的理解是刷新。以下用一个例子来说明。1.先写一个窗体,然后再控制按钮里面写下如下代码Private Sub CommandButton1_Click()Dim i!i = 1Doi = i + 1TextBox1.Value = Str(i)'DoEventsLoop Until i > 10000End Sub这样运行的结果就是得到10001(大概是一瞬间,看不到中间变量)。注意.原创 2022-03-28 11:04:39 · 6684 阅读 · 0 评论 -
Excel VBA打开IE浏览器的网页
目的:使用 Excel VBA 进行网页抓取(web scraping)1. 运行IE的前设置(setting)2.输入代码进行IE调取(Navigate)3.操作IE打开WEB页面 1. 运行IE的前设置(setting) 打开VBE窗口,工具→参照设定。 勾选以下两个选项 Microsoft HTML Object LibraryMicrosoft Internet Controls2.输入代码进行IE调取(Navigate)新建一个模...原创 2022-03-28 09:51:37 · 4246 阅读 · 0 评论 -
Excel插入音乐—VBA
下载一段音乐放在一个文件夹内。复制音乐路径+文件名。wav测试OK(74M大小居然都可以!),但是Mp3格式貌似无法播放,原因不明~如要进行循环播放,可将&H1改为&H0 or &H8。Sub music_player()PlaySound "C:\Users\hs\Desktop\EXCEL使用\我们的失败.wav", 0&, &H1End Sub下载一段音乐放在一个文件夹内。复制音乐路径+文件名。wav测试OK(74M大小居然原创 2022-03-27 20:36:03 · 626 阅读 · 0 评论