【文件属性】:
文件名称:单元格插入毫秒
文件大小: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