<em>Excel</em>里如何设置批注自适应宽和高？代码该怎么写？-c excel 宽度自适

再增加一个事件代码即可，目的zhidao是有公式计算时运行代码，将所以D列有公专式引用的都运行一次你的代码，增加的代码如下（详见附属件）：

Private Sub Worksheet_Calculate()

   Call Worksheet_Change(Columns("D").SpecialCells(xlCellTypeFormulas))

End Sub

鼠标移动到左侧数字的格格里，鼠标变成向右面指的黑色箭头，选中有图片的一行，右击，设置高。 也可以移动鼠标到图片一行下面的横线，鼠标变成黑色上下方向的箭头，然后双击
1、A列自动显示问题：较简单的是在A1中输入公式“=IF(AND($H1<>"",$J1<>""),"未知",IF($H1<>"","有效",IF($J1<>"","无效","")))”，其下单元格复制此公式；还可以在A列的任何单元格输入公式“=IF(AND(INDIRECT("$H"&ROW())<>"",INDIRECT("$J"&ROW())<>""),"未知",IF(INDIRECT("$H"&ROW())<>"","有效",IF(INDIRECT("$J"&ROW())<>"","无效","")))”，其余也要自动显示的单元格复制此公式。
2、K列自动显示问题：较简单的是在K1中输入公式“=IF(AND($B1<>"",$D1<>"",$E1<>""),"A类","")“，其下单元格复制此公式；还可以在K列的任何单元格输入公式“=IF(AND(INDIRECT("$B"&ROW())<>"",INDIRECT("$D"&ROW())<>"",INDIRECT("$E"&ROW())<>""),"A类","")“，其余也要自动显示的单元格复制此公式。
3、建立一个标记列，如L列，在L1中输入公式“=$B2&$D2&$E2”，之后选中B列、D列、E列（按下Ctrl键，用鼠标点击列标位置选择），再单击数据菜单中的‘数据有效性’按钮，在打开的数据有效性对话框的‘设置’选e69da5e887aa7a64365项卡中的‘允许’选择‘自定义’，在‘公式’输入公式“=COUNTIF(INDIRECT("L1:L"&ROW()-1),INDIRECT("L"&ROW()))<1”（如遇提示：“公式当前包含错误。是否继续？”，选择“是”）；然后再在数据有效性对话框的‘出错警告’选项卡中，‘样式’选择‘警告’，‘标题’设为‘提示’，‘错误信息’设为‘发现重复。’，确定退出。经过以上设置后，在三列内容都相同时，会出现提示框，提示内容为“发现重复。是否继续？”，提示框中有‘是’、‘否’、‘取消’、‘帮助’四个按钮，选择‘是’可以继续操作，‘否’需要修订。
4、比较简单的方法是只要你关闭文件时，将K列筛选为“A类”之后再保存关闭文件，在下次打开时K列就只显示“A类”了。

晕,这个百代码还是我写度的啊/
假设你是sheet1表,要将问sheet1表的宽度自适答应.
那么在代码的专最后两句
Set dic = Nothing
End Sub
改成:
Set dic = Nothing
sheets("sheet1").columns.autofit
End Sub
即可属

本文标签：excel单元格宽度自适应(3)c excel 宽度自适应(1)