foreverfall-优快云博客

转载 RibbonX：EXCEL2013自定义功能区

转自http://club.excelhome.net/thread-1047254-1-1.html参考各位前辈做的自定义office2007和office2010功能区的帖子，经过不断摸索，现做出EXCEL2013版本的自定义功能区再次特别感谢佛山小老鼠老师，灵感全来于此！！！！！下面进入正题：第一步：创建EXCEL启用宏的工作簿自定义.xlsm

2015-08-13 16:47:48 4060 1

原创 VBA学习笔记

1、代码运行结束后退出excel程序Application.DisplayAlerts = FalseApplication.Quit注意：如果在上面代码之前加入一句ThisWorkbook.Close False，则excel程序不会退出。

2015-08-12 14:28:23 679

转载 Visual Studio Ultimate 2013 with Update 4 下载地址

Visual Studio Ultimate 2013 with Update 4 是一个先进的开发解决方案，各种规模的团队通过它均可设计和创建引人注目的应用程序，使用户兴致勃勃。• 在线安装包，1.3MB：http://download.microsoft.com/download/D/4/8/D48D1AC2-A297-4C9E-A9D0-A218E6609F0

2015-07-16 08:51:04 5218

转载 EXCEL判断字符串中是否包含某个特定子串的公式

判断字符串中是否包含某个特定子串的公式总结。学习的过程是一个不断积累和总结的过程，正是EXCEL HOME给了偶这样好的平台。例： A列中输入字符串： "提前祝大家元旦快乐！", B列中输入公式判断是否包含子串 "大家", 包含返回"大家快乐!", 不包含返回"各位快乐!".1. COUNTIF=IF(COUNTIF(A1,"*大家*"),"大家快乐!", "各位快乐!")2

2015-07-07 11:33:11 11090

转载 GetObject 函数的使用

GetObject 函数ActiveX 对象的引用返回文件中的 ActiveX 对象的引用。语法GetObject([pathname] [, class])GetObject 函数的语法包含下面几个命名参数：部分描述 pathname 可选的；Variant (String)。包含待检索对象的文件的全路径和名称。如果省略 pathname，则 class 是必需的。

2015-06-30 10:59:38 34041

转载 EXCEL VBA 文件夹操作——批量添加指定文件夹的图片

这个小程序的前提是指定的文件夹里装的全部是图片格式的文件步骤1：添加一个filesystemobject引用，工具--->引用---->microsoft scripting runtime步骤2：添加模块，并添加以下代码Option Explicit'设置单元格大小，单元格大小设置因人而异，设置数量要大于或者等于文件夹图片数量，这里范围为range（

2015-06-12 11:47:48 3813

转载 Excel vba从excel中导出表格数据和图表到新word文档

office应用程序是可以相互访问的，比如可以把excel的数据导出到word中step1：首先要引用word工程对象，在excelvba中依次点击工具——》引用——》microsoft word 11.0 library如果是2007版本，应该选择12.0；2010版本，选择14.0vba从excel中导出表格数据和图表到新word文档" title="exce

2015-06-12 11:41:02 7115

转载 DATEDIF函数

1、简要说明：返回两个日期之间的年\月\日间隔数2、基本语法： =DATEDIF(开始日期，结束日期，单位代码）3、实例1：题目：计算出生日期为1973-4-1人的年龄公式： =DATEDIF("1973-4-1",TODAY(),"Y")结果： 33简要说明当单位代码为"Y"时,计算结果是两个日期间隔的年数.4、实例2：题目：计算日

2015-06-09 16:45:00 5977

转载 EXCEL中定义名称

名称的定义是EXCEL的一基础的技能，可是，如果你掌握了，它将给你带来非常实惠的妙处！一、定义名称的妙处1. 如何定义名称插入 – 名称 – 定义（或者按组合键），在“定义名称”对话框中，在“在当前工作簿中的名称”文本框中输入名称字符，单击“确定”按钮2. 定义名称建议使用简单易记的名称，不可使用类似A1…

2015-06-09 16:34:46 2123

转载访问WORD表格行或列时产生的错误"无法访问此集合中单独的行，因为表格有纵向合并的单元格。"

访问表格行或列时产生错误："无法访问此集合中单独的行，因为表格有纵向合并的单元格。" 如果要访问绘制表格中单独的行或列，而该表格又不统一，则会产生一个运行时错误。例如，如果活动文档中第一张表格的每列中具有不同数量的行，则使用下列指令将导致出错。Sub RemoveTableBorders() ActiveDocument.Tables(1).Rows(1).Borders

2015-06-03 08:07:20 12829 1

转载调用 API 函数-ShellExecute实例

一、API函数ShellExecute用法1. 函数功能：运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。2、ShellExecute函数原型及参数含义如下： ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如:open

2015-06-01 14:41:38 9868

转载 EXCEL从ACCESS中取值

ACCESS数据库界面：EXCEL的窗体界面：窗体中的代码：Private Sub ComboBox1_Change() Dim cn As Object, sql$, arr, i& Set cn = CreateObject("adodb.connection") cn.Open "provider=Microsoft.jet.OLE

2015-05-27 14:06:45 664

转载列出指定文件夹中的子文件夹和文件

VBA列出文件夹中所有的子文件夹Sub ShowFolderList() Dim fso As Object, oFolder As Object Dim oFolderArray As Object, f As Object Dim k& Set fso = CreateObject("scripting.filesystemobject")

2015-05-27 14:05:09 842

转载提取Excel、Word、PPT文件中的Flash文件的两种方法

方法一：VBA代码法新建一个文件，然后拷贝以下代码到VBA模块中，运行代码，选择含有Flash的Excel文件确定，即可获取swf文件Sub ExtractFlash() Dim tmpFileName As String Dim FileNumber As Integer Dim myFileId As Long Dim MyFileLen As Long

2015-05-27 14:01:00 937

转载【自定义函数】数据文本字符反转

如何将单元格中的数据反转，如“优快云”变成“NDSC”？由于工作表函数没有直接的能连接内存数组的函数，所以通常的解法是用辅助单元格或自定义函数。我们这里主要说自定义函数，一般人的做法是用MID函数循环逐个取出并连接，最后取得一个反转的数据，但其实EXCEL的VBA里已经存在着一个反转数据的函数：StrReverse，所以自定义一个函数只需要1行代码： Function reve

2015-05-27 11:45:03 756

转载使用VBA操作Word表格

一、生成表格Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As Range Set mRange = ActiveDocument.Range mRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Ra

2015-05-27 11:12:53 17320 2

转载银行账号和身份证号的数据有效性设置

身份证，15位或18位，只能是数字，不能有空格和其他字符，除18位最后一位外，不能有英文字母=((LEN(A2)=15)+(LEN(A2)=18))*(ISNUMBER(VALUE(A2))+(ISNUMBER(VALUE(--LEFT(A2,17)))*(RIGHT(A2,1)="X"))) 银行账号，务必是901开头，011结尾，20位=(LEFT(B2,3)="901")*(

2015-05-27 08:22:21 914

转载 ADO的SQL语句中的“*”和“?”

由于VBA中代表单个和多个字符是用“?”和“*”代表的，所以许多刚学ADO的朋友经常会问：为什么在SQL语句中这两个符号不能用呢？应该用什么符号来代表呢？这是因为VBA+ADO所用的驱动的关系，本人对这个也不是太精，具体大家可以去微软的网站上找找答案，所以VBA+ADO的SQL语句中的“*”和“?”这两个符号是用“%”和“_”，即百分号和下划线，明白了吧，赶快去试试吧。再说

2015-05-26 17:48:26 715

转载创建指定程序的桌面快捷方式--以记事本为例

Sub CreatShortCut() Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") Dim MyShortcut, MyDesktop, DesktopPath DesktopPath = WSHShell.SpecialFolders("Desktop") Set MyShortcut

2015-05-26 17:01:12 2089

转载【自定义函数】判断指定文件夹下是否包含子文件夹

Function CheckFolder(sPath As String) As Boolean '参数为指定文件夹的路径，返回值为 Boolean 型 If Right(sPath, 1) <> "/" Then sPath = sPath & "/" '判断路径右端是否包含"/",如果不包含则添加 Dim sDir As String sDir

2015-05-26 16:59:41 1575

转载如何取相同项的最后一次值

示例说明：A列是料号列，只需要取重复项的最后一行数据，例如B料号是取黄色行数据。该实例可用于公司BOM表中取最近日期数据源数据结果VBA代码：Sub test()Dim cn As Object, sql$Set cn = CreateObject("ADODB.Connection")Sheet2.[a1:d65536].ClearConten

2015-05-26 16:52:53 2774

转载不打开另一个工作簿取它里面的工作表名（使用数据库引擎）

转自http://blog.youkuaiyun.com/laoyebin/article/details/5332990Sub test() Dim cn As Object, cat As Object, tbl As Object, str$ Set cn = CreateObject("ADODB.Connection") Set cat = CreateObject("A

2015-05-26 16:48:29 920 1

转载设置EXCEL的默认打印机

系统设置了一个默认打印机，但在EXCEL有些人喜欢用其它的打印机做默认项，这个可以通过EXCEL的workbook的事件来实现 Private Sub Workbook_BeforePrint(Cancel As Boolean) Application.ActivePrinter = "pdfFactory Pro 在 FPP3:" End Su

2015-05-26 16:44:18 4343

转载 EXCEL表的自杀代码

Sub Kill_ThisWorkbook()With ThisWorkbook .Saved = True '保存工作簿 .ChangeFileAccess xlReadOnly '将工作簿文件属性设为“只读” Kill .FullName '删除该文件 .Close False '关闭工

2015-05-26 16:32:51 2514

转载 EXCEL里常用的几个正则表达式

"^/d+$"　　//非负整数（正整数 + 0）"^[0-9]*[1-9][0-9]*$"　　//正整数"^((-/d+)|(0+))$"　　//非正整数（负整数 + 0）"^-[0-9]*[1-9][0-9]*$"　　//负整数"^-?/d+$"　　　　//整数"^/d+(/./d+)?$"　　//非负浮点数（正浮点数 + 0）

2015-05-26 16:24:14 3978

转载用VBA来关闭其他程序

以关闭Winrar.exe为例，代码如下：Sub closeWinrar() Dim oWMT As Object, oProcess As Object Set oWMT = GetObject("winmgmts://") For Each oProcess In oWMT.InstancesOf("Win32_Process") If LCas

2015-05-26 16:08:20 2450

转载用VBA导出Excel里的图表为JPG文件

Sub ExportChart() Dim myChart As Chart Dim myFileName As String Set myChart = Sheet1.ChartObjects(1).Chart myFileName = "myChart.jpg" On Error Resume Next Kill ThisWorkbook.Pat

2015-05-26 16:01:06 2453

转载把WORD中的文本框批量转换为图文框

Sub test()Dim obj As ShapeFor Each obj In ActiveDocument.Shapes If obj.Name Like "Text Box*" Or obj.Name Like "文本框*" Then obj.ConvertToFrame End IfNextEnd Sub

2015-05-26 15:40:53 1323

转载处理Selection对象和Range对象——Word VBA中重要的两个对象

Selection 对象代表窗口或窗格中的当前所选内容。所选内容代表文档中选定（或突出显示）的区域，如果文档中没有选定任何内容，则代表插入点。每个文档窗格只能有一个 Selection 对象，并且在整个应用程序中只能有一个活动的 Selection 对象。说明可以使用 Selection 属性返回 Selection 对象。如果 Selection 属性未使用对象限定符，则 Microsof

2015-05-19 16:37:25 17134

转自http://www.officexy.com/articles/word/word_vba20061027194952795.htm在所有 Office 应用程序中，Microsoft Word 可能是应用最广泛的应用程序，它还经常在自定义 Office 解决方案中扮演重要的角色。开发人员用各种不同的方式使用 Word，有一些方式很简单，而另一些极其复杂。无论涉及何种自定义解决方案，用 Vi

2015-05-19 15:02:36 4372

转载欢迎使用优快云-markdown编辑器

欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来，用它写博客，将会带来全新的体验哦：Markdown和扩展Markdown简洁的语法代码块高亮图片链接和图片上传LaTex数学公式UML序列图和流程图离线写博客导入导出Markdown文件丰富的快捷键快捷键加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl

2015-05-19 14:54:02 370

转载 WORD VBA 操作WORD 文本框

'实例1：批量删除WORD文本框中的内容 Sub test1() Dim sha As Shape For Each sha In ActiveDocument.Shapes sha.TextFrame.TextRange.Delete Next end sub'实例2：批量删除WORD文本框而保留文字

2015-05-17 18:37:14 11091

转载利用Excel查找替换Word文本框里的内容

利用Excel查找替换Word文本框里的内容

2015-05-17 17:27:42 5910 1

foreverfall的博客