自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

guoxin_0724的专栏

愿与你一起分享IT

  • 博客(7)
  • 收藏
  • 关注

转载 MsgBox 函数

MsgBox 函数 在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。 语法 MsgBox(prompt[, buttons] [, title] [, helpfile, context]) MsgBox 函数的语法具有以下几个命名参数: 部分 描述 Promp

2011-02-15 15:31:00 601

转载 Excel Application对象应用大全(四)

Application对象的其它一些属性和方法<br />Caller属性<br />Application对象的Caller属性返回调用或执行宏过程的对象的引用,适用于窗体工具栏控件、指定宏的绘图对象和用户自定义函数。在确定调用用户自定义函数的单元格时特别有用,例如下面的示例使用自定义函数WorksheetName函数显示调用该函数的工作表的名称。Function WorksheetName()<br />Application.Volatile<br />WorksheetName

2011-02-14 11:03:00 2580

转载 Excel Application对象应用大全(三)

使用Application对象执行其它任务<br />除了Application对象中最常用的对象外,您可能希望在Excel应用程序中执行一些其他任务。下面我们就来探讨这方面的内容。<br />删除工作表而显示提示信息(DisplayAlerts属性)<br />下面的示例首先关闭询问是否保存工作表的任何消息,接着删除工作表并打开警告消息。Sub DeleteSheet()<br />Application.DisplayAlerts = False<br />ActiveSheet

2011-02-14 11:01:00 1194

转载 Excel Application对象应用大全(二)

<br /> <br />Application对象相关的方法<br />下面探讨Application对象经常使用的一些方法。<br />FindFile方法和Dialogs集合<br />与GetOpenFilename方法不同,FileFind方法显示“打开”对话框并允许用户打开文件。如果成功打开文件,那么该方法返回True;如果用户取消了该对话框,那么该方法返回False。<br />下面的示例显示一条消息,告诉用户打开一个指定的文件,然后显示“打开”对话框。如果用户不能够打开该文件,则

2011-02-14 10:58:00 1288

转载 Excel Application对象应用大全(一)

<br /> Application对象是Excel对象模型中最高层级的对象,代表Excel应用程序自身,也包含组成工作簿的许多部分,包括工作簿、工作表、单元格集合以及它们包含的数据。<br />Application对象包含: 应用程序设置和选项,许多选项与“选项”对话框中的选项相同。 返回顶级对象的方法,例如ActiveCell、ActiveSheet,等等。 <br />本文使用VBA代码示例简要介绍了与Application对象相关的经常使用的对象、方法和属性,其中一些成员能够改变用

2011-02-14 10:57:00 1813

转载 EXCEL VBA常用语句

定制模块行为(1) Option Explicit '强制对模块内所有变量进行声明Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示Option Compare Text '字符串不区分大小写Option Base 1 '指定数组的第一个下标为1(2) On Error Resume Next '忽略错误继续执行VBA代

2011-02-14 10:31:00 873

原创 VBA 读文件和写文件方法

读文件:Function readTextIntoExcel(path As String)  RowIndex = 11  Open path For Input As #1 '  Do While Not EOF(1) '    Line Input #1, currLine    rowDataArr = Split(currLine, Chr(9))    For i = 0 To UBound(rowDataArr)      Cells(RowIndex, i + 3

2011-02-12 15:17:00 1151

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除