excel中如何编小程序

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

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

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

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

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

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

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

双击按钮，写入以下代码，有问题Q这个群找我——84253041

'代码开始===========================================================

Dim RndNumber, TempArray(29), i As Integer

Dim rng, rng1 As Range

Set rng = Sheets("学生名单")Range("A2:A31") '学生名单区域，30名同学

Set rng1 = Range("B4:F9") '座位区域，30个座位

For i = 0 To 29

TempArray(i) = i

Next

For i = 29 To 0 Step -1

RndNumber = Int(i Rnd)

rng1(30 - i) = rng(TempArray(RndNumber) + 1)

TempArray(RndNumber) = TempArray(i)

Next

'代码结束===========================================================

Private Sub CommandButton1_Click()

Range("F:F")ClearContents '清空F列

For i = 2 To [D65536]End(xlUp)Row 'D列从2到最后一行循环

For j = 2 To [G65536]End(xlUp)Row 'G列从2到最后一行循环

If Cells(i, 4) & Cells(i, 5) = Cells(j, 7) & Cells(j, 8) Then ’如果 D&E=G&H ，则 F=I

Cells(i, 6) = Cells(j, 9)

End If

Next j

Next i

End Sub

楼上的？你是哪位？楼主要有问题，请联系我

我是farfamed，要确认的问题是：

1、A列数据形式就是单个字母？B列数据形式就是单个数字？C列呢？D列呢？如果不是，请说一下数据形式，还有它们组合后，每个组合的各个数据之间有没有间隔符？比如a1，是不是紧密连接的？

2、有N列数据，每个组合就是包含N个数据吗？

3、组合后的数据放在哪里？

用VBA写了一个，你先看看：

Rem 工具－宏－VB编辑器，粘贴如下代码，返回工作表，切换到其他Sheet，再返回到当前Sheet，即开始执行，组合后的数据从第7列开始存储，每列最多存储6万个，数据量大的话，执行过程中，工作表的状态栏是一直跳动着的

Private Sub Worksheet_Activate()

Dim n As Long

a = Range("a1")End(xlDown)Row: If a > 60000 Then a = 1

b = Range("b1")End(xlDown)Row: If b > 60000 Then b = 1

c = Range("c1")End(xlDown)Row: If c > 60000 Then c = 1

d = Range("d1")End(xlDown)Row: If d > 60000 Then d = 1

e = Range("e1")End(xlDown)Row: If e > 60000 Then e = 1

f = Range("f1")End(xlDown)Row: If f > 60000 Then f = 1

n = 0: m = 0

For i = 1 To a

For j = 1 To b

For k = 1 To c

For x = 1 To d

For y = 1 To e

For z = 1 To f

DoEvents

n = n + 1

Cells(n, 7 + m) = Cells(i, 1) & Cells(j, 2) & Cells(k, 3) & Cells(x, 4) & Cells(y, 5) & Cells(z, 6)

If n > 60000 Then n = 0: m = m + 1

Next z

Next y

Next x

Next k

Next j

Next i

MsgBox n

End Sub

你的描述太过简单，“汇总表的vba”5个关键字 不足以写出准确的汇总vba代码来

汇总的实现方法和汇总的类型有很多种

具体看你需要汇总的数据类型和需要，

并不是所有汇总都一个vba通吃的，这点希望你明白

以上就是关于excel中如何编小程序全部的内容，包括:excel中如何编小程序、求 excel 中 用 VBA 设计的小程序“随机排座”代码、求高手帮忙写个excel vba 小程序。急求，在线等。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！