VBA操作Excel代码收集

1、Application.CommandBars("Worksheet Menu Bar").Enabled = false 

2、cells(activecell.row,"b").value '活动单元格所在行B列单元格中的值 

3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置 

Dim shtSheet As Worksheet 

For Each shtSheet In Sheets 

If shtSheet.Name = "KK" Then Exit Sub 

Next shtSheet 

Set shtSheet = Sheets.Add(Before:=Sheets(1)) 

shtSheet.Name = "KK" 

End Sub 

4、Sheet1.ListBox1.List = Array("一月", "二月", "三月", "四月")'一次性增加项目 

5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中 

6、Sub pro_cell()'将此代码放入sheet1,则me=sheet1,主要是认识me 

Me.Unprotect Cells.Locked = False 

Range("D11:E11").Locked = True 

Me.Protect 

End Sub 

7、Application.CommandBars("Ply").Enabled = False'工作表标签上快捷菜单失效 

8、Sub aa()'把B1到B12单元格的数据填入c1到c12 

For i = 1 To 12 

Range("C" & i) = Range("B" & i) 

Next i 

End Sub 

9、ActiveCell.AddComment Selection.Font.Size = 12'在点选的单元格插入批注，字体为12号 

10、Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 

Cancel = True 

End Sub 

11、ScrollArea 属性参阅应用于示例特性以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String 类型，可读写。说明可将本属性设置为空字符串 ("") 以允许对整张工作表内所有单元格的选定。示例本示例设置第一张工作表的滚动区域。 Worksheets(1).ScrollArea = "a1:f10" 

If application.max([a1:e1])=10 then 

msgbox"" commandbutton1.enabled=false 'A1—E1最大的数值达到10时，自动弹出对话框，并冻结按钮 

12、本示例将更改的单元格的颜色设为蓝色。 

Private Sub Worksheet_Change(ByVal Target as Range) 

Target.Font.ColorIndex = 5 

End Sub 

13、Sub test()'求和 

Dim rng As Range, rng2 As Range 

For Each rng In ActiveSheet.UsedRange.Columns 

Set rng2 = Range(Cells(1, rng.Column), Cells(Cells(65536, rng.Column).End(xlUp).Row, rng.Column)) 

rng2.Cells(rng2.Cells.Count).Offset(1, 0) = WorksheetFunction.Sum(rng2) 

Next rng 

End Sub 

14、将工作薄中的全部n张工作表都在sheet1中建上链接 

Sub test2() 

Dim Pt As Range Dim i As Integer 

With Sheet1 Set Pt = .Range("a1") 

For i = 2 To ThisWorkbook.Worksheets.Count 

.Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=Worksheets(i).Name & "!A1" 

Set Pt = Pt.Offset(1, 0) 

Next i 

End With 

End Sub 

15、保存所有打开的工作簿，然后退出 Microsoft Excel。 

For Each w In Application.Workbooks 

w.Save 

Next w 

Application.Quit 

16、让form标题栏上的关闭按钮失效 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 

If CloseMode <> 1 Then 

Cancel = True 

End Sub 

17、Sub countsh()'获得工作表的总数 

MsgBox Sheets.Count 

End Sub 

18、Sub IE()'打开个人网页 

ActiveWorkbook.FollowHyperlink "about:blank" 

SendKeys "{F4}ykk1976.anyp.cn{ENTER}", True 

End Sub 

19、Sub delback()'一次性删除工作簿中所有工作表的背景 

For Each shtSheet In Sheets 

shtSheet.SetBackgroundPicture Filename:="" 

Next shtSheet 

End Sub 

20、[a1].formula="=b1+c1"'A1中设定公式为=B1+C1 

21、Private Sub CommandButton1_Click()'将A1到C6中大于=3的数依次放入E列

Dim i As Long

r = 1

For Each i In Range("a1:c6")

If i > =3 Then

Cells(r, 5) = i: