'
'Date: 2012/04/10
'Author: xi wei cheng
'
'Option Explicit
'
' Comment: Copy activeCell's value to the clipboard.
' ShortCutKeys: Ctrl+C
'
Sub CopyCellValue2Clipboard()
 
原创
2012-04-24 09:39:43
1576阅读
Function UDecode(ByVal UCode As String) As String Dim oHtml As Object Set oHtml = CreateObject("htmlfile") With oHtml Set oWindow = .parentWindow With oWindow .execSc
转载
2022-07-31 11:08:08
558阅读
vba 读写文件，utf-8编码格式
2010-07-28 22:33 780人阅读 评论(0) 收藏 举报
这是一个转换UTF-8格式文本文件的示例，包括读取和写入，需要用到两个API函数：MultiByteToWideChar和WideCharToMultiByte
。
Public Declare Function MultiByteToWideCha
转载
精选
2011-11-07 17:08:17
10000+阅读
VBA 类模块学习1 问题背景2 创建自己的对象3 属性过程4 创建集合4.1 `Collection` 对象创建集合4.2 在类模块中创建集合5 封装 本文中，大部分内容源于书籍《Excel 2007 VBA 参考大全》，ISBN：9787115311696。感谢原书第一作者及译者。 工作表模块、图表工作表模块、工作簿模块和用户窗体模块都是类模块。不过，这些模块都是特定类型的类
转载
2024-02-16 20:18:09
155阅读
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
643阅读
2评论
大家好，我是东哥。经常给大家推荐好用的数据分析工具，也收到了铁子们的各种好评。这次也不例外，我要再推荐一个，而且是个爆款神器。Excel和Jupyter Notebok都是我每天必用的工具，而且两个工具经常协同工作，一直以来工作效率也还算不错。但说实在，毕竟是两个工具，使用的时候肯定会有一些切换的成本。最近，在逛GitHub突然发现了一款神器「PyXLL-Jupyter」，它可以完美将Jupyte
转载
2024-08-09 17:46:52
187阅读
range().resize(x,y) 方法语法Range(i,j).resize(行数,列数) resize(x,y) 表示的区域，x是行，往下。Y是列，往右。重新定位出来的区域 resize() 得出的是一个区域范围！！！因为X 是表示行数，必须大于0因为Y是表示列数，必须大于0resize(x,y)可以为负数吗？比如 resize(-1
转载
2024-06-09 08:57:37
788阅读
VB控件和对象：ScriptControl 控件3. ScriptControl 控件 Microsoft Script Control 控件可以创建运行任何 ActiveX(R) scripting 引擎，例如 Microsoft(R) Visual Basic (R) Scripting Edition 或Microsoft(R) JScript(TM) 的
转载
2023-08-21 17:25:01
782阅读
Sub CreateAfile Dim fso,MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile
转载
2012-02-13 14:04:00
869阅读
2评论
1. 在工具栏中将"开发工具"菜单调出来，点击VBA script或者快捷键ALT+F11, 打开编程窗口 1. 下拉列表：选中要处理的单元格 数据 数据验证(数据有效性) 序列 输入示例:1,2,3 1. function和sub最大区别在两点 1.function可以返回值，sub则不可以返回值
转载
2017-05-24 08:47:00
923阅读
2评论
ThisWorkbook 返回一个 Workbook 对象，该对象代表当前宏代码运行的工作簿 Screenupdating Application的一个属性，是Boolean 数据类型，意思是屏幕窗口刷新是否打开,Application.Screenupdating=False，意思是屏幕窗口刷新关闭，可以加快程序运行，加在程序开头；Application.Screenupdating=True，意思是屏幕窗口刷新打开，加在程序结尾。以上两句应在程序调试好之后再添加。 VBA程序一般需要在开头结尾加上Screenupdating控制语句,以加快程序运行 Calculation Applica.
转载
2010-04-09 10:13:00
732阅读
2评论
VBA术语这些术语将在很多的模块中使用，因此理解其中的每一个术语都很重要。模块模块是编写代码的区域。如下图中，这是一个新的工作簿，因此没有任何模块。要插入模块，请导航到插入 -> 模块。当插入模块之后，就会有一个名称为“模块1”的模块被创建了。插入模块完成之后，就可以在模块中编写VBA代码，代码写在一个过程(Sub)中。 一个过程/子过程是一系列的VBA语句，指示要做什么工作。程序/过程程序
转载
2024-04-18 14:21:55
401阅读
在编写代码时，常需要依据指定内容在指定区域查找符合条件的单元格，这时就需要用查找的方法。在工作表中，可以执行【编辑】／【查找】命令查找指定的单元格，同样也可以利用在公式中使用Match 等函数对单元格进行查找。工具/原料 Excel 2013一、Find查找 1单元格范围.Fing. （查找内容，查找开始位置，搜‘索范围，单元格区配γ 搜索方式，搜索类别，区分大小写，区分全／半
转载
2024-03-04 17:04:38
666阅读
在做人事系统过程中，发现网上关于Javascript与VBA交互的知识比较匮乏，为此我把自己对这方面的研究和大家分享下，希望能填补大家对这片知识的空白。 先向大家介绍一些简单应用，比如JS创建Word文档、在Word中打印文字、添加表格，填充表格、合并表格var wdapp = new ActiveXObject("Word.Application"); //引用word
wdapp.visibl
转载
2023-06-09 19:48:10
370阅读
一 数组 array1.1 什么是数组？具体的例子以这个语句为例子arr1=array(1, 2, 3)左边：变量名=数组名 右边：数组，集合，多个元素集合，多个数据集合，右边的单个内容，1,2,3 是数组的元素/下标变量每个元素存储时，会标记1个（看不见的 ）index 索引 下标 1.2 什么是数组，抽象的定义：数组也是变量，是一种可存储多个数据的特殊变量VBA或其他语言里
转载
2024-04-16 22:31:11
427阅读
变量和常量命名规则必须以字母开头不能包含空格、句点(.)、感叹号(!)或字符@，&，$，#长度不能超过 255 个字符不能使用 Visual Basic 保留关键字变量变量语法变量在使用前必须声明即定义变量。Dim variable_name As variable_type数据类型在程序编写中,定义一个变量的数据类型,首先是表示它的存储形式。
其次是通知编译程序使用变量的数据
转载
2024-04-21 12:55:19
212阅读
目录使用 Do...Loop 语句直到条件为 True 时重复语句直到条件变成 True 才重复语句从循环内退出 Do...Loop 语句使用 For...Next 语句使用 For Each...Next 语句对某范围的单元格做循环在完成前退出 For Each...Next 循环使用 Do...Loop 语句可以使用 Do...Loop 语句去运行语句的块，而它所用掉的时间是不确定的。当条件为
转载
2024-06-03 22:50:16
624阅读
数组和字典也是VBA的常用到数据类型之一。但是我翻了有四五本VBA教程相关的书，里面都没有介绍到字典，数组到是在介绍数据类型时有介绍，而并没有提到字典。事实上，字典不是VBA内置的类型，它是Windows脚本语言的。但其实字典在VBA中也是非常重要的，它非常适用于需要进行非重复性数据的操作。我多次需要使用到字典，但很少用到数组。1. 数组如果有学过其它编程语言，应该对数组不陌生。其实数组就是多个变
转载
2024-02-20 12:53:06
104阅读
备忘用： 1、VBA取行列数: 例如要取第二行使用了多少列：Cells(2, Columns.Count).End(xlToLeft).Column：解释：主要是End方法，VBA中如下阐述：返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。Range 对象，只读。意思就是说取到选择
转载
2023-06-30 20:07:12
886阅读
'1、工作簿（Workbooks） ' Workbooks（N）第N个工作簿 ' Workbooks ("工作簿名") ' ActiveWorkbook 活动工作簿 ' ThisWorkBook '代码所在工作簿 '2、工作表（Worksheets） 'Sheets(N) 第N个工作表 'Sheets("工作表名") 'Sh
转载
2024-03-21 23:04:14
312阅读
