excel表格的代码怎么写 excel怎么写个代码

Sub Demo()

Dim i As Long, j As Long, k As Long

Dim Arr(1 To 50) As Long, T(1 To 10) As Long

For i = 1 To 50

Arr(i) = i

Next

For j = 1 To 10

Call FY(Arr)

For k = 1 To 10

T(k) = Arr(k)

Next k

Range("a" & j + 1 & ":j" & j + 1) = T

Next

End Sub

Function FY(Arr)

Dim i As Integer, k As Integer, T

Dim L As Integer, U As Integer

L = LBound(Arr)

U = UBound(Arr)

For i = U To L Step -1

k = Application.RandBetween(L, i)

T = Arr(k)

Arr(k) = Arr(i)

Arr(i) = T

Next

FY = Arr

End Function

1、打开excel软件，点击左上角“文件”；

2、点击选项；

3、在excel选项界面点击自定义功能区，勾选开发工具，点击确定；

4、开启开发工具后就可以在主菜单上看到开发工具选项卡了，需要打开VBA就在开发工具选项卡点击visual basic即可；

5、写一个简单代码，在VBA窗口选择插入-模块，新建一个模块。点击模块1，在右边编辑框输入代码；

6、代码编写完成后，在Excel界面上点击开发工具--宏--选择名字a--执行，即可执行a代码；运行完成后，A1的内就变成了“这是我的第一个代码”；

这个你先要建立一个对应数据表格，

假设你在SHEET1工作表的A列写入代码，B列写入对应的内容

则你在SHEET2工作表中的A2单元格只要写入代码，B2单元格写入公式

=VLOOKUP(A2,SHEET1!A:B,2,)

回车，就能得出你要的内容了

如果A列还有其他的条件码要转换，只要下拉复制公式就行了

如果你只想保留这个B列的内容----选中B列----右键-----复制-----再右键-----选择性粘贴----数值---确定后再删去A列----这样新的A列就是你要的内容了

/zh-cn/excel-help/RZ101862716.aspx?section=3

再上图给你看一下吧

如SHEET1建立数据对应关系

在SHEET2的B2单元格写入公式

这个你先要建立一个对应数据表格，假设你在SHEET1工作表的A列写入代码，B列写入对zhidao应的内容则你在SHEET2工作表中的A2单元格只要写入代码，B2单元格写入公式专=VLOOKUP(A2,SHEET1!A:B,2，)回车，就能得出你要的内容了如果A列还有其他的条件码要转换，只要下拉复制公式就行了如果你只想保留这个B列的内容----选中B列----右键-----复制-----再右键-----选择性粘贴----数值---确定后再删去A列----这样新的A列就是你要的内容了/zh-cn/excel-help/RZ101862716.aspx?section=3再上图给你看一下吧如SHEET1建立数据对应关系在SHEET2的B2单元属格写入公式。

Sub s()

For r = 8 To Cells(Rows.Count, 2).End(3).Row - 5

a = "": b = "": c = 10 + 9 * ((r - 8) Mod 5)

For i = 1 To 5

For j = 1 To 6

If Cells(r + i, c + j).Interior.ColorIndex = 37 Then

a = a & i

Exit For

End If

Next

Next

For j = 1 To 6

For i = 1 To 5

If Cells(r + i, c + j).Interior.ColorIndex = 37 Then

b = b & j

Exit For

End If

Next

Next

Cells(r, 56) = a

Cells(r, 57) = b

Next

End Sub

Sub Demo() Dim i As Long, j As Long, k As Long Dim Arr(1 To 50) As Long, T(1 To 10) As Long For i = 1 To 50 Arr(i) = i Next For j = 1 To 10 Call FY(Arr) For k = 1 To 10 T(k) = Arr(k) Next k Range("a" & j + 1 & ":j" & j + 1) = T NextEnd SubFunction FY(Arr) Dim i As Integer, k As Integer, T Dim L As Integer, U As Integer L = LBound(Arr) U = UBound(Arr) For i = U To L Step -1 k = Application.RandBetween(L, i) T = Arr(k) Arr(k) = Arr(i) Arr(i) = T Next FY = ArrEnd Function。