ThisWorkbook 返回一个 Workbook 对象，该对象代表当前宏代码运行的工作簿 Screenupdating Application的一个属性，是Boolean 数据类型，意思是屏幕窗口刷新是否打开,Application.Screenupdating=False，意思是屏幕窗口刷新关闭，可以加快程序运行，加在程序开头；Application.Screenupdating=True，意思是屏幕窗口刷新打开，加在程序结尾。以上两句应在程序调试好之后再添加。 VBA程序一般需要在开头结尾加上Screenupdating控制语句,以加快程序运行 Calculation Applica.
转载
2010-04-09 10:13:00
378阅读
2评论
Sub 宏1() ' ' 宏1 宏 ' ' Range("E3:E33").Select Selection.Copy tyear = 2010 tmonth = 1 For startIndex = 3 To 2701 Step 31 '2436 Range("E" & startIndex).Se...
转载
2018-03-22 03:26:00
345阅读
2评论
1、散点图的制作必须只选择xy轴对应的数据，不能选中标签。2、调整xy轴交叉点，改为四个象限。3、通过菜单移动散点图到新表。4、运行宏，打上文本标签。VBA如下 1 Sub AttachLabelsToPoints() 2 3 'Dimension variables. 4 Dim C...
转载
2014-05-09 07:45:00
1008阅读
2评论
初次编写程序并不一定能成功的运行，可能其中还存在逻辑上或语法上的错误，此时就需要逐步调试，排查错误，一般情况下，编写程序的工作讲究的是三分编程，七分调试。 【代码区域】 【查看变量值】 调试语句有时候需要逐语句执行程序，查看程序内部各个变量的变化情况，在Visual Basic编程环境中可以逐条的执
转载
2016-12-20 16:33:00
494阅读
2评论
一、更改标题名称 点击右上角的黑色方块 计时器触发：每次要执行的代码 计时器间隔：每次执行代码的间隔 '计时器触发代码 Private Sub Form_Timer() Caption = "当前时间：" & Time() 'caption表示标题 End Sub 二、模块 模块分为类模块和标准模块
原创
2021-12-29 15:08:57
2315阅读
1.PlanWS5.Range("D5:E13").Copy 复制PlanWS5.Range("G5:H13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 选择性黏贴Application.CutCopyMode = False清空剪贴板在复制或者剪切
转载
2016-11-18 14:41:00
315阅读
2评论
选择-插入- 模块然后加入如下代码： 保存Function hcf(m, n)If m t = m: m = n: n = tEnd Ifr
本VBA数组入门系列为兰色幻想原创，教大家学习和使用VBA数组
一、什么是VBA数组
不要把VBA数组想的太神秘，它其实就是一组数字而已。把一组数按行、列排在一起，放在内存中。就是一个VBA数组。
二、数组的维数：
数组的维
转载
精选
2012-04-24 09:58:44
10000+阅读
公司有一些spec是用excel写的，每个产品系列需要设置不同的初始值，所以我制作了一个小程序来解读excel，用以自动生成C代码。因为没有学过VBA， 一直都是有了需求，就去网络找语句，这样也拼拼凑凑完成了这个小程序。做完之后，感觉自己没有多少提高。所以现在开始，把我学到的VBA技能都记录入这个博客。
原创
2014-05-20 10:44:29
943阅读
>>.用vba连接ACESS：
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("sample.mdb"
转载
2016-11-11 23:21:51
1777阅读
1.Application.Workbooks("Book1").Worksheets("sheet1").Range("A2")。当前代表的excel程序.工作簿.工作表.单元格.2.Cells(2,3)代表 2行3列分类 VBA
转载
2021-03-13 20:33:27
1281阅读
2评论
学习了一晚上的VBA入门视频，知道了如何打开Excel的vba代码编辑工具，office 2010需要在文件–>选项当中自定义功能区–>勾选开发工具。这样才能使用，
原创
2021-07-28 09:49:46
1097阅读
Sub abc()Dim iDim coloumncoloumn = 2For i = 1 To 8Dim currentValuecurrentValue = Val(ReplaceChar(Sheet2.Cells(i, coloumn)))If Application.WorksheetFun...
原创
2021-08-11 10:42:33
248阅读
有人问我Unviewable+ VBA保护的vba代码能不能破解，所以我去作者网站看了一下(网址)。这个工具对VBA代码的保护看起来是比较完善的，但是还是有致命的问题，可以轻易导出代码。 导出的VBA Tools-Demo-Ultimate locked.xlam文件中的部分代码download vba code
转载
2021-03-25 22:30:03
595阅读
2评论
1、案例说明： （1），需要处理的内容格式如下：序号总支出明细1餐饮:65.00,加油:1000.00,餐饮:90.00,加油:1000.00,ETC:800.002加油:1000.00,ETC:95.00,ETC:92.00,餐饮:40.00,ETC:28.50,餐饮:20.00,ETC:69.30,餐饮:40.00,停车费:15.00,ETC:102.55,餐饮:20.00,ETC:
在EXCEL的VBA中提供了一个ExecuteExcel4Macro函数，可以用于运行Excel工作表中的指定宏。关于ExecuteExcel4Macro函数的用法具体详见MSDN上的描述。
点击上方"数据大宇宙"，设为星标，干货资料，第一时间送到！系列文章前言有小伙伴向我反映到，本系列前面的章节主要还是在讲 pandas ，几乎与 xlwings 没有啥关系。本系列一直强调要善用各种工具，作为本系列的最后一节，那么这次就用一例子说明如何让Python结合Vba，直接在Excel中动态获取各种处理条件，输出结果。日后也会不定期分享 pandas 的处理案例，但不一定非要与 Excel
The code below can be used to delete the module which houses the code. In other words, it deletes itself after running once.You will have to go to Tools>Macro>Security - Trusted Publishers and check Trust access to Visual Basic Editor before running the code. Change "Module1" to suit
原创
2022-01-06 14:07:11
302阅读
