摘要: 'OptionExplicit'ConstsheetNameAsString="电脑中心"PrivateSubCommandButton1_Click()SubCommandButton1_Click()ActiveCell.EntireRow.DeleteEndSubPrivateSubCommandButton2_Click()SubCommandButton2_Click()DimminYDimmaxYminY=Selection.RowmaxY=Selection.Rows.Count+Selection.Row-1'从光标所在的行到另一个指 阅读全文
posted @ 2007-09-08 16:48 wj-conquer 阅读(13781) 评论(0) 推荐(0) 编辑