计算机二级access专用代码.docVIP

Access专用代码：①、Application.CommandBars(Worksheet Menu Bar).Enabled = false ②、cells(activecell.row,b).value 活动单元格所在行B列单元格中的值③、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 = KKEnd Sub④、Sheet1.ListBox1.List = Array(一月, 二月, 三月, 四月)一次性增加项目⑤、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value将一个表中的一行全部拷贝到另一个表中⑥、Sub pro_cell()将此代码放入sheet1,则me=sheet1,主要是认识meMe.UnprotectCells.Locked = FalseRange(D11:E11).Locked = TrueMe.ProtectEnd Sub ⑦、Application.CommandBars(Ply).Enabled = False工作表标签上快捷菜单失效⑧、Sub aa()把B1到B12单元格的数据填入c1到c12For i = 1 To 12Range(C i) = Range(B i)Next iEnd Sub⑨、ActiveCell.AddCommentSelection.Font.Size = 12在点选的单元格插入批注，字体为12号⑩、Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)? ? Cancel = TrueEnd Sub?、ScrollArea 属性参阅应用于示例特性以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String 类型，可读写。说明可将本属性设置为空字符串 () 以允许对整张工作表内所有单元格的选定。示例本示例设置第一张工作表的滚动区域。Worksheets(1).ScrollArea = a1:f10\if application.max([a1:e1])=10 thenmsgboxcommandbutton1.enabled=falseA1—E1最大的数值达到10时，自动弹出对话框，并冻结按钮?、本示例将更改的单元格的颜色设为蓝色。Private Sub Worksheet_Change(ByVal Target as Range)? ? Target.Font.ColorIndex = 5End Sub?、Sub test()求和Dim rng As Range, rng2 As RangeFor 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 rngEnd Sub?、将工作薄中的全部n张工作表都在sheet1中建上链接Sub test2()Dim Pt As RangeDim i As IntegerWith 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 iEnd WithEnd Sub?、保存所有打开的工作簿，然后退出 Micro