Skapa formaterad Excelrapport - fetstil mm?

mrblondeMedlem sedan aug. 20012 349 inlägg

Frågan11 juni 2003 08:41#1

Jag skall skapa en excelrapport från en sql db, och jag tror jag fattar hur man öppnar och skriver till excelfilen i celler och så.

Men om jag vill ha mer fin formatering, typ fetstil, kanske en kantlinje och så, hur fixar man det?

En sak till, för att summera, räcker det att skriva i cellen "=SUMMA(B2:B4)" för att den skall fatta att den skall summera?

mrblondeMedlem sedan aug. 20012 349 inlägg

11 juni 2003 12:32#2

För att stoppa in summering på några rader

mySheet.Range("B8").Formula = "=SUM(" & Cells(6, 2).Address & ":" & Cells(7, 2).Address & ")"

Fördelen med cells(6,2).Adress är att man akn loppa runt med siffror men ändå få fram den adress som är i Exel (i exemplet 6,2 = B6)

'dra en box runt
mySheet.Range("B6:C10").BorderAround xlContinuous, xlThin, , vbBlack

'skriva siffra som text
mySheet.Range("E1") = "'001" ' dvs, ha en ' innan siffrorna

'göra texten fet
mySheet.Range("E1").Font.Bold = True

' dra linje
mySheet.Range("A1:G1").Borders(xlEdgeBottom).LineStyle = xlContinuous
mySheet.Range("A1:G1").Borders(xlEdgeBottom).Weight = xlThick

Hoppas någon mer har hjälp av detta.