单元格插入毫秒

【文件属性】：

文件名称：单元格插入毫秒

文件大小：6KB

文件格式：RAR

更新时间：2018-11-16 02:11:30

插入毫秒

Private Sub CommandButton1_Click() '刷新权限 Dim Sh As Worksheet, Sht As Worksheet Dim Lx As Byte, Hx As Byte Application.ScreenUpdating = 0 Set Sht = Sheets("权限管理") With Sht Hx = .Range("A65536").End(xlUp).Row Lx = .Range("IV3").End(xlToLeft).Column .Range(.Cells(1, "E"), .Cells(Hx, Lx)).ClearContents .Range("E1") = "权限设置区" .Range("E1:IV2").HorizontalAlignment = 1 Lx = 5 For Each Sh In Worksheets If Not Sh.Name = Sheet1.Name Then .Cells(2, Lx) = Sh.Name .Range(.Cells(2, Lx), .Cells(2, Lx + 1)).HorizontalAlignment = 7 With .Range(.Cells(3, Lx), .Cells(3, Lx + 1)) .Value = Array("打开", "编辑") .HorizontalAlignment = 3 End With Lx = Lx + 2

【文件预览】：
插入毫秒时间.xls