用VBA保存工作表，工作簿的方法：

Private Sub CommandButton1_Click()'按鈕事件

ThisWorkbook.Save 'Save相當(dāng)于你手工單擊 保存按鈕

End Sub

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

用VBA設(shè)置單元格列寬方法

Private Sub CommandButton1_Click()'按鈕事件

Columns("B:H").ColumnWidth=20

Columns("H:L").ColumnWidth=10

Columns("A:A").ColumnWidth=30

End Sub

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

用VBA查看當(dāng)前打印機(jī)代碼

Private Sub CommandButton1_Click()'按鈕事件

MsgBox Application.ActivePrinter

End Sub

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

用VBA取消所有工作表篩選代碼：

Private Sub CommandButton1_Click() '按鈕事件

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

If sht.AutoFilterMode = True Then sht.AutoFilterMode = False '取消所有工作表篩選

Next

End Sub

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

VBA中單元格位移方法，解釋：

submy_offset

(0,1).Select'當(dāng)前單元格向左移動(dòng)一格

(0,-1).Select'當(dāng)前單元格向右移動(dòng)一格

(1,0).Select'當(dāng)前單元格向下移動(dòng)一格

(-1,0).Select'當(dāng)前單元格向上移動(dòng)一格

endsub

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

單元格使用公式后顯示0的去除方法，把單元格格式設(shè)置為自定義輸入類型 0;-0;;@ 即可

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

有時(shí)候我們?cè)阡浫霐?shù)據(jù)的時(shí)候需要清空指定單元格內(nèi)容，一個(gè)一個(gè)清空內(nèi)容又太麻煩，這個(gè)時(shí)候我們可以制作一個(gè)按鈕一鍵清空指定單元格內(nèi)容，代碼如下

Private Sub CommandButton1_Click() '按鈕事件

Range("a1:b5,d1:e9").ClearContents

End Sub

'清除a1:b5 ， d1:e9 單元格內(nèi)容，需要清空的單元格根據(jù)需要自己設(shè)置。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

'多條件篩選實(shí)現(xiàn)代碼

Private Sub CommandButton1_Click() '按鈕事件

Sheet1.Range("A1:F30").AutoFilter Field:=2, Criteria1:=Array("1","2","3","4", "5"), Operator:=xlFilterValues

End Sub

'代碼解釋：12345是我們需要篩選的內(nèi)容，A1:F30是篩選的區(qū)域，F(xiàn)ield:=2 篩選第二列，根據(jù)需要自己設(shè)置一下。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

當(dāng)我們把工作表設(shè)置了密碼保護(hù)時(shí)，有很多功能用不了，比如沒有辦法使用篩選功能，沒有辦法把文本框的內(nèi)容寫入表格，解決方法如下

With Sheets("sheet2")

.Unprotect Password:="123456" '解除工作表保護(hù)

'此處是你需要運(yùn)行的功能

.Protect Password:="123456" '保護(hù)工作表，設(shè)置密碼

End With

解釋：sheet2是第二個(gè)工作表，根據(jù)需要自行設(shè)置，123456，是你工作表設(shè)置的密碼，在你需要運(yùn)行代碼的頭尾處插入以上代碼即可，代碼功能解釋：先解開工作表密碼，然后運(yùn)行你所需要的功能，然后工作表在加密碼保護(hù)。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

當(dāng)我們制作表格時(shí)有時(shí)候需要一鍵快速打印，這個(gè)時(shí)候我們就要制作一個(gè)打印按鈕

打印一次遞增的數(shù)量

Private Sub CommandButton1_Click() '按鈕命令

[A1] = [A1] + 1 'A1單元格打印一次加1

Worksheets("sheet2").PrintOut From:=1, To:=1, Copies:=1 '打印命令

End Sub

'按鈕命令，點(diǎn)擊打印 From:=1起始頁(yè) To:=1結(jié)束頁(yè) Copies:=1打印份數(shù),sheet2就是指定打印第二個(gè)工作表，

根據(jù)需要，隨便指定打印哪個(gè)工作表，哪一頁(yè)。

[A1] = [A1] + 1 'A1單元格打印一次加1，根據(jù)需要添加，在這里的作用是打印一次A1單元格內(nèi)容加1，

用于自動(dòng)編號(hào)，比如打印一次編號(hào)遞增，XS0000056 。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

ThisWorkbook 代碼 工作簿啟動(dòng)時(shí)運(yùn)行窗體（必填）

Private Sub Workbook_Open()

UserForm1.Show vbModeless '顯示窗口的同時(shí)可以操作窗口以為的事物

End Sub

Private Sub Workbook_Open()

UserForm1.Show '顯示窗口時(shí)不可以操作窗口以為的事物

End Sub

當(dāng)我們制作VBA窗體時(shí)需要在打開工作簿時(shí)就運(yùn)行我們的窗體，我們就要在ThisWorkbook里面寫入啟動(dòng)窗口代碼

UserForm1.Show 就是啟動(dòng)第1個(gè)窗口，需要啟動(dòng)時(shí)啟動(dòng)哪個(gè)窗口就設(shè)置哪個(gè)，根據(jù)需要隨便設(shè)置。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

隱藏?cái)?shù)據(jù)列的vba代碼。

Private Sub CommandButton1_Click()

Worksheets("sheet2").Columns("C").Hidden = True'隱藏第C列，sheet2就是隱藏sheet2工作表的C列

End Sub

Private Sub CommandButton2_Click()

Worksheets("sheet2").Columns("C").Hidden = False'取消隱藏第C列

End Sub

指定工作表和哪一列根據(jù)自己需要設(shè)置。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

VBA隱藏和取消隱藏工作表

假設(shè)要隱藏第2個(gè)工作表

Private Sub CommandButton1_Click()

Sheets(2).Visible = False

End Sub

取消隱藏就把false改為true

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

excel表格如何為工作表指定區(qū)域設(shè)置使用有效期限

1、選定A1到E15單元格，設(shè)置單元格格式，保護(hù)里面解除鎖定，

2、在數(shù)據(jù)里面設(shè)置數(shù)據(jù)有效性，選擇自定義，填入公式=TODAY()<DATE(2023,1,5)

3、出錯(cuò)警告里面填寫你想提示的內(nèi)容，確定，

4、保護(hù)工作表，設(shè)置密碼，當(dāng)系統(tǒng)時(shí)間大于2023,1,5 A1到E15單元格不可輸入或編輯，自動(dòng)鎖定單元格，

公式里面時(shí)間可以隨便設(shè)置，根據(jù)需要設(shè)置。