50金币救助EXCEL问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

抱歉不是50金币是论坛币,因为题目不能修改,见谅!!!

excel工作簿有3个工作表,名字为 第一年  第二年 第三年

在 第二年 的工作表中插入一命令按钮CommandButton1

编写语言

Private Sub CommandButton1_Click()

DIM A AS Integer ,B AS Integer

要求A等于 第二年 A3 的数值 ,B等于 A +2,然后将B的值返还到 第三年 的B4里

End Sub

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

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL exce 50金币 xcel cel EXCEL 金币 救助

217210.rar (8.08 KB) 本附件包括：

• Book1.xls

2008-6-4 14:50:00 上传

50金币救助EXCEL问题

看看是不是你要的东西吧

[此贴子已经被作者于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

你可以试试

以下是引用409560013在2008-6-4 15:53:00的发言：

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

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

这次一点也不差，不信你试试

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

对不起，看错了问题

请fuguitop 你2楼的贴设置为出售贴 我好购买

谢谢大家的帮忙!!!

哈哈

不用了

能帮上忙就好