Excel_VBA
关注
分享
扫一扫
iteye_11020
这个作者很懒，什么都没留下…
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
Excel VBA 优化(一)
（一）关闭屏幕更新：如果你的VBA程序前面三条做得比较差，则关闭屏幕更新是提高VBA程序运行速度的最有效的方法，缩短运行时间2/3左右。关闭屏幕更新的方法： Application.ScreenUpdating= False请不要忘记VBA程序运行结束时再将该值设回来： Application.ScreenUpdating= True ...原创 2012-09-25 11:28:59 · 260 阅读 · 0 评论 -
Excel_VBA 判断语句
If…Then…Else语句 If condition Then [statements][Else elsestatements]如1：If A>B And C250 Then x=x-100 或者，可以使用块形式的语法：If condition Then[statements][ElseIf condition-n Then[elseifstatements] .....原创 2012-09-28 12:20:54 · 275 阅读 · 0 评论 -
Excel_VBA 获取文件的上级目录
Sub test() p = ThisWorkbook.Path p = Mid(p, 1, InStrRev(p, "\")) Debug.Print pEnd Sub原创 2012-09-29 15:08:27 · 3593 阅读 · 0 评论 -
Excel_VBA 向单元格输入分数
Public Sub 技巧4_127() Range("A1:A5").Clear '清除单元格数据 '输入一位分数 Range("A1").NumberFormatLocal = "?/?" Range("A1").Value = "1/3" '输入二位分数 Range("A2").NumberFormatLo原创 2012-09-29 15:08:39 · 341 阅读 · 0 评论 -
Excel_VBA 根据列号获取列字母
Function getColumnLetter(ByVal myCol As Integer) As String '获取单元格列标的字母 Dim columnName As String Dim k As Integer k = (myCol - 1) \ 26 Select Case k Case 0 Case E...原创 2012-09-29 15:08:55 · 6000 阅读 · 1 评论 -
Excel_VBA 计算数组的长度
UBound 函数 返回一个 Long 型数据，其值为指定的数组维可用的最大下标。LBound 函数返回一个 Long 型数据，其值为指定数组维可用的最小下标。计算数组的长度：length = UBound(a) - LBound(a) + 1...原创 2012-09-29 15:09:15 · 7459 阅读 · 0 评论 -
Excel_VBA 获取指定工作薄的的全部使用行
rowCount = Worksheets("sheet1").UsedRange.Rows.Count原创 2012-09-29 15:09:28 · 361 阅读 · 0 评论 -
Excel_VBA 设置单元格的对齐方式
Public Sub 技巧4_151() Dim myRange As Range Set myRange = Range("A1") '指定任意单元格 With myRange .Value = "ExcelVBA实用技巧大全" .HorizontalAlignment = xlRight ...原创 2012-10-19 09:12:43 · 2030 阅读 · 0 评论 -
Redim preserve
数组是包含相同数据类型的一组变量的集合，对数组中的单个变量引用通过数组索引下标进行。在内存中表现为一个连续的内存块，必须用Global或Dim语句来定义。定义规则如下：Dim 数组名([lower to ]upper [, [lower to ]upper, ….]) as type ;Lower缺省值为0。二维数组是按行列排列，如XYZ(行，列)。除了以上固定数组外，VBA还有一种功能强...原创 2012-11-20 11:06:19 · 2395 阅读 · 0 评论 -
撤销高级筛选
Public Sub 技巧10_024() Dim ws As Worksheet Set ws = ThisWorkbook.ActiveSheet With ws If .FilterMode Then .ShowAllData End If End With Set ws = No...原创 2012-11-20 11:07:36 · 378 阅读 · 0 评论 -
拆分窗口并冻结窗格
Sub 按钮7_Click() Dim wd As Window Set wd = ActiveWindow With wd .SplitColumn = 0 .SplitRow = 3 End With ActiveWindow.FreezePanes = True Set wd = Nothing...原创 2012-11-20 11:09:13 · 476 阅读 · 0 评论 -
激活工作表
Public Sub 技巧3_042() Dim ws As Worksheet Set ws = Worksheets(2) '指定工作表 ws.Activate Set ws = NothingEnd Sub原创 2012-11-20 11:10:15 · 275 阅读 · 0 评论 -
撤销自动筛选
Public Sub 技巧10_021() Dim ws As Worksheet Dim myAutoFilter As AutoFilter Dim myRange As Range Set ws = ActiveSheet Set myAutoFilter = ws.AutoFilter If Not myAutoFilter ...原创 2012-11-20 11:10:54 · 273 阅读 · 0 评论 -
隐含模块编译错误
隐含模块编译错误，注意查看帮助，是VB工程被锁住，解锁后运行，查看错误信息原创 2012-11-23 15:12:51 · 1779 阅读 · 0 评论 -
Excel_VBA 逐行获取文本文件的行数据，并拆分成列
Public Sub 13_008() Dim Filename As Variant, myText, mArr() As String Dim i As Long, j As Long Filename = ThisWorkbook.Path & "\myStudents.csv" '指定文件字符串 j = 1 With Works...原创 2012-09-28 12:18:10 · 1972 阅读 · 0 评论 -
Excel_VBA 为单元格插入指向工作簿外部的超链接、删除超链接
Public Sub 4_156() Dim myRange As Range Dim myHyps As Hyperlinks Set myRange = Range("A1") '指定任意的单元格 Set myHyps = myRange.Hyperlinks With myHyps .Delete '删除已经存...原创 2012-09-28 12:16:51 · 1001 阅读 · 0 评论 -
Excel_VBA integer 变量
integer 变量的数据范围是-32768~ 32767，数据量超过32727就会报出错误6，溢出，建议超过32727的时就定义为Variant。原创 2012-09-25 11:34:23 · 2556 阅读 · 0 评论 -
Excel_VBA 读取XML
''读取xml文件，返回root节点Function readXmlFile(ByVal fileName As String) As Object Dim xmlFile As Object Dim root As Object Set xmlFile = CreateObject("MSXml2.DOMDocument") xmlFile...原创 2012-09-25 11:53:24 · 814 阅读 · 0 评论 -
Excel_VBA 清除单元格格式或内容
清除单元格内容（ClearContents方法）， 清除格式（ClearFormats方法）以及同时清除内容和格式（Clear方法）原创 2012-09-25 11:58:35 · 2441 阅读 · 0 评论 -
Excel_VBA 常用函数
Val 函数返回包含于字符串内的数字，字符串中是一个适当类型的数值。可以将字符串的数字型转换为数值。语法Val(string) 必要的 string 参数可以是任何有效的字符串表达式.说明Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十...原创 2012-09-25 12:08:29 · 194 阅读 · 0 评论 -
Excel_VBA 写文件
Function saveRecordsToTxt(ByVal records As String, ByVal path As String) As Boolean '写文件 If isNullOrEmpty(path) Then saveRecordsToTxt = False End IfOpen path For Output As #1Print #1, r...原创 2012-09-26 14:44:42 · 115 阅读 · 0 评论 -
Excel_VBA 获取单元格的基本信息
04080获取单元格区域的行数Public Sub 4_080() Dim myRange As Range Set myRange = ActiveSheet.UsedRange '指定任意的单元格区域 MsgBox "指定单元格区域的行数为 " & myRange.Rows.CountEnd Sub04081获取单元格区域的列数：Public ...原创 2012-09-26 15:24:09 · 194 阅读 · 0 评论 -
Excel_VBA 批量查找替换超链接
Sub 替换超链接()Dim sTobeReplaced As StringDim sReplaceWith As StringsTobeReplaced = InputBox("输入你要查找的字符", "输入你要查找的字符")sReplaceWith = InputBox("输入你要替换的字符", "输入你要替换的字符")For Each Ws In Application....原创 2012-09-26 17:09:25 · 925 阅读 · 0 评论 -
Excel_VBA 设置单元格的字体属性（字体、字号、加粗、斜体、颜色等）
Public Sub 4_144() Dim myRange As Range Dim myFont As Font Set myRange = Range("A1") '指定任意的单元格区域 Set myFont = myRange.Font Cells.Clear '清除工作表数据 myRange.Value = "Ex...原创 2012-09-27 11:05:35 · 33103 阅读 · 0 评论 -
Excel_VBA 获取指定列号单元格的列标字母
Public Sub 4_085() Dim ColumnName As String Dim myCol As Integer Dim myRange As Range myCol = 55 '指定列标号 Set myRange = Cells(1, myCol) '指定该列标号的任意单元格 ColumnName =...原创 2012-09-27 11:06:27 · 5638 阅读 · 0 评论 -
Excel_VBA 检查文件存在性
Sub 按钮3_Click() Dim fileName As String fileName = "C:\recsFn.txt" If Dir(fileName) = "" Then '文件不存在 Debug.Print "文件不存在"; Else Debug.Print "文件存在" End If End Sub...原创 2012-09-27 11:45:54 · 208 阅读 · 0 评论 -
Excel_VBA FileDialog 打开文件夹或文件
‘浏览文件和文件夹清单Application.FileDialog(msoFileDialogFilePicker).Show‘浏览文件夹清单Application.FileDialog(msoFileDialogFolderPicker).ShowFileDialog 打开文件夹或文件Dir 判断文件存在Sub 按钮1_Click() '选择单一文...原创 2012-09-27 12:00:04 · 6524 阅读 · 0 评论 -
Excel_VBA 保存宏
保存宏 选择文件类型 为启用的宏格式 .xlsm原创 2012-09-28 12:10:57 · 280 阅读 · 0 评论 -
Excel_VBA 逐行读取文件
逐行读取文件使用下面的语句来逐行读取Autoexec.bat或者其它任何顺序文件里的内容：Line Input #filenumber, variableName #filenumber是用Open语句打开文件时使用的数字，variableName是个String或者Variant变量，用来储存读取的行。Line Input #语句仅读取一开启顺序文件里的一行并且储存在一变量里。记...原创 2012-09-28 12:14:27 · 1063 阅读 · 0 评论 -
利用文件对象模型FSO操作文件夹
工具-引用 microsoft scripting runtime库原创 2012-12-03 17:33:05 · 178 阅读 · 0 评论