有什么方法可以在 Excel Sheet 中设置最小单元格高度?
Any way to set minimum Cell Height in an Excel Sheet?
您好,我的问题是如何为 Excel Sheet 中的单元格设置最小高度?现在它看起来像:
但它应该看起来像: 到目前为止我尝试设置单元格高度:excelSheet.Columns[1].ColumnWidth = 16.14;
然后 excelSheet.Columns[1].Autofit()
但它被覆盖了所以我希望找到一种为 Autofit 设置最小高度的方法。然后我尝试为它 google 但没有任何帮助出现。对于与
合并的单元格
// Merge the Cells for the summary Box
for (int i = 2; i <= 10; i++)
{
excelSheet.Range[excelSheet.Cells[startColumn + i, 1], excelSheet.Cells[startColumn + i, 10]].Merge(Missing.Value);
}
然后是 excelSheet.get_Range("A" + lineBreakAreaTop, "J" + lineBreakAreaBottom).WrapText = true;
的换行符 Mabey 这与它有关。
所以任何帮助或建议都将非常感谢您的宝贵时间。对不起我的英语。
在 Excel
中模拟最小高度
为了模拟 excel 行中的 Min Height
设置,我编写了以下简单代码,并在我的 excel 文件中通过以下指令使用它:
- 打开你的 excel 文件并在
Excel
中按 Alt+F11
- 在打开的window中点击
View Code
按钮打开Editor
Copy-Paste
下面的代码在Editor
代码
Private Sub Worksheet_Change(ByVal Target As Range)
'Cells.Rows.AutoFit
For rowCounter = 1 To 500
If Rows(rowCounter & ":" & rowCounter).EntireRow.RowHeight < 15 Then
Rows(rowCounter).EntireRow.RowHeight = 15
End If
Next
End Sub
Note 1: If you want to force the worksheet to apply Rows AutoFit function
on changes too, then you can uncomment it by removing the '
sign from beginning of its code line in the above code.
Note 2: If the row count of the data is more than 500
in your excel file, then increse this number in the above code to an appropriate value.
- 在
Editor
中按Ctrl+S保存
- 返回 sheet 并更改任何单元格值并离开该单元格,现在您应该会看到结果 ;)
您好,我的问题是如何为 Excel Sheet 中的单元格设置最小高度?现在它看起来像:
但它应该看起来像:excelSheet.Columns[1].ColumnWidth = 16.14;
然后 excelSheet.Columns[1].Autofit()
但它被覆盖了所以我希望找到一种为 Autofit 设置最小高度的方法。然后我尝试为它 google 但没有任何帮助出现。对于与
// Merge the Cells for the summary Box
for (int i = 2; i <= 10; i++)
{
excelSheet.Range[excelSheet.Cells[startColumn + i, 1], excelSheet.Cells[startColumn + i, 10]].Merge(Missing.Value);
}
然后是 excelSheet.get_Range("A" + lineBreakAreaTop, "J" + lineBreakAreaBottom).WrapText = true;
的换行符 Mabey 这与它有关。
所以任何帮助或建议都将非常感谢您的宝贵时间。对不起我的英语。
在 Excel
中模拟最小高度为了模拟 excel 行中的 Min Height
设置,我编写了以下简单代码,并在我的 excel 文件中通过以下指令使用它:
- 打开你的 excel 文件并在
Excel
中按 Alt+F11
- 在打开的window中点击
View Code
按钮打开Editor
Copy-Paste
下面的代码在Editor
代码
Private Sub Worksheet_Change(ByVal Target As Range)
'Cells.Rows.AutoFit
For rowCounter = 1 To 500
If Rows(rowCounter & ":" & rowCounter).EntireRow.RowHeight < 15 Then
Rows(rowCounter).EntireRow.RowHeight = 15
End If
Next
End Sub
Note 1: If you want to force the worksheet to apply
Rows AutoFit function
on changes too, then you can uncomment it by removing the'
sign from beginning of its code line in the above code.Note 2: If the row count of the data is more than
500
in your excel file, then increse this number in the above code to an appropriate value.
- 在
Editor
中按Ctrl+S保存
- 返回 sheet 并更改任何单元格值并离开该单元格,现在您应该会看到结果 ;)