《电子电脑》显示文章详细内容: [展开] [回复] [网址] [举报] [屏蔽]
翼宿
翼宿目前处于离线状态
等    级:资深长老
经 验 值:7202
魅 力 值:541
龙    币:9945
积    分:6134.8
注册日期:2004-06-08
 
  查看翼宿个人资料   给翼宿发悄悄话   将翼宿加入好友   搜索翼宿所有发表过的文章   给翼宿发送电子邮件      

vba举个简单例子:
选择录制宏,然后随便点击一下sheet,再打开vba编辑器的模块,将如下代码copy过去,然后运行宏即可实现将sheet1的A1和sheet2的A1相加写回至sheet3的A1:

Dim sheet1cella1 As String
Dim sheet2cella1 As String
Sheets("Sheet1").Select
sheet1cella1 = Range("A1").Value
Sheets("Sheet2").Select
sheet2cella1 = Range("A1").Value
Sheets("Sheet3").Select
Range("A1").Value = Val(sheet1cella1) + Val(sheet2cella1)
2006-06-16 13:52:09   此文章已经被查看112次   
 相关文章: [回复]  [顶端] 



  您必须登录论坛才可以发表文章:
 
用户名:   密码:   记住密码:    (忘记密码 注册




版权所有 回龙观社区网 经营许可证编号:京B2-20201639 昌公网安备1101140035号

举报电话:010-86468600-5 举报邮箱: