分类：电脑/网络-软件-办公软件
问题：这个EXCEL按钮是如何实现的文档中的按钮是怎样实现的，能不能教 
中的按钮是怎样实现的，能不能教一教，怎样移植到其他电子表格中，功能一样。谢谢，讲解详细些，我对电子表格中的宏点都不了解
回答：不知道你有没有计算机语言编程的基础，这个使用A编写的，按钮是在【开发工具】菜单（我用的是OFFICE2007，2003的菜单名字可能有所不一样）里面的【插入表单控件】添加的，然后进入设计模式编辑按钮点击的事件。下面的是你所给宏的处理代码，希望你先了解一下VBA，然后在看这个。Sub Macro1()'' Macro1 Macro' ºêÓÉ None Â¼ÖÆ£¬Ê±¼ä: 2006-12-7''    Range("A2:B5").Select    Selection.Copy    Sheets("Ò»°à").Select    Range("A2").Select    ActiveSheet.Paste    Range("A2").Select    Sheets("×Ü±í").Select    Range("A2:C5").Select    Application.CutCopyMode = False    Selection.Copy    Sheets("¶þ°à").Select    Range("A2").Select    ActiveSheet.Paste    Range("B2:B5").Select    Application.CutCopyMode = False    Selection.Delete Shift:=xlToLeft    Range("A2").Select    Sheets("×Ü±í").Select    Range("A2:D5").Select    Selection.Copy    Sheets("Èý°à").Select    Range("A2").Select    ActiveSheet.Paste    Range("B2:C5").Select    Application.CutCopyMode = False    Selection.Delete Shift:=xlToLeft    Range("A2").Select    Sheets("×Ü±í").Select    Range("A2:E5").Select    Selection.Copy    Sheets("ËÄ°à").Select    Range("A2").Select    ActiveSheet.Paste    Range("B2:D5").Select    Application.CutCopyMode = False    Selection.EntireRow.Delete    Range("A2").Select    Sheets("×Ü±í").Select    Selection.Copy    Sheets("ËÄ°à").Select    ActiveSheet.Paste    Range("B2:D5").Select    Application.CutCopyMode = False    Selection.Delete Shift:=xlToLeft    Range("A2").Select    Sheets("×Ü±í").Select    Range("A1:D1").SelectEnd SubSub Macro3()'' Macro3 Macro' ºêÓÉ None Â¼ÖÆ£¬Ê±¼ä: 2006-12-7''    Sheets("Ò»°à").Select    Cells.Select    Selection.ClearContents    Selection.Borders(xlDiagonalDown).LineStyle = xlNone    Selection.Borders(xlDiagonalUp).LineStyle = xlNone    Selection.Borders(xlEdgeLeft).LineStyle = xlNone    Selection.Borders(xlEdgeTop).LineStyle = xlNone    Selection.Borders(xlEdgeBottom).LineStyle = xlNone    Selection.Borders(xlEdgeRight).LineStyle = xlNone    Selection.Borders(xlInsideVertical).LineStyle = xlNone    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone    Range("A1").Select    Sheets("¶þ°à").Select    Cells.Select    Selection.ClearContents    Selection.Borders(xlDiagonalDown).LineStyle = xlNone    Selection.Borders(xlDiagonalUp).LineStyle = xlNone    Selection.Borders(xlEdgeLeft).LineStyle = xlNone    Selection.Borders(xlEdgeTop).LineStyle = xlNone    Selection.Borders(xlEdgeBottom).LineStyle = xlNone    Selection.Borders(xlEdgeRight).LineStyle = xlNone    Selection.Borders(xlInsideVertical).LineStyle = xlNone    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone    Range("A1").Select    Sheets("Èý°à").Select    Cells.Select    Selection.ClearContents    Selection.Borders(xlDiagonalDown).LineStyle = xlNone    Selection.Borders(xlDiagonalUp).LineStyle = xlNone    Selection.Borders(xlEdgeLeft).LineStyle = xlNone    Selection.Borders(xlEdgeTop).LineStyle = xlNone    Selection.Borders(xlEdgeBottom).LineStyle = xlNone    Selection.Borders(xlEdgeRight).LineStyle = xlNone    Selection.Borders(xlInsideVertical).LineStyle = xlNone    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone    Range("A1").Select    Sheets("ËÄ°à").Select    Cells.Select    Selection.ClearContents    Selection.Borders(xlDiagonalDown).LineStyle = xlNone    Selection.Borders(xlDiagonalUp).LineStyle = xlNone    Selection.Borders(xlEdgeLeft).LineStyle = xlNone    Selection.Borders(xlEdgeTop).LineStyle = xlNone    Selection.Borders(xlEdgeBottom).LineStyle = xlNone    Selection.Borders(xlEdgeRight).LineStyle = xlNone    Selection.Borders(xlInsideVertical).LineStyle = xlNone    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone    Range("A1").Select    Sheets("×Ü±í").Select    Range("A1:D1").SelectEnd SubSub Macro2()'' Macro2 Macro' ºêÓÉ I Â¼ÖÆ£¬Ê±¼ä: 2006-9-16''    Range("A2:A5").Select    Selection.Copy    Sheets("Sheet2").Select    Range("A2").Select    ActiveSheet.Paste    Sheets("Sheet1").Select    Range("B2:B5").Select    Application.CutCopyMode = False    Selection.Copy    Sheets("Sheet2").Select    Range("B2").Select    ActiveSheet.Paste    Sheets("Sheet2").Select    Sheets.Add    Sheets("Sheet1").Select    Range("A2:A5").Select    Sheets("Sheet3").Select    Range("A2").SelectEnd Sub