vba编写一个程序

这个很简单

Sub Macro1()

'

' Macro1 Macro

Dim i As Integer, N As Integer

N = 1 + 5 Rnd()

Cells(1, 7)Value = N

Range("A" & N & ":C" & N + 1)Select

SelectionCopy

Range("D1")Select

ActiveSheetPaste

End Sub

Sub 宏1()

k = 1

For a = -1 To 8

For b = -7 To 2

For c = -2 To 7

For d = -1 To 8

For e = -7 To 2

    If a + b + c + d + e = 7 Then

        Cells(k, 1) = a & " + " & b & " + " & c & " + " & d & " + " & e & " = 7"

        k = k + 1

    End If

Next e, d, c, b, a

End Sub

按Alt+F11，打开VBA编辑器，插入一个模块，把上面的代码打入去，如果粘贴进去的，请你将多余的内容删除，按F5执行。

测试通过。

首先要明确自己为什么要学VBA？没有基础要怎么学？弄清楚这两点再制定明确的学习方案。

一、为什么要学VBA？

VBA是Office软件自带的一个开发工具，只要安装了Word、Excel等软件，就可以直接使用VBA编写简单的小程序。

Office中的绝大多数手工 *** 作，都可以用简单的VBA程序自动完成。比如处理Excel数据、修改表格格式、批量排版Word/PPT文件、从成百上千的Word文档中抽取关键信息、创建自己的金融分析模型、实现自动批量打印、对硬盘上所有文件分类存放建档，甚至抓取网页数据、对接外部数据库、调用Windows系统功能等与Office无关的 *** 作也可以用VBA实现。

二、没有础怎么学？

其实BVA很简单，只要掌握VBA中的“变量”、“过程和函数”、以及“顺序、判断语句、循环语句”，编写简单的小程序不在话下。

在学VBA之前，要搞弄清楚几个概念：

1、了解EXCEL中“单元格”“工作表”“工作簿”和“公式”；

2、什么是VBA？什么是宏？

3、VBE编辑器是什么？

4、什么对象、属性、方法？

搞清楚这些基本知识后，再买几本VBA入门书籍，如：《别怕，Excel VBA其实很简单》、《深入浅出Excel VBA》，用书中的实例上机反复练习。

最为主要的是多收集一些VBA的教学视频，找些最基础适合自己的视频，太高深的看懂也是百搭，直到能看懂实例中的代码为止。并通过修改实例中的代码，当你能实现一些自己的小目标时，那么恭喜你，你这算是入门了。

'本程序日期格式：2012-10-22，2012,10,22其他格式自己调试

Sub auto_open()

Dim StrDate As String

StrDate = Cells(1, 1)

If DateDiff("d", Date, StrDate) < 0 Then

Cells(1, 1) = ""

End If

End Sub

按alt+f11进vba编辑，双击thisworkbook，贴上以下代码

Option Explicit

Sub color()

Dim isnum As Boolean

Dim c, r, i, j As Integer

i = 1

j = 1

' 循环选择的每一行。

For r = 1 To SelectionRowsCount

' 循环选择的每一列。

For c = 2 To SelectionColumnsCount

If SelectionCells(r, c)Text = SelectionCells(r, c - 1)Text Then

i = i + 1

Else

Cells(SelectionCells(r, c)Row, SelectionColumnsCount + j)Value = i

i = 1

j = j + 1

End If

'

SelectionCells(r, c)InteriorColorIndex = ci

Next c

Cells(SelectionCells(r, c)Row, SelectionColumnsCount + j)Value = i

i = 1

j = 1

Next r

End Sub

关闭vba后，选中数值范围，按Alt+f8执行宏

以上就是关于vba编写一个程序全部的内容，包括:vba编写一个程序、求助，excel中，编一个vba程序、EXCEL中用VBA编程难学吗等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！