vbx编程技巧,实例,格式,合并单元格,表格线,页面横向
DixAppAsx.Appiatin
DixBkAsx.Wrkbk
DixShtAsx.Wrksht
StxApp=CratObjt("Ex.Appiatin")
StxBk=x
StxSht=xBk.Wrkshts(1)
DixRangAsx.Rang
Di5AsString
DisgssAsBan
'OnErrrGT99
WithxSht
Ifab=TrThntp2="台,"Estp2="个,"
IfataM＞5Thn5="数量:"&ataM&tp2Es5=""
.Cs(1,1).Va=b1.Captin&5&Lab15.Captin
.Cs(2,1).Va="基本信息"
.Cs(6,1).Va="额定性能"&Chr(10)&Txt1.Txt&"rp"
.Cs(11,1).Va="堵转"
.Cns(1).CnWith=8'表格宽度
.Cns(2).CnWith=18'表格宽度
'.Rang(.Cs(1,1),.Cs(1,5)).MrgCs=Tr'合并
.Rang(.Cs(2,1),.Cs(5,1)).MrgCs=Tr'合并单元格
.Rang(.Cs(6,1),.Cs(10,1)).MrgCs=Tr'合并单元格
.Rang(.Cs(11,1),.Cs(13,1)).MrgCs=Tr'合并单元格
.Rang(.Cs(1,1),.Cs(13,ataM+2)).Brrs.LinSty=xCntins'表格线
.Rang(.Cs(2,1),.Cs(13,ataM+2)).HrizntaAignnt=xCntr
.Cs(1,1).Fnt.Siz=12
.Cs(1,1).Fnt.Na="黑体"
.r(1).Right=30'行高
Fri=2T13
.r(i).Right=20
Nxt
Fri=0TataM
.Cns(i+3).CnWith=15'表格宽度
Ifi＜＞0Thn.Cs(2,i+2).Fnt.Siz=5
.Cs(2,i+2).Va=Lab1(i).Captin
IfataM＞5Ani＜＞0Anab=TrThn
.Cs(3,i+2).Va=Tri(Lft(Right(Lab1(i).Captin,7),3))
Es
.Cs(3,i+2).Va=Lab2(i).Captin
EnIf
Ifi=0OrataM＜6Thn.Cs(3,i+2).Va=Lab2(i).Captin
.Cs(4,i+2).Va=Lab3(i).Captin
.Cs(5,i+2).Va=Lab4(i).Captin
.Cs(6,i+2).Va=Lab5(i).Captin
.Cs(7,i+2).Va=Lab6(i).Captin
.Cs(8,i+2).Va=Lab7(i).Captin
.Cs(9,i+2).Va=Lab8(i).Captin
.Cs(10,i+2).Va=Lab9(i).Captin