
步骤1:选择A列,按Ctrl+G,“定位条件”“空值”将空格处于选择状态(A4可能不会被选住);或者按下Ctrl键的时候,点选A2、A4单元格;
步骤2:输入一个等于号,输入一个向上箭头键,然后按Ctrl+Enter组合键,实现在空格中填充空格上方单元格内容的效果。
详见附图
假设你的文本框位于sheet1工作表的H1单元格,现在请选定sheet1工作表,点击右键-查看代码,进入VBA,把下面的代码进行粘贴:
Private Sub TextBox1_LostFocus()
TextBox1Height = [h1]RowHeight
TextBox1Width = [h1]Width
End Sub
如果你的文本框名称不是TextBox1,则改一下,代码中的二个 [h1] 改为你实际放置的单元格。
这样就把文本框大小与这一个单元格一致了,不会逃跑到别处,打印就顺利了。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)