5

经过大量的反复试验，我似乎仍然无法找到一种解决方法来让合并的单元格具有 AutoFit 高度。

我尝试了一种基于我在此站点上找到的一些 VBA 代码的方法：https ://groups.google.com/forum/?fromgroups=#!topic/microsoft.public.excel.programming/pcvg7o5sKhA

以下代码粘贴文本、换行并将单元格 (A1) 的宽度更改为我想要的合并单元格的总宽度。然后，它合并单元格并将 A 列设置回原始宽度。$note 是任何长字符串。$vAlignTop 是一个数组，用于设置文本与单元格顶部的对齐方式。

$totalWidth = 67.44; //width of columns A-H

$objPHPExcel->getActiveSheet()->setCellValue('A1', $note);
$objPHPExcel->getActiveSheet()->getColumnDimension('A')->setWidth($totalWidth);
$objPHPExcel->getActiveSheet()->getStyle('A1')->getAlignment()->setWrapText(true);
$objPHPExcel->getActiveSheet()->getStyle('A1:H1')->applyFromArray($vAlignTop);
$objPHPExcel->getActiveSheet()->mergeCells('A1:H1');
$objPHPExcel->getActiveSheet()->getColumnDimension('A')->setWidth(8.43); //original width of column A

当我在 excel 中手动完成这些相同的步骤时，我得到了我想要的结果，但上面代码的输出始终是默认的 12.75 行高。

有人有想法么？我真的不介意对列宽进行硬编码，我只希望高度能够响应文本。

提前致谢。

4

3 回答 3

8

自动高度不适用于合并的单元格。我认为这是 Excel 而不是 PHPExcel 的问题。如果你想这样做，你必须使用解决方法。这是我的...

我有一个函数，它接受文本，在换行符（'\n'）上分成几行，并根据每行的字符数（小提琴因子）计算“适合”文本所需的行数。

function getRowcount($text, $width=55) {
    $rc = 0;
    $line = explode("\n", $text);
    foreach($line as $source) {
        $rc += intval((strlen($source) / $width) +1);
    }
    return $rc;
}

对于我的报告，通过反复试验得出的小提琴因子是 55。然后我在我的代码中使用上述函数......

$purpose = $survey["purpose"];
$numrows = getRowcount($purpose);
$objPHPExcel->getActiveSheet()->setCellValue('B'.$xlrow, 'Report Purpose');
$objPHPExcel->getActiveSheet()->getStyle('B'.$xlrow)->applyFromArray($fmt_cover_bold);
$objPHPExcel->getActiveSheet()->setCellValue('C'.$xlrow, $purpose);
$objPHPExcel->getActiveSheet()->getRowDimension($xlrow)->setRowHeight($numrows * 12.75 + 2.25);
$objPHPExcel->getActiveSheet()->mergeCells('C'.$xlrow.':E'.$xlrow);
$objPHPExcel->getActiveSheet()->getStyle('C'.$xlrow.':E'.$xlrow)->applyFromArray($fmt_normal_wrap);
$xlrow++;

我添加 2.25 只是为了在这个单元格和下一个单元格之间稍微分开。

于 2013-06-20T08:18:48.033 回答
2

我想，我找到了更好的解决方案。当我将数据插入到 foreach 中的合并列时，我通过与 strlen() 进行比较来选择行中最长的字符串。之后将最长的字符串插入最后+1列并将其设置为隐藏列。第 1 行有 4 列 (AD) 的示例

$longestContent = "the longest content in row 1";
$mergerColumnsWidth = 24;
$objPHPExcel->getActiveSheet()->setCellValue("E1", $longestContent);
$objPHPExcel->getActiveSheet()->getStyle("E1")->getAlignment()->setWrapText(true);
$objPHPExcel->getActiveSheet()->getColumnDimension("E")->setWidth(mergerColumnsWidth );
$objPHPExcel->getActiveSheet()->getColumnDimension("E")->setVisible(false);
于 2016-08-11T07:12:42.943 回答
0

要为任何行设置自动高度，请使用：

$_row_number = 10;

$excel->getActiveSheet()->getRowDimension($_row_number)->setRowHeight(-1);

即将参数设置为-1 而不是任何数字。

于 2012-11-25T09:02:12.207 回答