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" 12\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: r = r + 1 Next End Sub 22、Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)'显示带数字的表名 b = Split(Sh.Name, "(") On Error GoTo ss num = CInt(Left(b(1), Len(b(1)) - 1)) If num >= 1 And num < 20 Then MsgBox Sh.Name End If Exit Sub ss: MsgBox "error", 16, "" End Sub 23、Sub Test()'选择所有工作表名以"业报"开头的工作表或头两个字是业报的报表名引用 Set Sh = ActiveSheet If Left(Sh.Name, 2) = "业报" Then ' 或if sh.name like"业报*"then MsgBox "你成功了", 64, "" End If End Sub 24、1.建立文件夹的方法 MkDir "D:\Music" 2.打开文件夹的方法 ActiveWorkbook.FollowHyperlink Address:="D:\Music", NewWindow:=True |
|