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。