最新文章列表

AboveAverage 对象 (Excel)

AboveAverage 对象 (Excel) Sub AboveAverageCF() ' Building data for Melanie Range("A1").Value = "Name" Range("B1").Value = "Number" Range("A2&q ...
VBA 
千絮泠泉 评论(0) 有973人浏览 2018-10-10 17:54

Excel VBA 基础语法

  Is 比较两个对象的引用变量|| 对象1 Is 对象2 || 当对象1和对象2引用相同的对象时返回True,否则返回False   Like 比较两个字符串是否匹配 ...
lyl_zsu 评论(0) 有1063人浏览 2018-07-24 12:16

VBA 禁止在某个sheet中使用键盘Delete键

1.按Alt+F11打开VBA编辑窗口 2.双击要禁止delete的sheet,例如sheet1 3.在右边的编辑区的最上面加入下面的函数声明 Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long 对该sheet追加change事件 Private Sub W ...
fengyilin 评论(0) 有2231人浏览 2016-11-29 09:34

VBA 在指定目录及其子目录中的excel文件中检索指定的文字列

效果图: 对应的代码入下: 对应的代码入下: Sub getColumn() Dim work1 As Workbook Dim path, keyWord As String Dim fileContent As String Dim unFoundCol As String ' 指定检索的目录 pat ...
vba 
fengyilin 评论(0) 有1564人浏览 2016-11-29 09:34

VBA 删除有颜色的行

Dim lecNum As Integer Dim lecturelastRow As Integer lecturelastRow = ActiveWorkbook.Sheets("sheeet1").UsedRange.Rows.Count For lecNum = 0 To lecturelastRow '将第二列是红 ...
vba 
fengyilin 评论(0) 有1453人浏览 2016-11-29 09:33

使用ADODB将Excel中Sheet页另存为UTF8编码CSV

Public Sub WriteCSV() Set wkb = ActiveSheet Dim fileName As String Dim MaxCols As Integer fileName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv") If fileNam ...
clshangsha 评论(0) 有1129人浏览 2016-10-18 11:38

将Excel里所有的Sheet页同时另存为单独的UTF8编码的CSV文件

结合前两篇高手代码,拼出以下代码: Public Sub WriteCSV() Dim sheet_name, bookPath, fileName As String Dim sheet_count,i As Integer sheet_count = Sheets.Count bookPath = ThisWorkbook.Path bookPath = bookPath ...
clshangsha 评论(0) 有1327人浏览 2016-10-18 11:37

将Excel里所有的Sheet页同时另存为单独的CSV文件

  Sub ExcelToCsvMain() '检查工作薄中有多少个工作表 Dim i, sheet_count, sheet_name As String sheet_count = Sheets.Count 'msgbox sheet_count For i = 1 To sheet_count sheet_name = Sheets(i). ...
clshangsha 评论(0) 有1805人浏览 2016-10-18 11:35

vba 抓取 统计用区划和城乡划分代码 到 电子表格

  需要 用 到 统计用区划和城乡划分代码  数据,可以 国家统计局的是一个个页面,需要把数据爬出来。   哎,想当年VBA 写了那么多东西,现在连定义数组,变量赋值都忘了怎么弄,无奈边写边查,总算整出来一个能用的代码。 ------------------------------------------------------------------------------------ ...
anole1982 评论(0) 有581人浏览 2016-08-26 21:42

转:eclipse在ubuntu16.04无法设置以及新建工程卡死解决方案

原文地址: http://blog.csdn.net/c1481118216/article/details/51495221   1. 打开终端(terminal)然后输入以下指令: export SWT_GTK3=0 2.然后进入eclipse的目录下 ,用gedit打开eclipse,ini文件,对其进行如下修改: cd /home/lt/eclipse/jee-mars/ec ...
bettersun 评论(0) 有840人浏览 2016-08-14 20:12

VBA_Have A Dream

想通过这个地方,把自己VBA的经验总结一番,分享给所有想学习VBA的人。
VBA 
bettersun 评论(0) 有441人浏览 2016-07-20 09:43

ado

 ADO是基于OLE DB的数据访问技术。它不直接与数据交互,而是把这个任务交给了OLE DB,这么做带来了相当好的可扩展性和适应性。它提供了编程语言和统 ...
tangleilei 评论(0) 有363人浏览 2016-07-01 08:29

vba regexp

[2011-09-09:http://www.cnblogs.com/dxy1982/archive/2011/09/09/2159246.html] [2010-08-08:http://www.excelpx.com/thread-137472-1-1.html]  数据验证经常出现的情况是,需要验证和处理大量的文本内容,有时候需要查找字符串,有时候要按条件替换,并且这些待处理的问题还是 ...
tangleilei 评论(0) 有465人浏览 2016-07-01 08:25

快速合并文件(2)

该文是针对快速合并文件(1)方法不足的补充,应用的是VBA程序来解决的。补充不是完善的,欢迎补充~ 合并多个xls、csv工作簿到同一个工作簿中,且保留原来各个工作表名称。以合并Excel文件为例。   1.将需要合并的Excel工作簿文件1、2、3放到一个文件夹中。   2.在该文件夹中新建一个Excel工作簿,取名为“合并结果.xls” 3.打开“合并结果.xls”,选择“开发 ...
小泰格 评论(0) 有1024人浏览 2016-02-26 13:12

快速合并文件(1)

在平常整理文件的时候,我们可能会遇到要把多个文件的内容合并到同一个文件中。如果只有几个文件,我们可以手动打开复制粘贴。但是如果有许多个文件的话,这种手动方式十分低效。下面就介绍如何快速的合并文件。       此方法可以合并xls、csv、txt等格式的文件。具体操作如下:      1.新建一个txt文件,如“合并.txt”         
小泰格 评论(0) 有1448人浏览 2016-02-26 13:04

VBA基础

ByVal or ByRef: 在VBA中,过程的传参方式有两种,按值或按引用。 如果按引用,即传递的是传入参数的地址,那么在过程中对参数的修改会反映到参数本身 如果按值,则会拷贝一份,那么在过程中对参数的修改不会反映到调用者 vba中默认是按地址传递。 Sub语法: [Private | Public] [Static] Sub name [(arglist)] [statements] [Ex ...
vba 
foreach4 评论(0) 有539人浏览 2015-12-29 00:03

最近博客热门TAG

Java(141744) C(73651) C++(68608) SQL(64571) C#(59609) XML(59133) .net(54785) 编程(39454) JSP(37542) 数据结构(36424) Eclipse(31254) PHP(29988) F#(26079) 算法(24867) 脚本(19840) J#(18922) JDBC(17888) ASP(17480) JDK(14881) JVM(14450)

博客人气排行榜

    博客电子书下载排行

      >>浏览更多下载

      相关资讯

      相关讨论

      Global site tag (gtag.js) - Google Analytics