[Excel]VBA自学收集1.docVIP

自　学　收　集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 = KKEnd Sub4、Sheet1.ListBox1.List = Array(一月, 二月, 三月, 四月)一次性增加项目5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value将一个表中的一行全部拷贝到另一个表中6、Sub pro_cell()将此代码放入sheet1,则me=sheet1,主要是认识meMe.UnprotectCells.Locke