Select Code to Download

my $trans_format = $workbook->add_format();
$trans_format->set_num_format('$0.00');
#...
$worksheet->set_column('I:I', undef, $trans_format);

my $row = 2;
while (<FH>) {
...
}    
$worksheet->write_formula('I1', '=SUM (I3:I262)');
$worksheet->set_column('I:I', undef, $trans_format);