excel巨集程式碼不難，高手請舉手

高手編個excel巨集程式碼不難

#Private Sub test()

Dim result As String '包含0到9這十個號碼的隨機數字

Dim randomValue As Integer

##Dim randomData(10) As Integer

Dim flag As 布林值

For i = 0 To 9

flag = True

While flag = True

Randomize

randomValue = Int((9 - 0 1) * Rnd 0)

If i = 0 Or search(randomValue, randomData, i) = False Then

result = result & CStr(randomValue)

randomData(i) = randomValue

#flag = False

End If

Wend

Next

End Sub

Private Function search(ByVal key As Integer, ByRef data() As Integer, ByVal length As Integer) As Boolean

##If length = 0 Then

search = True

Exit Function

End If

search = False

For i = 0 To length - 1

If data(i) = key Then

search = True

Exit Function

End If

Next

End Function

寫好了，這個是產生隨機數的，你把它放到點擊按鈕的事件裡

一段EXCEL巨集程式碼請幫忙謝謝！

用字典物件 會快很多.程式碼如下：（如果覺得還不夠快 就把sheet3的A列全部讀入一個數組，來減少頻繁讀工作表的次數也會加速不少）

Sub 挑重複（）

Dim Sht2Dic, CongFuArr()

Dim N As Long

Dim Rng2 As Range, Rng3 As Range

Set Sht2Dic = CreateObject(＂Scripting.Dictionary＂)

For Each Rng2 In Sheet2.Range(＂A1:A＂ & Sheet2.UsedRange.Rows.Count)

Sht2Dic(Rng2.Value) = Sht2Dic(Rng2.Value) 1

Next

For Each Rng3 In Sheet3.Range(＂A1:A＂ & Sheet3.UsedRange.Rows.Count)

If Sht2Dic.exists(Rng3.Value) Then

N = N 1

ReDim Preserve CongFuArr(1 To N)

CongFuArr(N) = Rng3.Value

End If

Next

Sheet1.Columns(＂A＂) = ＂＂

Sheet1.Range(＂A1＂).Resize(N, 1) = WorksheetFunction.Transpose(CongFuArr)

End Sub

excel怎麼對一張表格使用巨集

點選開發工具--錄製巨集，設定一個有意義的巨集名稱，設定使用該巨集的快捷鍵，如果有需要，可以輸入該巨集的詳細說明，點選確定

從此刻開始，你的每一步操作就要保證是符合你的要的，因為excel已經開始錄製你的操作步驟了，現在發現工具列錄製巨集的位置變成了停止錄製。

那麼按照範例要，我們全選表格，字體設定為楷體，字體大小設定為16號，背景顏色設定為青綠色，如圖所示，每一步都正確設定。

步驟完成以後，點擊停止錄製，這樣批量設定表格格式的宏就錄製完成了，我們點擊宏，就可以發現已經保存了我們剛剛錄製的宏。

###當需要對其他表格設定相同的格式時，我們只需要呼叫這個巨集就可以了，如圖所示，呼叫巨集之前的格式。 ### ###選擇你想要設定格式的表格，然後點擊宏，彈出宏列錶框，選擇你錄製好的宏，點擊運行，就發現，表的格式就變成了我們想要的格式。 ###

以上是excel巨集程式碼不難，高手請舉手的詳細內容。更多資訊請關注PHP中文網其他相關文章！