作者：乔山办公网日期：
返回目录：excel表格制作
比如把A1到百A5的值添加到度LISTBOX1的ROWSOURCE中。而这里5我们是不内知道的。用下面代码容
Private Sub UserForm_Click()
Dim x
x = Range("a1000").End(3).Row
ListBox1.RowSource = "a1:a" & x
End Sub
想从那行冻结，就改这个数字就行了 ActiveWindow.SplitRow = 1 '开始冻结行数 ActiveWindow.FreezePanes = True
插入一个ActiveX按钮，右键查看代码复，将下制面的代码粘贴到两行代码的中间。选中有公式的区百域，然后单击此按度钮就会自动转换为值。
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
For 是一个办法。
resize那里，用resize(selection.rows.count,5)试试看