Sub 宏1() ' ' 宏1 宏 //用于调整列宽 加边框 ' ' 快捷键: Ctrl+w ' ActiveCell.Cells.Select ActiveCell.Cells.EntireColumn.AutoFit ActiveCell.Columns("A:A").EntireColumn.Select Selection.ColumnWidth = 3.4 ActiveCell.Offset(, ).Columns("A:A").EntireColumn.…

近日的一系列工作是做网站的营运维护,因此做了大量的支持工具.有Excel中写VBA的,也有直接C#做的工具.有时需要在C#中执行Excel VBA宏,甚至有时还需要在执行了VBA宏之后,获取返回值再进行相应的处理.为了使用方便,我写了一个执行Excel VBA宏的帮助类 .放在博客里做个备份也希望对有类似需求的朋友有所帮助.帮助类仅提供了一个方法:RunExcelMacro 参数说明:         string         excelFilePath  Excel文件路径        …

[转载自]http://www.shangxueba.com/jingyan/95031.html 附上一段原创常用代码 计算列标题字符串 Function CalcColumn(ByVal c As Integer) As String Dim temp As String Dim x As Integer Then x = (c - ) \ Then temp = )) End If x = c - (c \ ) * x = , , x) temp = temp + - )) End If…

原文地址:https://www.cnblogs.com/heekui/archive/2008/03/30/1129355.html 近日的一系列工作是做网站的营运维护,因此做了大量的支持工具.有Excel中写VBA的,也有直接C#做的工具.有时需要在C#中执行Excel VBA宏,甚至有时还需要在执行了VBA宏之后,获取返回值再进行相应的处理.为了使用方便,我写了一个执行Excel VBA宏的帮助类 .放在博客里做个备份也希望对有类似需求的朋友有所帮助. 帮助类仅提供了一个方法:RunExc…

用2003版的Excel使用“宏”打开NMON软件生产的.nmon文件 nmon analyser——生成 AIX 性能报告的免费工具,可从 NMON 的输出中生成大量的报告图形.nmon_analyser 工具以 NMON 性能工具生成的文件作为输入,然后将它们转换为 Microsoft Excel 电子表格,并自动地生成相应的图形. 在用nmon_analyser 工具中的“nmon analyser v334.xls”打开.nmon文件时,2003版的Excel跳出个对话框,提示“由于安全…

出于提高效率的原因,希望excel能够不需要人为干预的完成一些操作,学习excel宏的编写与调试: 第一列输入公式,第二类输出计算结果:(如果自动获取文件的行数,待补充) Sub Calc() a = [a1].Value [b1].Value = Evaluate(a) a = [a2].Value [b2].Value = Evaluate(a) a = [a3].Value [b3].Value = Evaluate(a) End Sub 改进:自动识别行数 Sub Calc() Dim…

需求:因为Excel中数据量很大,其中包含了几个宏程序从其他数据源读取数据,运行一次宏需要比较长的时间,为了不影响使用,要求每天半夜运行一次Excel中的宏(无参数),Excel存放在共盘上. 解决方案:Sharepoint上写了一个Timejob,Timejob每天去运行宏.写Timejob参考http://www.cnblogs.com/batter152/p/4705316.html 在运行时会碰到的问题ERROR – RETRIEVING THE COM CLASS FACTORY FO…

打开视图->宏->编辑,代码如下,cells(n,m)表示当前Excel表格第n行第m列</span> Sub newdata() Dim i As Long Cells(i, ) = "numbe_r" & i Next i End Sub 注:Excel表格有行数限制,Excel2003:65536行:Excel2007/2010:1048576行.…

一.概述 "记录宏"其实就是将工作的一系列操作结果录制下来,并命名存储(相当于VB中一个子程序). 宏其实就是VBA写的,但是可以通过录制的方法制作宏,做好的宏你可以查看相应的VBA语句,从而反过来学习VBA 二.宏在excel中的使用 excel 2016打开“开发工具面板”->“文件”->“选项”->“自定义功能区”->“勾选开发工具”: 打开开发工具,就可以开始录制与使用宏了. 宏的设置:http://www.office68.com/excel/2453…

      有时候在Excel中,需要循环的算每一列的值,而这一列的值是某几列的求和或者某种运算后的结果,比如如下的C4=C3+B4      可以用一个宏来实现,宏代码如下: Dim i As Integer For i = 10 To 252 ActiveSheet.Hyperlinks.Add anchor:=Range("G" & i) Range("G" & i).Select ActiveCell.FormulaR1C1 = "…

-> step 1:新建宏,进入编辑,使用如下代码: Sub Ss()Dim c As RangeFor Each c In ActiveSheet.UsedRange i = 1 While InStr(i, c, "木木", 0) > 0 i0 = InStr(i, c, "木木", 0) If i0 > 0 Then c.Characters(i0, 2).Font.Color = vbRed: i = i0 + 2 Wend NextEnd…

一.建表语句 不带分区版本:V1.0: Sub createTableDDL() '自动创建建表语句 '定义换行和TAB Ln = ) + ) TB = ) '定义脚本目录 Dim dir AS String dir = "C:\CREATE_TABLE_DDL" Set FSOE = CreateObject("Scripting.FileSystemObject") If FSOE.folderexists(dir) = False Then MkDir dir…

如果你用的(应该)是2007以上版本的话 请点左上角的EXCEL图标,EXCEL选项,信任中心,信任中心设置,个人信息选项,保存时从文件属性中删除个人信息前面的对号取消.确定就可以了. (补充:如果你从Word 2003版本考出来的文件,拿到Word2007版本如果出现以上情况,请用这种方法,很管用!!)…

直接介绍重点: 常用的操作是导航栏的逐句与断点: 添加断点:调试->切换断点 单步运行:调试->逐句 查看变量的窗口:视图->本地窗口…

一.条件控制IF if 逻辑表达式 then 语句块 end if 带else的if语句: If 逻辑表达式1 Then 语句块1 ElseIf 逻辑表达式2 Then 语句块2 ElseIf 逻辑表达式3 Then 语句块3 … Else 语句块n End If 二.条件判断Select/Case Select Case 测试表达式 Case 条件表达式1 语句块1 Case 条件表达式2 语句块2 Case 条件表达式3 语句块3 ...... Case 条件表达式n 语句块n Case E…

一.属性与方法 1.属性 上面单击对象,下面即显示对应的属性: 2.方法 双击左上的对象,即可看到相应的方法: 二.数据类型 到 Boolean True 或 False , 到 , ,,, 到 ,,, Single (单精度浮点型) Double (双精度浮点型) Currency Decimal 年 月 日 到 年 月 日 Object 任何 Object 引用 String Variant(数字) 个字节 任何数字值,最大可达 Double 的范围 Variant(字符) 个字节加字符串长…

首先说明以下. 第一: 下面的 “ _" 也就是 空格下划线 在VBA中表示换行的意思:& 表示链接连个字符串的操作,注意 & 的前后是否需要空格 第二: 如果链接服务器,服务器名称,账号,密码,或者SQL语句有问题,都会报错说自动化错误. 第三: 如果刚开始运行程序就显示”未定义对象错误“,那么你就需要 VBA界面的”工程--引用“中选择”Micsoft ActiveX data Objects 2.6“ 点击确定.   Sub 下载数据() Dim lastRow As Lo…

本文介绍在Java语言环境下,使用POI为Excel打水印的解决方案,具体的代码编写以及相关的注意事项. 需求描述: 要求通过系统下载的Excel都带上公司的水印,列宽调整为合适的宽度,并且设置为不可编辑,即只读. 即: 1:加水印: 2:调整列宽将单元格内容显示全: 3:设置只读: 解决方案思路介绍: 三点需求比较来说,以第一点比较复杂,同时网上关于POI为Excel加水印的资料非常少,而这些资料又多数是相互之间Copy得来,干货较少. 一:使用模版Excel的形式设置水印: 目前网上关于PO…

相信很多小伙伴们在做导出pdf或者excel文件时会被要求在文件上加上水印,本篇博客就来讲讲如何为pdf和excel加水印. 导出pdf加水印 其实在导出pdf时加上水印并不难,因为itext提供了添加水印的方法,而且能设置水印的位置角度等等,直接来看一下代码 public void createPDF(String filename) throws IOException { Document document = new Document(PageSize.A4); try { PdfWri…

using System; using Excel = Microsoft.Office.Interop.Excel; namespace WindowsFormsApplication1 { /// <summary> /// 执行Excel VBA宏帮助类 /// </summary> public class ExcelMacroHelper { /// <summary> /// 执行Excel中的宏 /// </summary> /// <p…

Excel VBA宏 在这一章中,让我们了解如何编写一个简单的宏.让我们一步一步来. 第1步:首先,让我们能够在Excel20XX'开发'菜单.做同样的,点击 File >> Option. 第2步:点击自定义功能区选项卡,并选中“Developer”,然后点击“OK”. 第3步:在“Developer”带状出现在菜单栏. 第4步:点击“Visual Basic”按钮以打开VBA编辑器. 第5步:现在,让我们通过添加一个按钮,启动脚本.点击“Insert”>>选择“button”.…

首先需求是用户提出导出excel数据需使用水印备注其用途: 其实就是在导出excel的同时带有自定义文字水印的导出. 那么我们首先想到的肯定是以一个什么样的思路去解决该问题,首先查找poi导出excel有没有相关技术可以直接导出文字水印,可想而知我写了这篇博客,当然是没有一步走成的方法 那么我们开始换一种思路,大家都知道图片可以添加文字水印和图片水印,那么既然图片可以添加文字水印,可能就可以想到excel可以导出图片的功能.那么我们可以先创建一个透明色的图片,然后添加文字水印,最后添加到exce…

1. 首先在Class\SysExcelRange加画边框的方法 思路用EXCEL录宏的功能得到给一批单元格画格子的VBA代码,在AX将对象转为COM对象,基本VBA代码也能装为AX内能用的内容. public void BorderLine() { Com borders; ComVariant LineStyle,Weight,ColorIndex; ; ; ; ; borders = range.Borders() ; LineStyle = borders.LineStyle(xlCon…

==================================声明================================== 本文版权归作者所有 未经作者授权 请勿转载 保留法律追究的权利 本文原创,已获得转载授权的,必须在正文中显要地注明作者和出处,并保证文章(包括本声明)的完整性. 被授权人不可再次授权第三方. 未经作者授权请勿修改(包括本声明),保留法律追究的权利. 未经作者授权请勿用于学术性引用. 未经作者授权请勿用于商业出版.商业印刷.商业引用以及其他商业用途.    …

昨日同事有需求,想知道每个商品第一次销售的月份,以及最后一次销售的月份. 本想通过什么excel函数来解决,但是找了半天也没找到合适的,最后还是通过VBA来解决吧. 使用方法: Excel工具-宏-Visual Basic编辑器 在左侧栏中点右键, 插入-模块 然后输入: Function Last0(ByVal Int_Row As Integer) As Integer Last0 = Last0 = Last0 - Loop End Function '这里需要注意的是 函数的返回值貌似是…

最近工作中用到EXCEL统计处理一些数据,正好之前有自学了一段时间的EXCEL,这次正好用上.为了加深印象,以后方便翻阅,就记录下来.这篇会不断补充. IF 多条件判断返回值 IF(logical_test, [value_if_true], [value_if_false]) 示例: 小于500,且未到期的,返回"补款" IF(AND(A2<500,B2="未到期"),"补款","") 职称为工程师或高工的,返回&qu…

根据网上例子结合自己的工具环境修改后测试可以通过 我使用的工具:Microsoft Visual Studio 2010,Excel 2007 一.在D盘新建一个temp文件夹用于存放Excel启动时写入标志,关闭时删除标志,vb.net程序会去查询该标志来知道Excel是否被人为打开或关闭了. 避免和程序的控制脱节. 二.在D盘根目录创建一个Excel,按Alt+F11打开代码编辑窗口,插入一个模块,填入如下代码: Sub auto_open() 'Excel启动时会自动运行这个宏Open "…

VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便.因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能.但由于VB与EXCEL由于分别属于不同的应用系统,如何把它们有机地结合在一起,是一个值得我们研究的课题. 一. VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: 1.在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引…

跟据客户的要求,需要开发一套包括图形的报表,还需要导出WORD 图表需要这样: 这样: 这样: 还有这样: 接下来是实现思路: 以往用的最多的就是JFreechart,手上也有实现各种图形的资源,但是领导说用它做的图形太丑了, 所以没什么卵用. FusionCharts到是漂亮,但是没有办法实现上述图表,客户也不能接受替代方案,同样没什么卵用 然后就是百度ECharts,漂亮.功能强大.灵活性强(JS/HTML5实现,可以随意更改源码), 但是有些功能不支待IE8, 还是没什么卵用 想了很多方法…

*.xlsx:基于XML文件格式的Excel 2007工作簿缺省格式 *.xlsm:基于XML且启用宏的Excel 2007工作簿 *.xltx:Excel2007模板格式 *.xltm:Excel 2007宏模板 *.xlam:Excel 2007宏加载项 *.xlsb:Excel2007为大的或复杂的工作簿新引入的非XML二进制文件格,允许优化执行和向后兼容. Office 2007中较多地使用了XML文件格式,希望新的文件格式更容易与外部数据源整合.减少文件尺寸.利于数据恢复. 注:Exc…