摘要：
Public Sub MakeButton()'动态生成一个按钮控件'动态生成事件'Dim i As IntegerDim strName As StringDim varstrName() As String Dim WSheet As Worksheet Dim MyNewbtn As OLEObject Dim Target As Range Dim ShtCodeName As String Dim linesCount As Long Set WSheet = Sheets("Sheet4") ShtCodeName = WSheet.Co 阅读全文
