求EXCEL行高函数？

frankboy

请高手提供一EXCEL行高函数，要求运行时先出一对话框，可选择或输入欲调整的区域，可选择或输入每行的最小行高；函数运行后自动判断：（1）如行高＜＝最小行高，行高调整为最小行高；（2）如行高＞最小行高，则行高保持不变。

相信这个函数可以弥补EXCEL设置行高的不足。谢谢！

ZPX

自定义函数吧。

shangyu

函数可不会帮你调整行高。

jg0021

函数的概念：对现有数据一种处理方式，用其他的方法表达，但是，数据不会多也不会也不会少。对于，excel的对象：工作表、工作簿、表格、图文、颜色什么的，不可能实现对他们的操作，好比：想用函数改变一个字体的颜色，改变表格的大小，行高、列宽，。。。。它是无法做到的，只能用VBA来实现。

办公之星

请参阅行高属性的帮助。

RowHeight 属性

以磅为单位返回或设置指定区域中所有行的行宽。如果区域中的各行的行高不等，返回 Null。Variant 类型，可读写。

说明

对于单个行，Height 属性的值等于 RowHeight 属性的值。然而，用 Height 属性还可返回整个单元格区域的高度。

以下是 RowHeight 和 Height 的其他不同之处：

• Height 为只读属性。
• 如果要返回几行的 RowHeight 属性，可得到每一行的行高（如果所有的行等高），或得到 Null（如果它们不等高）。如果要返回几行的 Height属性，将得到所有行高的总和。

示例

本示例使工作表 sheet1 上第一行的行高加倍。

With Worksheets("Sheet1").Rows(1)    .RowHeight = .RowHeight * 2End With

slhenry

以下是引用frankboy在2004-12-16 9:42:00的发言：

请高手提供一EXCEL行高函数，要求运行时先出一对话框，可选择或输入欲调整的区域，可选择或输入每行的最小行高；函数运行后自动判断：（1）如行高＜＝最小行高，行高调整为最小行高；（2）如行高＞最小行高，则行高保持不变。

相信这个函数可以弥补EXCEL设置行高的不足。谢谢！

用INPUTBOX输入行高来调整吧。

liGYkU4X.rar (5.94 KB, 下载次数: 125)

2004-12-17 13:34 上传

点击文件名下载附件
求EXCEL行高函数？

joytickle

行高不能超过409？

办公之星

是的，请看帮助：

Excel 规范与限制

工作表和工作簿规范

功能	最大限制
打开的工作簿个数	受可用内存和系统资源的限制
工作表大小	65,536 行乘以 256 列
列宽	255 个字符
行高	409 磅
分页符个数	水平方向 1000 个；垂直方向 1000 个
单元格内容（文本）的长度	32,767 个字符。单元格中只能显示 1,024 个字符；而编辑栏中可以显示全部 32,767 个字符。
工作簿中的工作表个数	受可用内存的限制（默认为 3 个工作表）
工作簿中的颜色数	56
工作簿中的单元格样式种类	4,000

Bruce_xu

真是学到了东西呀，以前不知道有这个规范在。