今天跟大家分享幾個比較實用的自定義函數，都是利用VBA代碼自己定義，操作非常的簡單，大家只需要打開VB編輯器，然后粘貼代碼即可，廢話不多說，下面我們就來看下都有哪些代碼。

一、輸入數據自動鎖定

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Sheet1.Unprotect Password:="123"

If Target.Value<>""Then

Target.Locked=True

Sheet1.Protect Password:="123"

End If

End Sub

這個代碼的作用是在輸入數據后，自動鎖定Excel工作表。這樣的話，我們就不能修改錄入的數據。只有點擊【審閱】找到【取消工作表保護】錄入正確的密碼才可以修改數據

Sheet1.Unprotect Password:="123"

Sheet1.Protect Password:="123"

我們想要使用只需修改上面的2行代碼即可。默認密碼為【123】，大家可以根據自己需求來輸入密碼，密碼需要更改2次，Sheet1是用于指定鎖定那個工作表的，大家也需要根據自己的實際情況來修改下，這個Sheet1是VB編輯器中對應的sheet名稱，在左側的窗口可以看到

二、根據批注提取數據

Public Function pizhu(i As Range)

Application.Volatile True

pizhu=i.Cells.Comment.Text

End Function

這個代碼的作用是自定義一個名稱為【pizhu】的函數，我們需要再點擊鼠標右鍵，插入【模塊】，將代碼粘貼到模塊中，它可以幫助我們快速的將批注中的數據提取出來

語法：=pizhu(需要提取的單元格)

需要注意的是，如果單元格沒有批注的話，函數就會返回#VALUE!這個錯誤值，所以我們還需要使用IFERROR函數來屏蔽一下錯誤值。

三、根據顏色求和

Function SumColor(i As Range,ary1 As Range)

Dim icell As Range

Application.Volatile

For Each icell In ary1

If icell.Interior.ColorIndex=i.Interior.ColorIndex Then

SumColor=Application.Sum(icell)+SumColor

End If

Next icell

End Function

這個代碼的作用是根據顏色求和，定義方法與提取批注是一模一樣的，函數的名字為SumColor

語法：=SumColor（想要求和的顏色，求和的數據區(qū)域）

第一參數：直接在單元格中選取對應的顏色即可。

第二參數：選擇需要求和的數據區(qū)即可

四、根據顏色計數

Function CountColor(x As Range,ary2 As Range)

Application.Volatile

For Each i In ary2

If i.Interior.ColorIndex=x.Interior.ColorIndex Then

CountColor=CountColor+1

End If

Next

End Function

它的用法跟SumColor一樣，作用是根據顏色來進行計數。

語法：=CountColor（想要計數的顏色，計數的數據區(qū)域）

第一參數：直接在單元格中選取對應的顏色即可。

第二參數：選擇需要計數的數據區(qū)即可

以上就是今天分享的4組VBA代碼，都是一些工作中比較常見的例子，大家直接粘貼使用即可，有一點需要注意的是：如果你想要保存這些VBA代碼，就需要將文件的格式另存為【XLSM】，這個格式是可以保存宏代碼的。