217210.rar
大小:(8.08 KB)

 马上下载

本附件包括：

• Book1.xls

看看是不是你要的东西吧

[此贴子已经被作者于2008-6-4 15:09:58编辑过]

以下的程序可以达到目的：

Private Sub CommandButton1_Click()
    Dim A As Integer, B As Integer
    Range("A3").Select
    A = ActiveCell.Value
    B = 2 * A
    Sheets("第三年").Select
    ActiveCell(4, 2).Value = B
End Sub

你可以试试

就差一点点

应该是B=A+2

一个更好的答案

Private Sub CommandButton1_Click()
    Dim A As Integer, B As Integer
    Range("A3").Select
    A = ActiveCell.Value
    B = 2 * A
    Sheets("第三年").Cells(4, 2).Value = B
End Sub