'设置单元大小 .ColWidth(0) = 300 .ColWidth(1) = 1000 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 For i = 7 To 13 .ColWidth(i) = 600 Next i For i = 14 To 19 .ColWidth(i) = 800 Next i .ColWidth(20) = 2500 .ColWidth(21) = 2500
我正在解决这个问题,欢迎一起解决,加入msn:[email protected]
'显示MSHFGird表头
Public Sub ShowTitle()
Dim i As Integer
With msgList
.Cols = 22
.TextMatrix(0, 1) = "编号"
.TextMatrix(0, 2) = "姓名"
.TextMatrix(0, 3) = "日期"
.TextMatrix(0, 4) = "本月天数"
.TextMatrix(0, 5) = "公休假天数"
.TextMatrix(0, 6) = "应出勤天数"
.TextMatrix(0, 7) = "出勤"
.TextMatrix(0, 8) = "旷工"
.TextMatrix(0, 9) = "年休"
.TextMatrix(0, 10) = "请假"
.TextMatrix(0, 11) = "迟到"
.TextMatrix(0, 12) = "早退"
.TextMatrix(0, 13) = "忘定卡"
.TextMatrix(0, 14) = "假日加班"
.TextMatrix(0, 15) = "其他加班"
.TextMatrix(0, 16) = "补休天数"
.TextMatrix(0, 17) = "出差天数"
.TextMatrix(0, 18) = "加班费"
.TextMatrix(0, 19) = "扣考核"
.TextMatrix(0, 20) = "其它"
.TextMatrix(0, 21) = "备注"
'固定表头
.FixedRows = 1
'设置各列的对齐方式
For i = 0 To 3
.ColAlignment(i) = 0
Next i
For i = 4 To 19
.ColAlignment(i) = 7
Next i
For i = 20 To 21
.ColAlignment(i) = 0
Next i
'表头项居中
.FillStyle = flexFillRepeat
.Col = 0
.Row = 0
.RowSel = 1
.ColSel = .Cols - 1
.CellAlignment = 4
'设置单元大小
.ColWidth(0) = 300
.ColWidth(1) = 1000
.ColWidth(2) = 1000
.ColWidth(3) = 1000
.ColWidth(4) = 1000
.ColWidth(5) = 1000
.ColWidth(6) = 1000
For i = 7 To 13
.ColWidth(i) = 600
Next i
For i = 14 To 19
.ColWidth(i) = 800
Next i
.ColWidth(20) = 2500
.ColWidth(21) = 2500
.Row = 1
End With
End Sub