foreverfall的博客

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

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

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

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

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

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

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

以关闭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

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

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

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

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

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

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

转自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

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

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