Excel中使用VBA进行编程

Excel中可以使用VBA进行编程,下面是总结的几点,几个代码示例是从">Microsoft Excel Visual Basic参考中Copy过来的,以供参考。

1.Excel中“视图”,工具栏,控件工具箱。可以从控件工具中拖入各种VBA控件。

2.打开“工具“,宏,Visual Basic编辑器,可以对控件进行编程。(表格中的按钮双击后即可进入VBA代码编辑界面).

3.表格的Range属性和Cells属性使用示例:

本示例将 Sheet1 上 A1 单元格的值设置为 3.14159。

Worksheets("Sheet1").Range("A1").Value = 3.14159
本示例在 Sheet1 的 A1 单元格中创建一个公式。

Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"
本示例在 Sheet1 的单元格区域 A1:D10 上进行循环。如果某个单元格的值小于 0.001,则此代码将用 0(零)来取代该值。

For Each c in Worksheets("Sheet1").Range("A1:D10")
    If c.Value < .001 Then
        c.Value = 0
    End If
Next c
本示例在名为“TestRange”的区域上进行循环,并显示该区域中空白单元格的个数。

numBlanks = 0
For Each c In Range("TestRange")
    If c.Value = "" Then
        numBlanks = numBlanks + 1
    End If
Next c
MsgBox "There are " & numBlanks & " empty cells in this range"
本示例将 Sheet1 中单元格区域 A1:C5 上的字体样式设置为斜体。本示例使用 Range 属性的语法2。Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True

本示例将 Sheet1 中单元格 C5 的字体大小设置为 14 磅。Worksheets("Sheet1").Cells(5, 3).Font.Size = 14 本示例清除 Sheet1 上第一个单元格的公式。Worksheets("Sheet1").Cells(1).ClearContents 本示例将 Sheet1 上所有单元格的字体设置为 8 磅的“Arial”字体。With Worksheets("Sheet1").Cells.Font
    .Name = "Arial"
    .Size = 8
End With 本示例在 Sheet1 上的单元格区域 A1:J4 中循环,将其中小于 0.001 的值替换为 0(零)。For rwIndex = 1 to 4
    For colIndex = 1 to 10
        With Worksheets("Sheet1").Cells(rwIndex, colIndex)
            If .Value < .001 Then .Value = 0
        End With
    Next colIndex
Next rwIndex

时间: 2024-10-02 02:19:44

Excel中使用VBA进行编程的相关文章

vba语言编程-谁能在Excel中运行国标2828-2012

问题描述 谁能在Excel中运行国标2828-2012 样本量输入后可根据要求的检验水平和AQL值自动输出抽样方案,谁能做出来急需哪位大神帮帮忙.452865271@qq.com 解决方案 http://wenku.baidu.com/link?url=rr7aH9tLx2-PyfPMxp-PnPZm-eY9NQjJQzii-nPUix24swsuXkyu75Lmw1gdQS2BRmAQqOZd7DJYDNly1w9UbkT4lboVnlEpN3mjHe3DjJu excel支持vba可以实现

VBA在Excel中的应用(三)

目录 Chart Export Chart Format Chart Lengend Chart Protect Chart Title Chart Chart Export 1.将Excel中的图表导出成gif格式的图片保存到硬盘上 Sub ExportChart() Dim myChart As Chart Set myChart=ActiveChart myChart.Export Filename:="C:\Chart.gif", Filtername:="GIF&q

VBA读取word中的内容到Excel中

原文: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

VBA在Excel中的应用(一)

目录 ActiveCell ActiveWorkbook AdvancedFilter AutoFill ActiveCell 1.检查活动单元格是否存在 Sub activeCell() If ActiveCell Is Nothing Then End If End Sub 2.通过指定偏移量设置活动单元格 Sub offset() ActiveCell.Offset(RowOffset:=-2, ColumnOffset:=4).Activate End Sub Offset函数的第一个参

Jsp中的table多表头导出excel文件具体实现_JSP编程

首先引入两份JS:copyhtmltoexcel.js以及 tableToExcel.js 复制代码 代码如下: /*  * 默认转换实现函数,如果需要其他功能,需自行扩展 * 参数: *      tableID : HTML中Table对象id属性值 * 详细用法参见以下 TableToExcel 对象定义   */function saveAsExcel(tableID){ var tb = new TableToExcel(tableID);  tb.setFontStyle("Cour

Excel中的单元格引用

Excel中的工作表(Worksheet)是由一系列行和列组成的二维表,当我们在使用Excel创建应用程序(例如编写VBA代码),或者创建一个复杂的Excel应用(例如公式.数据透视表.统计图表等)时,需要引用独立的Excel单元格(称之为Cell)或单元格区域(称之为Range),详细了解各种不同单元格或单元格区域的引用和设置方式是非常重要的,这将有助于改善我们的操作习惯或编程方式,从而提高工作效率. 两种单元格引用方式 可能有许多用户并不是特别清楚,在Excel中,有两种单元格引用方式:A1

在Excel中插入可以自动播放的背景音乐的方法

  现有的网上比较通行的几种Excel自动播放背景音乐的方案有以下这些: 1.使用Windows Media Player.WebBrowser等类似控件. 缺点是不支持嵌入音频文件,这就意味着Excel文件需要拖家带口随身携带附加的音频文件才能正常播放.而且部分需要VBA编程代码支持. 2.使用插入对象的方式,插入音频文件对象可以实现文件嵌入,但是不支持自动播放.如果需要让音乐自动播放,需要用编程的方法调用OLEobject的Verb:=xlPrimary方法来激活嵌入对象,并且会打开媒体播放

利用asp.net从数据库中传出数据,导入EXCEL中

问题描述 Excel具有强大的报表等功能,通过对excel和VBA进行设计和编程可以制作强大的报表系统.毕业设计管理系统软件在完成主要的业务处理后,需要处理大量的不同需求的报表.本课题在调查毕业设计系统报表需求的基础上,利用asp.net从数据库中传出数据,导入EXCEL中,制做毕业设计管理系统的所有报表,以及打印功能 解决方案 解决方案二:henhaozuodejietieba

在Excel中建立自定义菜单项

excel|菜单 演练:在Excel中建立自定义菜单项 Brian A. Randell MCW Technologies, LLC September 2003 Applies to: Microsoft Visual Studio Tools for the Microsoft Office System Microsoft Office Excel 2003 Microsoft Visual Studio .NET 2003 概述:Office CommandBar对象提供了增加菜单项和工