Excel VBA常用代码VSTO版20150425

合集下载

VBA常用代码-EXCEL资料讲解

V B A常用代码-E X C E L

EXCEL VBA常用代码

1.显示活动工作簿名称

MsgBox "当前活动工作簿是" &

2.保存活动工作簿

Activeworkbook.Save

3.保存所有打开的工作簿关闭EXCEL

For Each W in Application.Workbooks

W.Save

Next W

Application.Quit

4.将网格线设置为蓝色

ActiveWindow.GridlineColorIndex = 5

5.将工作表sheet1隐藏

Sheet1.Visible = xlSheetVeryHidden

6.将工作表Shtte1显示

Sheet1.Visible = xlSheetVisible

7.单击某单元格,该单元格所在的行以蓝色背景填充,字体颜色为白色

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Row >= 2 Then’第二行以下的区域

On Error Resume Next

[ChangColor_With1].FormatConditions.Delete

= "ChangColor_With1"

With [ChangColor_With1].FormatConditions

.Delete

.Add xlExpression, , "TRUE"

.Item(1).Interior.ColorIndex = 5

.Item(1).Font.ColorIndex = 2

Excel VBA常用代码VSTO

Excel VBA常用代码VSTO版(C#)

1-1使用Range属性

this.Range["A3:F6, B1:C5"].Select();

1-2使用Cells属性

for(int icell=1;icell<=100;icell++)

{

this.Application.Worksheets[2].cells[icell, 1].value = icell;

}

1-3使用快捷记号

#N/A

1-4使用Offset属性

this.Range["A1:A3"].Offset[3, 3].Select();

1-5使用Resize属性

this.Range["A1"].Resize[3, 3].Select();

1-6使用Union属性

this.Application.Union(this.Range["A1:D4"], this.Range["E5:H8"]).Select();

1-7使用UsedRange属性

edRange.Select();

1-8使用CurrentRegion属性

this.Range["A5"].CurrentRegion.Select();

2-1 使用Select方法

this.Application.Worksheets[3].Activate();

this.Application.Worksheets[3].Range["A1:B10"].Select();

2-2 使用Activate方法

this.Application.Worksheets[3].Activate();

this.Application.Worksheets[3].Range["A1:B10"].Activate();

excel vba常用代码

Excel VBA是一种用于编写宏的编程语言，它可以帮助我们在Excel 中进行自动化操作。在VBA中，有一些常用的代码，可以帮助我们快速完成一些常见的任务。本文将介绍一些常用的Excel VBA代码，帮助读者更好地理解并运用它们。

一、数据处理

1.1 数据筛选

在Excel中，我们经常需要根据某些条件筛选数据。使用VBA可以实现自动筛选，代码如下：

```

ActiveSheet.Range("A1:D10").AutoFilter Field:=1, Criteria1:=">10"

```

以上代码将自动筛选出范围为A1:D10的数据，其中第一列大于10的数据。

1.2 数据排序

有时候，我们需要对数据进行排序。使用VBA可以实现自动排序，代码如下：

```

ActiveSheet.Range("A1:D10").Sort Key1:=Range("A1"), Order1:=xlAscending

```

以上代码将自动对范围为A1:D10的数据根据第一列进行升序排序。

1.3 数据透视表

数据透视表可以帮助我们对数据进行汇总和分析。使用VBA可以自动生成数据透视表，代码如下：

```

ActiveSheet.PivotTableWizard

```

以上代码将自动生成一个数据透视表。

二、单元格操作

2.1 单元格赋值

在VBA中，我们可以使用代码将某个值赋给指定的单元格，代码如下：

```

Range("A1").Value = "Hello World"

```

以上代码将把"Hello World"赋值给A1单元格。

excelvba常用代码总结

Excel VBA常用代码总结1

改变背景色

Range("A1"). = xlNone

ColorIndex一览

改变文字颜色

Range("A1"). = 1

获取单元格

Cells(1, 2)

Range("H7")

获取范围

Range(Cells(2, 3), Cells(4, 5))

Range("a1:c3")

'用快捷记号引用单元格

Worksheets("Sheet1").[A1:B5]

选中某sheet

Set NewSheet = Sheets("sheet1")

选中或激活某单元格

'“Range”对象的的Select方法可以选择一个或多个单元格，而Activate 方法可以指定某一个单元格为活动单元格。

'下面的代码首先选择A1:E10区域，同时激活D4单元格：

Range("a1:e10").Select

Range("d4:e5").Activate

'而对于下面的代码：

Range("a1:e10").Select

Range("f11:g15").Activate

'由于区域A1:E10和F11:G15没有公共区域，将最终选择F11:G15，并激活F11单元格。

获得文档的路径和文件名

'路徑

'名稱

'路徑＋名稱

'或将ActiveWorkbook换成thisworkbook

隐藏文档

= False

禁止屏幕更新

= False

禁止显示提示和警告消息

= False

文件夹做成

strPath = "C:\temp\"

MkDir strPath

状态栏文字表示

= "计算中"

双击单元格内容变换

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

EXCELWPS VBA宏代码大全

EXCEL/WPS VBA宏代码大全

Application.Dialogs(1).Show是调用打开对话框

Application.Dialogs(5或145).Show是调用另存为对话框，

Application.Dialogs(6).Show是删除文档

Application.Dialogs(7).Show是页面设置

Application.Dialogs(8).Show是打印对话框

Application.Dialogs(9).Show是选择打印机对话框

Application.Dialogs(12).Show是重排窗口设置对话框

Application.Dialogs(17).Show宏对话框

Application.Dialogs(23).Show设置打印标题

Application.Dialogs(26).Show字体设置对话框

Application.Dialogs(27).Show显示选项

Application.Dialogs(28).Show保护工作表

Application.Dialogs(32).Show重算选项

Application.Dialogs(39或192).Show排序

Application.Dialogs(40).Show序列选项

Application.Dialogs(41).Show模拟运算表

Application.Dialogs(42或111).Show单元格格式，选择单元格内容的格式Application.Dialogs(43).Show选择单元格字体的排列格式，横排或竖排等Application.Dialogs(44或134或190).Show字体选择

EXCEL VBA常用代码实战大全

VBA常用技巧

VBA常用技巧---------------------------------------------------- 第1章Range（单元格）对象--------------------------------- 技巧1 ---------------------------------- 单元格的引用方法1-1 ---------------------------------- 使用Range属性

1-2 ---------------------------------- 使用Cells属性

1-3 ------------------------------------ 使用快捷记号

1-4 --------------------------------- 使用Offset属性

1-5 --------------------------------- 使用Resize属性

1-6 ---------------------------------- 使用Union方法

1-7 ------------------------------ 使用UsedRange属性

1-8 -------------------------- 使用CurrentRegion属性技巧2 ------------------------------ 选定单元格区域的方法2-1 --------------------------------- 使用Select方法

2-2 ------------------------------- 使用Activate方法

ExcelVBA常用代码总结1（精选合集）

第一篇：Excel VBA常用代码总结1

Excel VBA常用代码总结1•

改变背景色

Range(“A1”).Interior.ColorIndex = xlNone ColorIndex一览••改变文字颜色获取单元格Range(“A1”).Font.ColorIndex = 1 Cells(1, 2)Range(“H7”)•获取范围

Range(Cells(2, 3), Cells(4, 5))Range(“a1:c3”)'用快捷记号引用单元格

Worksheets(“Sheet1”).[A1:B5] •选中某sheet SetNewSheet = Sheets(“sheet1”)NewSheet.Select •选中或激活某单元格'“Range”对象的的Select方法可以选择一个或多个单元格，而Activate方法可以指定某一个单元格为活动单元格。

'下面的代码首先选择A1:E10区域，同时激活D4单元格：Range(“a1:e10”).Select Range(“d4:e5”).Activate '而对于下面的代码：Range(“a1:e10”).Select Range(“f11:g15”).Activate '由于区域A1:E10和F11:G15没有公共区域，将最终选择F11:G15，并激活F11单元格。

•获得文档的路径和文件名

ActiveWorkbook.Path

'路徑

'名稱

ActiveWorkbook.FullName '路徑＋名稱'或将ActiveWorkbook换成thisworkbook

EXCEL常用VBA代码

删除B列中字符串数值少于21的单元格所在的行

Sub 删除行()

r = Range("B65536").End(xlUp).Row '行数

For h = r To 1 Step -1

If Cells(h, 2) < 21 Then Cells(h, 2).EntireRow.Delete

End Sub

-------------------------

【工作表合并】将同一工作簿中的所有工作表合并到一个工作表中

新建一个工作表，写入代码[在新建的工作表标签处右键查看代码（找不到的直接按一下alt+F11) 把下面的代码复制进去然后点上面的运行运行子程序即可]：

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub

*********************************************************

代码这样写也行：

Excel-vba宏代码-大全

宏文件集

▲打开全部隐藏工作表返回Sub 打开全部隐藏工作表()

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(i).Visible = True

Next i

End Sub

▲循环宏返回Sub 循环()

AAA = Range("C2")

Dim i As Long

Dim times As Long

times = AAA

'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)

For i = 1 To times

Call 过滤一行

If Range("完成标志") = "完成" Then Exit For '如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出

'If Sheets("传送参数").Range("A" & i).Text = "完成" Then Exit For '如果某列出现"完成"内容则退出循环

Next i

End Sub

▲录制宏时调用“停止录制”工具栏返回Sub 录制宏时调用停止录制工具栏()

/doc/4911298482.html,mandBars("Stop Recording").Visible = True

End Sub

▲高级筛选5列不重复数据至指定表返回

Sub 高级筛选5列不重复数据至Sheet2()

Sheets("Sheet2").Range("A1:E65536") = "" '清除Sheet2的A:D 列

Excel VBA常用代码及解释

(1) Option Explicit

解释：强制对模块内所有变量进行声明

(2) Option Base 1

解释：指定数组的第一个下标为1

(3) On Error Resume Next

解释：忽略错误继续执行VBA代码,避免出现错误消息(4) On Error GoTo 100

解释：当错误发生时跳转到过程中的某个位置

(5) On Error GoTo 0

解释：恢复正常的错误提示

(6) Application.DisplayAlerts=False

解释：在程序执行过程中使出现的警告框不显示(7) Application.DisplayAlerts=True

解释：在程序执行过程中恢复显示警告框

(8) Application.ScreenUpdating=False

解释：关闭屏幕刷新

(9) Application.ScreenUpdating = True

解释：打开屏幕刷新

(10) Workbooks.Add()

解释：创建一个新的工作簿

(11) Workbooks(“book1.xls”).Activate

解释：激活名为book1的工作簿

(12) ThisWorkbook.Save

解释：保存工作簿

(13) ThisWorkbook.close

解释：关闭当前工作簿

(14) ActiveWorkbook.Sheets.Count

解释：获取活动工作薄中工作表数

(15) Active

解释：返回活动工作薄的名称

(16) This

解释：返回当前工作簿名称

(17) ThisWorkbook.FullName

ExcelVBA常用代码VSTO版

Excel VBA常用代码VSTO版(C#)

1-1使用Range属性

["A3:F6, B1:C5"].Select();

1-2使用Cells属性

for(int icell=1;icell<=100;icell++)

{

1].value = icell;

}

1-3@

1-4使用快捷记号

#N/A

1-5使用Offset属性

["A1:A3"].Offset[3, 3].Select();

1-6使用Resize属性

["A1"].Resize[3, 3].Select();

1-7使用Union属性

"A1:D4"], ["E5:H8"]).Select();

1-8使用UsedRange属性

1-9使用CurrentRegion属性

["A5"].();

2-1 使用Select方法

"A1:B10"].Select();

2-2 使用Activate方法

"A1:B10"].Activate();

注:此处的代码,可以运行,但是只会选中A1这一个单元格

？

"A1:B10"], true);

3-1 获得指定行,列中的最后一个非空单元格

rng = ["A65535"].End[ ("A列中最后一个非空单元格是" + [0, 0] + ",行号" + + ",数值" + ;

4-1 定位单元格

rng = ();

("工作表中有公式的单元格为:" + ;

5-1 查找单元格

rng, Rng;

Rng = ["A:A"];

string strFind = ;

if () !=

{

rng = (strFind, [ false);

vba常用代码大全

前言

我们平时在工作表xx的公式xx常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBAxx不能直接应用，必须在函数名前面加上对象，比如：

Application.WorksheetFunction.Sum(arg1,arg2,arg3)。

而能在VBAxx直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。

第1.1例ASC函数

一、题目：

要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。

二、代码：

Sub示例_1_01()

Dim myNum1%, myNum2%

myNum1 = Asc("Excel")'返回69

myNum2 = Asc("e")'返回101

[a1] = "myNum1= ": [b1] = myNum1

[a2] = "myNum2= ": [b2] = myNum2

End Sub

三、代码详解

1、Sub示例_1_01()：宏程序的开始语句。

2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。

也可以写为Dim myNum1 As Integer。Integer变量存储为16位（2个字节）的数值形式，其范围为-32,768到32,767之间。Integer的类型声明字符是百分比符号(%)。

3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。

Asc函数返回一个Integer，代表字符串中首字母的字符的ASCII代码。

办公软件学习技巧：Excel VBA常用代码100句

Excel VBA常用代码100句

(1) Option Explicit 强制对模块内全部变量进行声明

(2) Option Base 1 指定数组的第一个下标为1

(3) On Error Resume Next 忽视错误连续执行VBA代码,避开消失错误消息

(4) On Error GoTo 100 当错误发生时跳转到过程中的某个位置

(5) On Error GoTo 0 恢复正常的错误提示

(6) Application.DisplayAlerts=False 在程序执行过程中使消失的警告框不显示

(7) Application.DisplayAlerts=True 在程序执行过程中恢复显示警告框

(8) Application.ScreenUpdating=False 关闭屏幕刷新

(9) Application.ScreenUpdating = True 打开屏幕刷新

(10) Workbooks.Add() 创建一个新的工作簿

(11) Workbooks(“book1.xls”).Activate 激活名为book1的工作簿

(12) ThisWorkbook.Save 保存工作簿

(13) ThisWorkbook.close 关闭当前工作簿

(14) ActiveWorkbook.Sheets.Count 猎取活动工作薄中工作表数

(15) 返回活动工作薄的名称

(16) ‘返回当前工作簿名称

(17) ThisWorkbook.FullName ‘返回当前工作簿路径和名

(18) edRange.Rows.Count ‘当前工作表中已使用的行

EXCEL-VBA常用代码实战大全

VBA常用技巧

VBA常用技巧------------------------------------------------------------------------------------------------------- 1 第1章Range（单元格）对象-------------------------------------------------------------------- 10 技巧1 单元格的引用方法---------------------------------------------------------------------- 10 1-1 使用Range属性----------------------------------------------------------------------- 10

1-2 使用Cells属性 ------------------------------------------------------------------------ 11

1-3 使用快捷记号 -------------------------------------------------------------------------- 11

1-4 使用Offset属性 ----------------------------------------------------------------------- 12

1-5 使用Resize属性----------------------------------------------------------------------- 13

VBA编程中的常用代码

VBA（Visual Basic for Applications）是一种编程语言，用于在Microsoft Office应用程序中编写自定义宏和功能。以下是一些在VBA 编程中常常用到的代码片段和技巧。

1. Excel VBA：打开和关闭工作簿

这段代码演示了如何在Excel VBA中打开和关闭一个工作簿。

```vba

Sub OpenAndCloseWorkbook

Dim wb As Workbook

Set wb = Workbooks.Open("C:\Path\To\Your\File.xlsx")

'在这里执行你的代码

wb.Close SaveChanges:=False

End Sub

```

2. Excel VBA：遍历工作表

下面的代码展示了如何遍历一个Excel工作簿中的所有工作表。

```vba

Sub LoopThroughWorksheets

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

'在这里执行你的代码

Next ws

End Sub

```

3. Excel VBA：在工作表中查找特定值

以下代码展示了如何在一个工作表中查找特定值并返回它的位置。

```vba

Function FindValue(ByRef rng As Range, ByVal searchValue As String) As Range

Dim cell As Range

Set FindValue = Nothing

For Each cell In rng

EXCEL-VBA编程常用代码

1 excle 快捷键大全对工具栏进行操作的快捷键激活菜单栏，F10，Alt 选定前一个或下一个工具栏，Ctrl+Tab 或 Ctrl+Shift+Tab 选定工具栏中的下一个或前一个按钮或菜单，Tab 或 Shift+Tab(当某个工具栏被激活时) 打开选定的菜单，Enter 运行选按钮的操作，Enter 在选定的文本框中输入文本，Enter 在对话框中使用的快捷键取消当前任务,Esc 单击相应命令，Alt+下划线字母单击选定的按钮,Enter 在选项中前移，Tab 在选项后移,Shift+Tab 在选项卡中前移,Ctrl+Tab 在选项卡中后移,Ctrl+Shift+Tab 刷新“另存为”或“打开”对话框,F5 插入、删除和复制选定区域的快捷键复制选定区域，Ctrl+C 粘贴选定区域,Ctrl+V 剪切选定区域,Ctrl+X 清除选定区域的内容，Delete 插入空白单元格,Ctrl+Shift+加号删除选定区域,Ctrl+撤消最后一次操作,Ctrl+Z 使用“office 助手”需要用到的快捷键关闭“office 助手”提供的消息,Esc 通过“office 助手”获取帮助信息,F1 显示下一项提示,Alt+N 显示前一项提示,Alt+B 在向导中显示或隐藏“office 助手”,空格键对窗口进行操作的快捷键切换到下一个程序,Alt+Tab 切换到前一个程序,Alt+Shift+Tab 显示 windwos“开始”菜单,Ctrl+Esc 关闭活动工作薄窗口,Ctrl+W 恢复活动工作薄窗口,Ctrl+F5 切换到下一个工作薄窗口，Ctrl+F6 切换到前一个工作薄窗口,Ctrl+Shift+F6 执行“移动”命令(菜单栏中的工作薄图标菜单),Ctrl+F7 运行“大小”命令(菜单栏中的工作薄图标菜单),Ctrl+F8 将工作薄窗口最小化为图标,Ctrl+F9