Excel如何使单元格不自动调整行高
答案:2 悬赏:30
解决时间 2021-04-27 19:16
- 提问者网友:放荡不羁
- 2021-04-27 02:34
现在我在一个小的单元格里输入很多文字后它会自动调整行高把单元格的内容完全显示,但我不希望它改变单元格的大小,只需点击时在电脑里可以查看就行。如何设置请指教?(不想手工调整行高)
最佳答案
- 二级知识专家网友:初心未变
- 2021-04-27 02:58
先选中,然后右键,选单元格格式,里面有三排前面都有个正方形框框的那三排,你把根据内容调整行高的那个去掉勾,
全部回答
- 1楼网友:劳资的心禁止访问
- 2021-04-27 04:17
自动调整合并单元格行高原型
原理是:
因为独立单元格设置了自动换行后,高度会自动变化,利用这个特点,将合并单元格的内容复制到一个独
立单元格,并将这个单元格格式设置成自动换行,且其宽度设置为合并区域宽度
(
合并区域宽度
=
合并区域中各
列宽度之和
)
,再将此时独立单元格的行高值设置到合并区域所在的行即可。
运行条件:创建一个名字为
temp
的
sheet
表单
,
将下内容粘贴到
excel
模块中。
vba
程序如下:
sub main()
mergecellautofit "sheet1", 6, 2
end sub
sub mergecellautofit(ssheet as string, mrow as integer, mcol as integer)
dim mwidth as double
dim mst, med as integer
if sheets(ssheet).cells(mrow, mcol).mergecells then
mst = sheets(ssheet).cells(mrow, mcol).mergearea.column
med = mst + sheets(ssheet).cells(mrow, mcol).mergearea.columns.count() - 1
for i = mst to med
mwidth = mwidth + sheets(ssheet).columns(i).columnwidth
next i
sheets("temp").columns(1).columnwidth = mwidth + (med - mst) * 0.6
with sheets("temp").range("a1")
.horizontalalignment = xlgeneral
.verticalalignment = xltop
.wraptext = true
.orientation = 0
.addindent = false
.indentlevel = 0
.shrinktofit = false
.readingorder = xlcontext
.mergecells = false
end with
sheets(ssheet).cells(mrow, mcol).copy
sheets("temp").range("a1").pastespecial paste:=xlpastevalues, operation:=xlnone,
skipblanks:=false, transpose:=false
sheets(ssheet).rows(mrow).rowheight = sheets("temp").rows(1).rowheight
sheets("temp").columns(1).delete
else
msgbox "
不是合并单元格!
"
end if
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息!
大家都在看
推荐信息