excel中怎样制作一个按钮,按一下使某单元格等于另一单元格...

在sheet1中，视图——窗体——画一zhidao个按钮就可以了
指定宏。右专键sheet1添加上面的代码。中文是注释
最好是改一下代码
Sub CommandButton1_Click()
ActiveCell.Value = ActiveCell.Value + 1 '选定单元格内容属+1
ActiveCell.Offset(1).Select '自动移到下个单元格
End Sub

将以下代码复制到模块中，再在工作表中插入一个按钮，并且指定宏

代码如下：

Public Sub 等于()

    Range("B1").Value = Range("A1").Value

End Sub

VBA中赋值直接使用=（赋值符号）zhidao

Excel版本参考：专2010
假设将ActiveSheet.Shapes("Button 1").TopLeftCell.Address复制给变量 ADD
ADD=ActiveSheet.Shapes("Button 1").TopLeftCell.Address
注：如果被赋值的是对象，则属需要SET辅助，如，Set d=createobject("scripting.dictionary")

将各个单元格按钮功能写百成单独的过程，如K1单元格的保存功能写成过程：度Sub 保存()……，然后用工作表专事件调用即可，代码举例如下属：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
s = Target.Address(0, 0)
If s = "I1" Then
   Call 查询
ElseIf s = "K1" Then
   Call 保存
   '…………
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
s = Target.Address(0, 0)
If s = "I1" Then
   Call 查询
ElseIf s = "K1" Then
   Call 保存
   '…………
End If
End Sub