随笔分类 - VBA

数字转中文
摘要:=IF(A2=0,"",IF(A2<0,"负","")& SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(A2)),"[DBNum2]")&" 元"&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(A2*100,2),"[DBNum2]0角0分"),"零分"," 整"),"零角","零"),"零元 阅读全文

posted @ 2013-10-30 14:20 与时俱进 阅读(1096) 评论(0) 推荐(0) 编辑

word2003编程
摘要:注意,下文的WAPP是我定义的word文档工程变量的//合并单元格table.Cell(2,2).Merge(table.Cell(2,3));//单元格分离objectRownum=2;objectColumnnum=2;table.Cell(2,2).Split(refRownum,refColumnnum);//单元格对齐方式WApp.Selection.Cells.VerticalAlignment=Microsoft.Office.Interop.Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter;//插入表行table.Ro 阅读全文

posted @ 2011-08-01 16:10 与时俱进 阅读(809) 评论(0) 推荐(0) 编辑

10种常用排序算法实现
摘要:在使用VBA进行写程序时,经常会做排序,下面将会给出一些常用的排序算法的实现,方便大家写程序参考,若代码中出现了错误,欢迎高手指正。主要算法有:1、(冒泡排序)Bubble sort2、(选择排序)Selection sort3、(插入排序)Insertion sort4、(快速排序)Quick sort5、(合并排序)Merge sort6、(堆排序)Heap sort7、(组合排序)Comb ... 阅读全文

posted @ 2010-09-18 22:23 与时俱进 阅读(1046) 评论(0) 推荐(0) 编辑

禁用菜单和工具栏
摘要:本文内容中的所有示例都使用False来禁用命令栏控件,若想启用该控件则将其改为True。禁用某命令栏下面的代码将禁用“工作表菜单栏”:Application.CommandBars(”Worksheet Menu Bar”).Enabled = False下面的代码将禁用“标准”工具栏:Application.CommandB... 阅读全文

posted @ 2010-09-17 17:11 与时俱进 阅读(3608) 评论(0) 推荐(0) 编辑

如何在 Excel 中自定义菜单和菜单栏
摘要:Microsoft 提供的编程示例只用于说明目的,不附带任何明示或默示的保证。这包括但不限于对适销性或特定用途适用性的默示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能,但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需求。回到顶端本文中的示例本文中的示例在 Excel 2000、Excel 2002 ... 阅读全文

posted @ 2010-09-17 17:09 与时俱进 阅读(5345) 评论(0) 推荐(0) 编辑

VBA读取word中的内容到Excel中
摘要:Public Sub Duqu() Dim myFile As String Dim docApp As Word.Application Dim docRange As Word.Range myFile = ThisWorkbook.Path & "\Word文档的名字" '指定Word文档 Set docApp = New Word.Application docApp.Docu... 阅读全文

posted @ 2010-09-17 16:59 与时俱进 阅读(10191) 评论(0) 推荐(0) 编辑

运用 Range 对象处理 Word 文档内容
摘要:在所有 Office 应用程序中,Microsoft Word 可能是应用最广泛的应用程序,它还经常在自定义 Office 解决方案中扮演重要的角色。开发人员用各种不同的方式使用 Word,有一些方式很简单,而另一些极其复杂。无论涉及何种自定义解决方案,用 Visual Basic for Applications (VBA) 处理 Word 文档的基本方法都是一样的。下边,我将概括地介绍如何使用... 阅读全文

posted @ 2010-04-28 17:46 与时俱进 阅读(1107) 评论(0) 推荐(0) 编辑

如何将flash插入到Excel文件中
摘要:看到网上流传的《【强者来】全球只有4个人通关的游戏!.xls》一个Excel文件,里面是一个flash小游戏,想弄明白flash是怎么嵌入到excel文档中呢!原来通过OLE对象将Flash文件插入到Excel文档中,步骤如下:第1步 打开Excel文件,工具栏的空白处点击鼠标右键,选【控件工具箱】,调出控件工具箱;第2步 点击控制工具箱最右边的“其他控制项”按钮,选择&#... 阅读全文

posted @ 2010-03-25 23:04 与时俱进 阅读(1010) 评论(0) 推荐(0) 编辑

VBA之Range对象在Excel单元格赋值示例
摘要:单元格赋值示例-------------------示例一Sub test1()Worksheets("Sheet1").Range("A5").Value = 22MsgBox "工作表Sheet1内单元格A5中的值为" _& Worksheets("Sheet1").Range("A5").ValueEnd Sub示例二Sub test2()Worksheets("Sheet1").R... 阅读全文

posted @ 2010-03-14 14:25 与时俱进 阅读(17575) 评论(0) 推荐(0) 编辑

Excel公式大全(非常难得)
摘要:1  FIND(find_text,within_text,start_num)  返回值为:所要查找的字符串的第一个位置  start_num<=0 or start_num<within_text长度 则返回#Value  eg:FIND("1",F10,0)=#Value  如果字符串未找到则返回#Value  FIND("0",F10,1)=#Value  查找区分大小写  e... 阅读全文

posted @ 2010-03-14 11:36 与时俱进 阅读(1054) 评论(0) 推荐(0) 编辑

Excel集成种种
摘要:最近有些项目在做集成,和Excel之类的。所遇到的问题如下:Win下如何操作如何处理Excel进程如何制作AddIn如何在Web中应用其他..//Win下的应用Excel.Application_excelApp =newExcel.Application();Excel._WorkbookreportWB =null;Excel._WorksheetreportWS =null;try{ rep... 阅读全文

posted @ 2010-03-12 20:32 与时俱进 阅读(393) 评论(1) 推荐(0) 编辑

Managed ObjectArx 定制autocad的界面(包括menu.toolbar等...)
摘要://Copyright2005-2006byAutodesk,Inc.////Permissiontouse,copy,modify,anddistributethissoftwarein//objectcodeformforanypurposeandwithoutfeeisherebygranted,//providedthattheabovecopyrightnoticeappearsinal... 阅读全文

posted @ 2009-12-29 14:24 与时俱进 阅读(1729) 评论(0) 推荐(0) 编辑

vba Project加密及解密
摘要:Function VBAPassword(FileName As String, Optional Protect As Boolean = False) If Dir(FileName) = "" Then Exit Function Else FileCopy FileName, FileName & ".bak" End If Dim GetData As String * ... 阅读全文

posted @ 2009-12-07 12:08 与时俱进 阅读(1415) 评论(0) 推荐(0) 编辑

OpenOffice.org宏学习笔记
摘要:从网上下载了一些关于OOs宏编程的电子书,先从Learn OpenOffice.org Spreadsheet Macro Programming(PACKT 出版,作者为Dr. Mark Alexander Bain)开始学习。 这里所有的内容都是基于Windows XP下的OpenOffice3.1版。没有安装中文版,所以菜单和对话框与中文版有些区别。 使用OOs Basic IDE 开始学... 阅读全文

posted @ 2009-11-05 21:20 与时俱进 阅读(7781) 评论(0) 推荐(0) 编辑

vba中读取utf-8格式的csv文件保证不乱码
摘要:EXCEL中的导入data的功能。(data-> import external data) Sub Macro1() ' ' Macro1 Macro ' test for sunhaifeng ' sunhf@cn.ibm.com ' If FileExists( "c:\BookforTestData.csv ") Then Kill "c:\BookforTes... 阅读全文

posted @ 2009-11-01 16:46 与时俱进 阅读(7190) 评论(1) 推荐(1) 编辑

Autocad VBA初级教程
摘要:转载自CAD世界论坛普天同庆老师的作品。深表感谢!! Autocad VBA初级教程(第一课:入门) 1.为什么要写这个教程 市面上ACAD VBA的书不多,它的帮助是英文版的,很多人看不懂。其实我转行已经好几年了,而且手艺也慢慢生疏了,写个教程对自己来说也是一次复习。 2.什么是Autocad VBA? VBA是Visual Basic for Applications的英文缩写,它是一... 阅读全文

posted @ 2009-10-29 11:06 与时俱进 阅读(13404) 评论(0) 推荐(0) 编辑

AutoCAD VBA 通过选择集 删除图层上所有对象和图层
摘要:AutoCAD VBA 通过选择集 删除图层上所有对象和图层 '删除图层上所有对象FunctionDelAllInLayer(ByValLNameAsString)'OnErrorResumeNextDimSSetAsAcadSelectionSetSetSSet=CreateSelectionSet("XXX")DimFt(0)AsInteger,Fd(0)Ft(0)=8:Fd(0)=LName... 阅读全文

posted @ 2009-10-29 11:05 与时俱进 阅读(3909) 评论(0) 推荐(0) 编辑

EXCEL VBA编程的一些小结
摘要:最近单位内部的项目里要用到些报表EXCEL的生成,虽说JAVA 的POI可以有这能力,但觉得还是可能比较麻烦,因此还是转用.net来搞,用visual studio 2003配合office 2003,用到了一些VBA,因此小结并归纳之,选了些资料归纳在这里,以备今后查考首先创建 Excel 对象,使用ComObj:Dim ExcelID as Excel.ApplicationSet Excel... 阅读全文

posted @ 2009-10-29 10:45 与时俱进 阅读(1155) 评论(0) 推荐(0) 编辑

Excel数据透视表使用方法精要12点
摘要:总结了一下:姑称《Excel数据透视表使用方法精要12点》1、Excel数据透视表能根据时间列和用户自定时间间隔对数据进行分组统计,如按年、季度、月、日、一周等,即你的数据源表中只需有一个日期字段就足够按照(任意)时间周期进行分组了;。If you look at the Source Data worksheet, you'll notice that there is no Quarter... 阅读全文

posted @ 2009-10-29 10:38 与时俱进 阅读(2726) 评论(0) 推荐(0) 编辑

Excel-VBA操作文件四大方法
摘要:Excel-VBA操作文件四大方法之一 在我们日常使用Excel的时候,不仅会用到当前Excel文件的数据,还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文 件或数据库文件等。经常有朋友会问如何在vba代码里操作这些数据文件?本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。本文主要介绍四种常用的方法: 1、利用Excel对象来处理文件; 2、利用VBA文... 阅读全文

posted @ 2009-10-29 10:37 与时俱进 阅读(101235) 评论(1) 推荐(0) 编辑

友情链接:同里老宅院民居客栈