- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何用代码实现菜单中的“自动调整行高”功能 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31337)
-- 发布时间：2013/4/13 11:17:00
-- [求助]如何用代码实现菜单中的“自动调整行高”功能
如题：如何用代码实现菜单中的“自动调整行高”功能，即下图“红圈”标注的功能，包括对“相等行高”选项的控制！
此主题相关图片如下：未命名.jpg
-- 发布时间：2013/4/13 11:21:00
--
Tables("XX").AutoSizeRows()
-- 发布时间：2013/4/13 11:25:00
--
以下是引用Bin在2013-4-13 11:21:00的发言：
Tables("XX").AutoSizeRows()
Tables("XX").AutoSizeRows()
谢谢！能够指定“列”吗？
-- 发布时间：2013/4/13 11:27:00
--
Tables("表名").AutoSizeRow(1) \'1为行标 表示第二行
-- 发布时间：2013/4/13 11:34:00
--
以下是引用Bin在2013-4-13 11:27:00的发言：
Tables("表名").AutoSizeRow(1) \'1为行标 表示第二行
Tables("表名").AutoSizeRow(1) \'1为行标 表示第二行
谢谢！上述代码是对第二行自动设置行高，如果需要按某列的内容自动设置行高，比如“第二列”，代码应如何编写？
-- 发布时间：2013/4/13 11:38:00
--
以下是引用Bin在2013-4-13 11:21:00的发言：
Tables("XX").AutoSizeRows()
Tables("XX").AutoSizeRows()
以下是引用muhua在2013-4-13 11:21:00的发言：
Tables("表名").AutoSizeRows
谢谢！上述两位的代码执行结果一样，都能实现自动行高功能。
-- 发布时间：2013/4/13 11:38:00
--
希望在编辑备注列内容后，能够自动调整行高，可以将AfterEdit事件代码设为：
If
e.Col.Name = "备注" Thene.Table.AutoSizeRow(e.Row.Index)
End If
-- 发布时间：2013/4/13 11:39:00
--
IF Tables("XX").Rows(3)("第二列") = "我要自动行高" then
Tables("XX").AutoSizeRow(3)
end if
-- 发布时间：2013/4/13 12:00:00
--
以下是引用Bin在2013-4-13 11:39:00的发言：
IF Tables("XX").Rows(3)("第二列") = "我要自动行高" then
IF Tables("XX").Rows(3)("第二列") = "我要自动行高" then
Tables("XX").AutoSizeRow(3)
end if
上述代码设置的只是第四行的行高，需要全表所有行按照“第二列”来设置行高！？
-- 发布时间：2013/4/13 12:02:00
--
参考8楼