excel中如何编小程序

1、首先打开Excel，以制作一个抽奖小程序为例，先输一些数据。

2、首先我们在抽奖区的单元格中输入=INDEX（）。

3、然后选中数据源，也就是所有成员。

4、然后继续输入=INDEX（E:E，Randbetween()）。

5、在Randbetween()这个涵数中输入1，5，也就是数据源。

6、输入完成后，回车确认，这样一个抽奖小程序就制作好了。

7、我们只需要按f9里面的幸运儿就跟着切换了。

Sub test()

Dim myStr As String '变量类型定义

myStr = "Hello world"

Msgbox myStr '或者直接 Msgbox "Hello world"

End Sub

这就是一个简单的hello world示例程序，运行后d出对话框，内容为"Hello world"。

VBA定义的过程由Sub开始，End Sub结束。Rem或'之后的内容为注释。

具体请查看excel的VB编辑器（VBE）自带的帮助文件。（excel中按alt+F11快捷键打开VBE）

这明显是VBA语法错误啊.

i = n = 2

VBA没有这种C语言的赋值方式/

要改成:

i=2

n=2

否则i的值为false,

If Worksheets("5号站").Cells(i, 2).Value = Worksheets("5号站").Cells(i + 1, 2).Value Then这句话自然就有错了

---