l00109503的专栏

1，动态创建空间 ActiveSheet.OLEObjects.Add ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False, Left:=300, top:=topnum, Width:=80, Height:=302，得到当前选中单元的行数ActiveCell.Row 3，设置工作表保护先取消工作表

 1. ASC(X)，Chr(X)：转换字符字符码　　[格式]：　　P=Asc(X) 返回字符串X的第一个字符的字符码　　P=Chr(X) 返回字符码等于X的字符　　[范例]：　　(1)P=Chr(65)　　‘ 输出字符A,因为A的ASCII码等于65　　(2)P=Asc(“A”)　　‘ 输出65　　2. Len(X)： 计算字符串X的长度　　[格式]：